Перейти к содержимому

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

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

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

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

On Error – это оператор, который используется для отслеживания ошибок во время исполнения кода VBA. При возникновении ошибки On Error передает информацию о ней в объект Err и включает программу обработки ошибок, начинающуюся с указанной строки.

В первую очередь, обработчик ошибок нужен для пользователей файлов 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.

Содержание рубрики VBA Excel по тематическим разделам со ссылками на все статьи.

Добавить комментарий

Ваш комментарий будет опубликован после прохождения обязательной модерации. Исходящие ссылки не допускаются. Время модерации составит от нескольких минут до нескольких часов в зависимости от времени суток и занятости модератора. При добавлении в комментарий кода VBA Excel, вставьте перед его началом тег [vb] и по окончании кода - [/vb].