1、语法: On Error GoTo Err_Handle'如果遇到毛病就跳转到毛病处理代码 语句xxxxx Exit Sub/Function(如果没有这条语句,即便没有毛病也会履行毛病处理语句) Err_Handle: 语句 xxxxxx 2、举例: Sub 查找数字() ’本段代码查找电子表格中有无数字12 On Error GoTo Err_Handle MsgBox Cells.Find(12).Address Ex...
而下面的代码由于及时使用了On Error Goto 0语句,因此,在第2次错误发生时(即第2个x/y),系统将显示内置错误消息,而不是运行MyErr标签处的代码。 1SubErrTest1()23DimxAsInteger, yAsInteger, zAsSingle45x =167y =089OnErrorGoToMyErr1011MsgBoxx /y1213OnErrorGoTo01415MsgBoxx /y1617MsgBox"继续执行错误代码...
On Error GoTo MyErr wksName = Worksheets("sx").Name MyErr: msg = " 错误 " & Err.Number & " : " & Err.Description MsgBox msg End Sub 注意:无论在导致问题的代码行前面使用On Error Resume Next语句还是“On Error Goto标签”语句,要想让程序重新获取其他错误信息,则都必须在导致问题的代码行后...
MsgBox "错误代码: " & Err.Number & vbCrLf & _"错误描述: " & Err.Description & vbCrLf & _"错误来源: " & Err.Source, vbCritical Resume ExitProcedure End Sub 代码截图：代码解析：1 上述mynz过程在开始利用了On Error GoTo ErrHandler语句，代表在执行代码中发现了运行错误，就转跳到“ErrHandler”...
首先，当可能产生错误的代码行前添加On Error Goto ErrHandler，设置自定义错误标签。遇到错误时，如果没有On Error Goto 0，程序会直接跳转到错误标签，显示调试和结束选项。在宏或程序尾部， Exit Sub用于在无错误时终止错误处理，避免错误程序的执行。错误标签（如"MyErr:”）用于存放错误处理代码，可...
(1)在过程中可能导致错误的代码行的前面添加错误处理语句On Error Goto ErrHandler,其中的“ErrHandler”为自定义的错误标签名称。 (2)在有可能导致错误的代码行后面添加取消错误处理的语句On Error Goto 0,这样当遇到错误时,就不会跳转到指定的错误标签处,而是直接显示错误提示窗口,其中包括【调试】、【结束】等按钮...
On Error GoTo 0 End Sub 在上述示例中,当程序执行到"x = 10 / 0"这行代码时,由于使用了On Error Resume Next语句,程序会忽略除零错误并继续执行下一行代码。最后,使用On Error GoTo 0关闭错误处理。 4.使用Err对象获取错误信息 除了使用On Error语句处理错误外,还可以使用Err对象获取更详细的错误信息。Err...
第一种捕捉方法：1、语法：On Error GoTo Err_Handle '如果遇到错误就跳转到错误处理代码 语句xxxxx Exit Sub/Function（如果没有这条语句，即使没有错误也会执行错误处理语句）Err_Handle: 语句 xxxxxx 2、举例：Sub 查找数字() ’本段代码查找电子表格中有没有数字12 On Error GoTo Err_Handle...
On Error GoTo errLine '遇到错误时,跳转到 errLine 行 errLine: Debug.Print Err.Description & Err.Number '在后台输出错误原因 Stop 暂停 运行到此处,程序会暂停执行,相当于在对应的位置打断点: Stop End 结束 当程序运行到 End 语句时,立即结束当前运行的所有 VBA 过程和函数。
On Error GoTo Err_Handle MsgBox Cells.Find(12).Address Exit Sub '如果没有这个退出过程语句,会一直执行下去 Err_Handle: MsgBox ("不存在该数字") End Sub (1)、电子表中数据和代码 (2)、查找12的结果: (3)、查找13的结果: 第二种捕捉方法: ...