而下面的代码由于及时使用了On Error Goto 0语句,因此,在第2次错误发生时(即第2个x/y),系统将显示内置错误消息,而不是运行MyErr标签处的代码。 1SubErrTest1()23DimxAsInteger, yAsInteger, zAsSingle45x =167y =089OnErrorGoToMyErr1011MsgBoxx /y1213OnErrorGoTo01415MsgBoxx /y1617MsgBox"继续执行错误代码...
1. On Error GoTo ErrorHandler 语句的作用 在VBA 中,On Error GoTo ErrorHandler 语句用于指定当运行时错误发生时,程序应跳转到标签为 ErrorHandler 的代码段进行处理。这种方式允许开发者编写自定义的错误处理逻辑,比如记录错误信息、清理资源、提供用户友好的错误提示等,从而提高程序的健壮性和用户体验。 2. Error...
1、语法: On Error Resume Next'如果遇到毛病,不管毛病,继续往下履行,但如果嵌套了其他毛病处理语句,这些毛病处理语句还是会依照自己规则运行 语句xxxx On Error GoTo 0 ’结束毛病捕捉 2、举例代码: Sub 查找数字() Dim i As Integer On Error Resume Next '遇到毛病向下履行 MsgBox Cells.Find(13).Address On...
On Error语句语法可具有以下任意形式: 语句说明 在错误 GoTo行上启用错误处理例程,该例程从所需行参数中指定的行开始。 line参数是任何行标签或行号。 如果发生运行时错误,控制分支到行,使错误处理程序处于活动状态。 指定的line必须与On Error语句在同一个过程中;否则将出现编译时错误。
On Error Goto语句步骤: (1)在过程中可能导致错误的代码行的前面添加错误处理语句On Error Goto ErrHandler,其中的“ErrHandler”为自定义的错误标签名称。 (2)在有可能导致错误的代码行后面添加取消错误处理的语句On Error Goto 0,这样当遇到错误时,就不会跳转到指定的错误标签处,而是直接显示错误提示窗口,其中包括...
在Word 、 Excel 乃至其他支持 VBA 的 Office 组件中,在代码中处理错误的方式通常都是使用“On Error Goto错误标签”语句,然后在代码的后面添加错误标签及其中包含的错误处理代码。下面总结了创建错误处理程序的步骤: (1)在过程中可能导致错误的代码行的前面添加错误处理语句On Error Goto ErrHandler,其中的“ErrHandle...
运行上述VBA代码,代码执行到以0作为除数这一行时,发生错误,代码跳至On Error GoTo语句指定的标签errH处。 On Error GoTo -1 这个语句用于清除当前发生的错误。如果又发生另一个错误,代码将在发生错误行停止。 如下面的代码所示: Sub TwoErrors() On...
VBA的异常处理机制通过On Error Goto语句实现。首先，当可能产生错误的代码行前添加On Error Goto ErrHandler，设置自定义错误标签。遇到错误时，如果没有On Error Goto 0，程序会直接跳转到错误标签，显示调试和结束选项。在宏或程序尾部， Exit Sub用于在无错误时终止错误处理，避免错误程序的执行。错误...
On Error GoTo 0 第三种是vba默认的错误处理方式:发生错误时,立即终止代码运行,并用对话框显示错误信息,不好理解的话看下面两个例子 Sub errortest7() Debug.Print 1 / 0 Debug.Print "Err.Number:"; Err.Number Debug.Print "Err.Description:"; Err.Description ...
一一般的VBA错误处理语句 为了说明上面的几个语句，我们简单的写几行代码，如下：Sub mynz_37()On Error GoTo ErrHandler k = 1 / 0 ExitProcedure:On Error Resume Next k = 1 / 0 + 1 MsgBox k Exit Sub ErrHandler:MsgBox "错误代码: " & Err.Number & vbCrLf & _"错误描述: " & Err....