Як використовувати оператор 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 і натискаємо OK :

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

Однак припустімо, що замість цього ми введемо значення 15 :

Ми отримаємо таке вікно повідомлення в Excel:

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

Додаткові ресурси

У наступних посібниках пояснюється, як виконувати інші типові завдання у VBA:

Як вийти з Sub у разі помилки у VBA
Як використовувати IFERROR у VBA
Як видалити файли за допомогою VBA