如何在excel中使用vba exit sub?
VBA Exit Sub 是用于退出子过程或函数的语句。如您所知,每一行都是一个相继运行的宏,当您添加“Exit Sub”VBA 时,退出该过程而不运行其后的其余代码。这对于循环和消息框效果最好。
在 VBA 中使用 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 错误处理)并退出该过程。