Мне нужна запись в поле ввода, чтобы сделать две вещи

Question

У меня есть макрос Excel с полем ввода для выбора диапазона ячеек. Я также хочу, чтобы выбранные координаты диапазона показывались где-то, чтобы я мог это проверить.

Вот основная часть кода, который у меня есть:

Dim Data_Sheet As Worksheet
Dim Pivot_Sheet As Worksheet
Dim StartPoint As Range
Dim DataRange As Range
Dim PivotName As String
Dim NewRange As String
Dim LastCol As Long
Dim lastRow As Long

Set DataRange = Application.InputBox("Please select INBOUND range", Default:="A:L", Type:=8)
    DataRange.Select
    Selection.Copy

Столбцы предварительно выбраны (A: L), и я вставляю начальную строку после A: и конечную строку после LИтак, если я введу 10 и 50, я получу диапазон (A10: L50), но эти координаты исчезнут. Я хочу, чтобы "A10: L50" ​​показывался где-то в камере. Любая помощь будет оценена.

Answer 1

Попробуй это. По умолчанию будет автоматически установлен активный диапазон. Это зависит от пользователя, чтобы выбрать, какой диапазон он хотел бы, и это может быть использовано.

Просто предостережение, выбор диапазонов пользователем всегда может быть проблематичным - пользователь может выбрать не все данные и т. Д. Попробуйте управлять им в своем коде. Вы должны увидеть переменную rangeselected в вашем окне местных жителей.

    Dim oSelect As Range
    Set oSelect = Application.InputBox("Range", , Range("A1").CurrentRegion.Address, , , , , 8)
    RangeSelected = oSelect.Address