Обработка ошибки

Здравствуйте Уважаемые программисты! Подскажите пожалуйста, как при использовании кода:CopyRng As Range Set CopyRng = Application.InputBox("Выделите строку для копирования?", "Выбор строки", Type:=8)который открывает окно для указания ячейки, прописать корректный "выход из кода" (без всплывания ошибки) в случае если пользователь сразу после появления этого окна нажмет "ОК" или "Отмену" (Esc)? Заранее спасибо.
9 ответов

Dim CopyRng As Range
On Error Resume Next
Set CopyRng = Application.InputBox("Выделите строку для копирования?", "Выбор строки", Type:=8)
If CopyRng Is Nothing Then Exit Sub


Dim CopyRng As Range
On Error Resume Next
Set CopyRng = Application.InputBox("Выделите строку для копирования?", "Выбор строки", Type:=8)
If CopyRng Is Nothing Then Exit Sub
Если запустить:Sub test() Dim CopyRng As Range On Error Resume Next Set CopyRng = Application.InputBox("Выделите строку для копирования?", "Выбор строки", Type:=8) If CopyRng Is Nothing Then Exit Sub End Subи сразу нажать кнопку "Отмена" Все равно появляется ошибка: Run-time error '424' Object required. Может быть дело в Set?


"Отмена" - это которая "Cancel" на форме inputbox'а? У меня всё работает.


"Отмена" - это которая "Cancel" на форме inputbox'а? У меня всё работает.
Да, та самая кнопка. Но у меня вылетает ошибка (excel 2003). Может нужно переменную Set как-то выгрузить?


Set - это не переменная. Это как Let, только другое - оператор присвоения значения объектной переменной. Может быть у вас там ещё что-то путается? Попробуйте код в новом чистом файле. Всё закройте, откройте приложение заново, создайте новый файл, вставьте код.


Set - это не переменная. Это как Let, только другое - оператор присвоения значенияо бъектной переменной. Может быть у вас там ещё что-то путается? Попробуйте код в новом чистом файле. Всё закройте, откройте приложение заново, создайте новый файл, вставьте код.
Спасибо за наставление! Вы знаете, получилось, когда я выставила пароль на VBA проект. Скажите пожалуйста, существует или нет пароль, это оказывает на что-то влияние?


В данном случае не должно. Вероятно локальный глюк, но я правда думаю, что может там MISSING в референсах VBA?


В данном случае не должно. Вероятно локальный глюк, но я правда думаю, что может там MISSING в референсах VBA?
У меня в Tools > References > "птички" только у: - VBA - Ms Excel 11.0 Object Library - OLE Automation - Ms Office 11.0 Object Libraryчто-то из этого влияет, как думаете? Заранее всем спасибо.


Думаю влиять не должно. Думаю что глюк.