Если вы еще не знакомы с обработкой ошибок, мы настоятельно рекомендуем вам сначала прочитать этот пример. Когда ошибка в Excel VBA происходит, свойства Err объект наполнены информацией.
Ситуация:
Программа ниже вычисляет квадратный корень из чисел.
1. Поместите командную кнопку на свой рабочий лист и добавьте следующие строки кода:
Dim rng As Range, cell as Range
Установить rng = Выбор
Для каждой ячейки In rng
При ошибке GoTo InvalidValue:
cell.Value = Sqr (cell.Value)
Следующая ячейка
Выйти из подводной лодки
Неверное значение:
MsgBox Err.Number & "" & Err.Description & "at cell" & cell.Address
Продолжить Далее
Результат, когда вы выбираете Range ("B2: B6") и нажимаете кнопку команды на листе:
Объяснение: при возникновении ошибки свойство number объекта Err заполняется уникальным номером ошибки текущей ошибки, а свойство Description заполняется описанием ошибки текущей ошибки.
2. Эти описания могут быть не очень полезны для пользователей вашей программы. Вы можете сделать сообщения об ошибках более удобными для пользователя, изменив последнюю часть макроса следующим образом:
Неверное значение:
Выберите Case Err.Number
Случай Is = 5
MsgBox «Невозможно вычислить квадратный корень из отрицательного числа в ячейке» & cell.Address
Случай Is = 13
MsgBox «Невозможно вычислить квадратный корень текста в ячейке» & cell.Address
Конец Выбрать
Продолжить Далее
Совет: пройдите нашу программу Select Case, чтобы узнать больше о структуре Select Case.
Результат:
