VBA的 程序终止、退出语句块、分支及错误处理( End,exit,onerrorgotoinVBA 代码1: 程序终止及退出方法 1 Option Explicit 2 3 '一、END语句 4 5 '作用:强制退出所有正在运行的程序。 6 7 '二、Exit语句 8 9 '退出指定的语句 10 11 '1、Exit Sub 12 Sub e1() 13 Dim x As Integer 14 For x = ...
On Error GoTo errH_Two '产生"应用程序定义"错误 Error (1034) Exit Sub errH_Two: MsgBox "发生另一错误: "& Err.Description End Sub 运行上述代码后的结果如下图8所示。 图8 On Error Resume Next 使用On Error Resume Next语句,告诉VBA忽略错误并继续执行。 下面的代码会正常执行而不会报错: Sub Re...
ErrorHandler: MsgBox "发生错误!" Resume Next End Sub 在上述示例中,当程序执行到"x = 10 / 0"这行代码时,会触发除零错误。由于使用了On Error GoTo ErrorHandler语句,程序会跳转到ErrorHandler标签处执行相应的错误处理代码。在ErrorHandler代码块中,我们弹出一个消息框显示错误信息,并使用Resume Next语句继续...
On Error Resume Next x = 1 / 0 '接下来语句行发生错误,显示错误消息 On Error GoTo 0 x = 1 / 0 Done: Exit Sub errH: Debug.Print Err.Description End Sub 运行上述代码后的结果如下图9所示,运行到最后一个x=1/0时报错。 图...
SubInitializeMatrix(Var1, Var2, Var3, Var4)OnErrorGoToErrorHandler . . .ExitSubErrorHandler: . . .ResumeNextEndSub 在这里,错误处理代码位于Exit Sub语句后面,并位于End Sub语句之前,以将其与过程流分开。 可以将错误处理代码置于过程中的任何位置。
On Error Resume Next用法表示忽略错误,程序将继续执行下一条语句。当我们希望忽略某些特定的错误,或者希望在错误发生时继续执行后续的代码,可以使用该语句。下面是一个简单的示例: ```vba Sub Test() On Error Resume Next '执行一些可能会出现错误的代码 '继续执行后续的代码 On Error GoTo 0 End Sub ``` ...
End If 这样以明确的方式告知用户当前所产生的错误,并且结束当前的代码执行。 不需要再让用户做二选一的选择。 但是需要注意的是On error resume next也不要滥用。 在调用另一个过程时,On ErrorResume Next语句成为非活动的,所以,如果希望在例程中进行嵌入错误处理,则...
一、On Error语句的基本语法 在VBA中,On Error语句的基本语法如下所示: On Error Resume Next ' 执行可能会导致错误的代码 If Err.Number <> 0 Then ' 处理错误的代码 End If On Error GoTo 0 其中,On Error Resume Next语句告诉系统在出现错误时不立即停止程序的执行,而是继续执行下一条语句。如果在执行过...
标签"ExitSub"便签通常放在代码的最后,错误出现,从错误地方跳到这里执行代码."errorhandle:"这里错误号码Err.Number=0就是没有error,>0就是有error"IfErr.Number> 0 Then"有错误输出Err.Description&Err.Number跟OnErrorGoTo0的信息是一样的."MsgBox Err.Description & Err.Number'其他处理的代码end ifEnd Sub...
On Error GoTo Err_Handle MsgBox Cells.Find(12).Address Exit Sub '如果没有这个退出过程语句，会一直执行下去 Err_Handle:MsgBox ("不存在该数字")End Sub （1）、电子表中数据和代码 （2）、查找12的结果：（3）、查找13的结果：第二种捕捉方法：1、语法：On Error Resume Next '如果...