而下面的代码由于及时使用了On Error Goto 0语句,因此,在第2次错误发生时(即第2个x/y),系统将显示内置错误消息,而不是运行MyErr标签处的代码。 1SubErrTest1()23DimxAsInteger, yAsInteger, zAsSingle45x =167y =089OnErrorGoToMyErr1011MsgBoxx /y1213OnErrorGoTo01415MsgBoxx /y1617MsgBox"继续执行错误代码...
在Word VBA中,On Error GoTo 语句用于错误处理,当运行时错误发生时,程序会跳转到指定的标签或行号处执行错误处理代码。 On Error GoTo 语句的基本用法 语法: vba On Error GoTo 标签名 或者 vba On Error GoTo 行号 说明: 标签名:一个在同一过程中定义的标签,用于标识错误处理代码的位置。 行号:一个在同一...
On Error GoTo errH x = 6 y = 6 / 0 x = 7 Done: Exit Sub errH: MsgBox "发生了错误: "& Err.Description EndSub 运行代码的结果如下图5所示。 图5 运行上述VBA代码,代码执行到以0作为除数这一行时,发生错误,代码跳至On Error GoTo 语句指定的标签errH处。 On Error GoTo -1 这个语句用于清...
On Error Goto ErrorHandler命令告诉 VBA:如果发生错误,跳转到ErrorHandler代码段。 如果程序正常运行,不会跳转到ErrorHandler,而是按顺序执行代码。 一旦遇到错误,VBA 会立即跳转到ErrorHandler代码段,而不会执行错误语句之后的代码。 在ErrorHandler代码段,我们可以使用Err对象来获取错误信息,并采取适当的处理措施。 通常...
下面的代码虽然未使用 On Error Goto 0 语句,但是在第 2 个错误发生前,添加了第2 个错误标签,因此,两个错误处理程序分别处理各自的错误。 Sub ErrTest2() Dim x As Integer, y As Integer, z As Single x = 1 y = 0 On Error GoTo MyErr1 MsgBox x / y On Error GoTo MyErr2 MsgBox x / y...
On Error GoTo errH '忽略接下来语句行发生的错误 On Error Resume Next x = 1 / 0 '接下来语句行发生错误,显示错误消息 On Error GoTo 0 x = 1 / 0 Done: Exit Sub errH: Debug.Print Err.Description End Sub 运行上述代码后的结...
正确的错误处理是编写稳定VBA代码的关键。通过检测并处理意外情况，可以提高程序的健壮性和用户体验。综上所述，VBA中的On Error Goto语句是实现异常处理的重要工具，通过设置错误标签、使用Exit Sub和Resume Next语句，以及合理运用On Error Resume Next和On Error Goto 0，开发者可以确保程序的稳定性和...
1 VBA中错误捕捉的方法主要有两种第一种捕捉方法：1、语法：On Error GoTo Err_Handle '如果遇到错误就跳转到错误处理代码语句xxxxxExit Sub/Function（如果没有这条语句，即使没有错误也会执行错误处理语句） Err_Handle: 语句xxxxxx2、举例：Sub 查找数字() ’本段代码查找电子表格中有没有数字12 On ...
首先，当可能产生错误的代码行前添加On Error Goto ErrHandler，设置自定义错误标签。遇到错误时，如果没有On Error Goto 0，程序会直接跳转到错误标签，显示调试和结束选项。在宏或程序尾部， Exit Sub用于在无错误时终止错误处理，避免错误程序的执行。错误标签（如"MyErr:”）用于存放错误处理代码，可...
On Error GoTo Err_Handle MsgBox Cells.Find(12).Address Exit Sub '如果没有这个退出过程语句,会一直执行下去 Err_Handle: MsgBox ("不存在该数字") End Sub (1)、电子表中数据和代码 (2)、查找12的结果: (3)、查找13的结果: 第二种捕捉方法: ...