Диалоговое окно выбора диапазона

[Pavel55]

Попробуйте ещё так

Код: Выделить всё

Sub Test1()
Dim Rng As Range
    On Error Resume Next
    Set Rng = Application.InputBox("Укажите мышкой нужный диапазон", "Выбор диапазона", Selection.Address, , , , , 8)
    If Rng Is Nothing Then
        MsgBox "Вы не указали нужный диапазон!", 48, "Ошибка"
    End If
    MsgBox "Вы указали диапазон: " & Rng.Address(0, 0), , ""
End Sub

[VictorM]

Pavel55, попробовал, все равно не работает и вылетает в "Вы не указали нужный диапазон!".
Задачу пришлось решить все же с помощью UserForm + RefEdit.

[heisnod]

Pavel55, попробовал, все равно не работает и вылетает в "Вы не указали нужный диапазон!".
Задачу пришлось решить все же с помощью UserForm + RefEdit.

У меня отработало без ошибок. Видимо проблема в Excel или его настройках.

[Aent]

У меня то же приведённый Pavel55 код работает почти без ошибок
1) В примере не хватает exit sub внутри "If Rng Is Nothing Then"
2) У меня всегда определён Rng.
3) При выборе всего листа выводит "1:65536"
Excel 2003 rus SP3

[VictorM]

heisnod, Aent, здесь вопрос не в самой процедуре. Да, она работает, как и вышеприведенные, но только не в моем файле )).
На чистом листе, без условного форматирования - все работает.
Проблема уже была описана выше, это документированный баг Excel.
Думаю тему можно уже закрыть.

[heisnod]

Я уже и забыл, что у тебя там условное форматирование с формулой. Затянулось обсуждение сильно. Тема вроде раскрыта до конца.