Как использовать оператор exit if в vba (с примером)

В VBA нет встроенного оператора Exit If , но его можно легко имитировать, используя оператор If с оператором GoTo .

Следующий пример показывает, как это сделать на практике.

Пример. Как использовать оператор Exit IF в VBA

Допустим, мы хотим создать макрос, который просит пользователя ввести целое число меньше 10, а затем использовать оператор IF , чтобы сделать следующее:

• Если введенное целое число меньше 10, умножьте его на 2 и отобразите результат в ячейке A1 .
• Если введенное целое число не меньше 10, выйдите из оператора IF и выведите сообщение об ошибке.

Для этого мы можем использовать следующий синтаксис:

 SubMultiplySomeValue ()

Dim inputInteger As Integer
     
'get integer from user
inputInteger = InputBox(" Please enter an integer less than 10 ")

'check if integer is less than 10
If inputInteger < 10 Then
Range(" A1 ").Value = inputInteger * 2
Else
GoTo FlagMessage
End If

FlagMessage:
MsgBox “ This number is not less than 10 ”
    
End Sub

Когда мы запустим этот макрос, нам будет предложено ввести целое число меньше 10:.

Предположим, мы вводим значение 5 и затем нажимаем ОК :

Поскольку это целое число меньше 10, подпроцедура умножит введенное нами значение на 2 и отобразит результат в ячейке A1 :

Однако предположим, что вместо этого мы вводим значение 15 :

Мы получим следующее окно сообщения в Excel:

Введенное нами значение не будет умножено на 2, и в ячейке A1 не будет отображено никаких результатов.

Дополнительные ресурсы

В следующих руководствах объясняется, как выполнять другие распространенные задачи в VBA:

Как выйти из Sub при ошибке в VBA
Как использовать ЕСЛИОШИБКА в VBA
Как удалить файлы с помощью VBA