如何在 vba 中使用 exit if 语句（附示例）

VBA 中没有内置的Exit If语句，但您可以通过使用If语句和GoTo语句来轻松模拟。

以下示例展示了如何在实践中执行此操作。

示例：如何在 VBA 中使用 Exit IF 语句

假设我们要创建一个宏，要求用户输入小于 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 中执行其他常见任务：

如何在 VBA 中出现错误时退出 Sub
如何在 VBA 中使用 IFERROR
如何使用VBA删除文件