VBA Excel. Оператор On Error (обработка ошибок)

Обработка ошибок в VBA Excel с помощью оператора On Error. Синтаксис выражений с оператором On Error. Пример кода с простым обработчиком ошибок.

1. Описание оператора On Error
2. Синтаксис выражений с On Error
3. Простой обработчик ошибок
4. Примеры обработки ошибок

Описание оператора On Error

В первую очередь, обработчик ошибок нужен для пользователей файлов Excel с кодами VBA. Любая ошибка приводит к прекращению выполнения программы, открытию редактора VBA с непонятным для пользователя сообщением или даже к полному зависанию приложения.

Обработчик ошибок позволяет завершить выполнение программы при возникновении ошибки и вывести сообщение пользователю с ее описанием.

Синтаксис выражений с On Error

On Error GoTo Stroka

Включает алгоритм обнаружения ошибок и, в случае возникновения ошибки, передает управление операторам обработчика ошибок с указанной в выражении строки. Stroka – это метка, после которой расположены операторы обработчика ошибок.

On Error Resume Next

Включает алгоритм обнаружения ошибок и, в случае возникновения ошибки, передает управление оператору, следующему за оператором, вызвавшем ошибку.

On Error GoTo 0

Отключает любой включенный обработчик ошибок в текущей процедуре.

Простой обработчик ошибок

Шаблон простейшего обработчика ошибок:

Sub Primer()
  On Error GoTo Stroka
    'Блок операторов процедуры
Exit Sub
  Stroka:
  If Err.Description <> "" Then
    MsgBox "Произошла ошибка: " _
    & Err.Description
  End If
End Sub

Оператор On Error GoTo размещается в начале процедуры, метка и обработчик ошибок – в конце процедуры. Название метки можно сменить на другое, в том числе на кириллице. Exit Sub обеспечивает выход из процедуры, если блок операторов выполнен без ошибок.

Для вывода описания ошибки используется свойство Description объекта Err.

Примеры обработки ошибок

Пример 1
Деление на ноль:

Sub Primer1()
  On Error GoTo Инструкция
    Dim a As Double
    a = 45 / 0
Exit Sub
  Инструкция:
  If Err.Description <> "" Then
    MsgBox "Произошла ошибка: " _
    & Err.Description
  End If
End Sub

Результат выполнения кода VBA Excel с обработчиком ошибок:

Пример 2
Выход за границы диапазона:

Sub Primer2()
  On Error GoTo Instr
    Dim myRange As Range
    Set myRange = Range("A1:D4").Offset(-2)
Exit Sub
  Instr:
  If Err.Description <> "" Then
    MsgBox "Произошла ошибка: " _
    & Err.Description
  End If
End Sub

Результат выполнения кода VBA Excel с оператором On Error GoTo:

Пример использования выражений On Error Resume Next и On Error GoTo 0 смотрите в статье: Отбор уникальных значений с помощью Collection.