如何在excel中使用vba exit sub？

VBA Exit Sub 是用于退出子过程或函数的语句。如您所知，每一行都是一个相继运行的宏，当您添加“Exit Sub”VBA 时，退出该过程而不运行其后的其余代码。这对于循环和消息框效果最好。

在 VBA 中使用 Exit Sub 语句

1. 首先，决定要在哪一行添加“Exit Sub”。
2. 之后，检查运行代码时将执行的代码的结构。
3. 接下来，输入“退出子”。
4. 最后，最好有一条评论来描述为什么使用“Exit Sub”语句。

注意：在VBA函数过程中，您应该使用的语句是“Exit Function”。

将 Exit Sub 与消息框和输入框结合使用

假设您希望通过输入框获取用户的输入，如果用户的响应不是数字，则退出该过程（请考虑以下示例）。

在上面的代码中， ISNUMERIC检查输入框中输入的值是否为数字，如果该值不是数字，则在显示消息框后使用 Exit 语句 Sub 来完成该过程。

 Sub vba_exit_sub_example() If IsNumeric(InputBox("Enter your age.", "Age")) = False Then MsgBox "Error! Enter your Age in numbers only." Exit Sub Else MsgBox "Thanks for the input." End If End Sub

如果出现错误 Exit Sub

关于“Exit Sub”的最好的事情之一是，您可以在发生错误时使用它退出程序。下面的代码将数字除以零，返回“运行时错误’11’”并停止执行。

在这里，您可以使用 GoTo 语句创建一个错误处理程序，并使用“Exit Sub”退出该过程（请考虑以下代码）。

 Sub vba_exit_sub_on_error() On Error GoTo iError Range("A1") = 10 / 0 iError: MsgBox "You can't divide with the zero." & _ "Change the code." Exit Sub End Sub

在上面的代码中，您有一个错误处理程序，带有消息框的“iError”，然后是“Exit Sub”语句。当计算期间发生错误时，goto 语句将传递到错误处理程序（ VBA 错误处理）并退出该过程。