程序在运行过程中我们可以用On Error Resume Next语句屏蔽掉某段代码中可能出现的预知的不要处理的错误，如果接下来，一切是未知的，我们需要启动错误处理或者错误的捕获，就可以用On Error GoTo 0 来实现。2 On Error GoTo 0 语句的实例应用 为了更好地理解On Error GoTo 0语句，我们来看下面的代码：Sub mynz...
2 在有可能导致错误的代码行后面添加取消错误处理的语句 On Error Goto 0 ，这样当遇到错误时，就不会跳转到指定的错误标签处，而是直接显示错误提示窗口，其中包括【调试】、【结束】等按钮。3 在过程的末尾（正常程序的末尾）添加代码行 Exit Sub ，这样可以避免程序未发生错误时执行错误处理程序。在代码行 Ex...
VBA的异常处理机制通过On Error Goto语句实现。首先，当可能产生错误的代码行前添加On Error Goto ErrHandler，设置自定义错误标签。遇到错误时，如果没有On Error Goto 0，程序会直接跳转到错误标签，显示调试和结束选项。在宏或程序尾部， Exit Sub用于在无错误时终止错误处理，避免错误程序的执行。错误标...
On Error GoTo MyErr MsgBox x / y On Error GoTo 0 MsgBox x / y MsgBox " 继续执行错误代码行的下一行代码 " Exit Sub MyErr: MsgBox " 第 1 次:除数不能为 0" Resume Next End Sub 下面的代码虽然未使用On Error Goto 0语句,但是在第2个错误发生前,添加了第2个错误标签,因此,两个错误处理程序...
(2)在有可能导致错误的代码行后面添加取消错误处理的语句On Error Goto 0,这样当遇到错误时,就不会跳转到指定的错误标签处,而是直接显示错误提示窗口,其中包括【调试】、【结束】等按钮。 (3)在宏的末尾(正常程序的末尾)添加代码行Exit Sub,这样可以避免程序未发生错误时执行错误处理程序。
on error resume next 表示忽略所有错误继续执行下一语句，如果还有错就再往下 on error goto 0 表示出现错误时不进行转向，直接中断执行 on error goto <标号> 表示出现错误时转到标号处执行 我个人是这么做的：private sub xxx()on error goto errhap ...exit sub '此句必要 errhap:exit sub e...
第一种捕捉方法：1、语法：On Error GoTo Err_Handle '如果遇到错误就跳转到错误处理代码 语句xxxxx Exit Sub/Function（如果没有这条语句，即使没有错误也会执行错误处理语句）Err_Handle: 语句 xxxxxx 2、举例：Sub 查找数字() ’本段代码查找电子表格中有没有数字12 On Error GoTo Err_Handle...
Exit Sub errH: MsgBox "发生了错误: "& Err.Description EndSub 运行代码的结果如下图5所示。 图5 运行上述VBA代码,代码执行到以0作为除数这一行时,发生错误,代码跳至On Error GoTo语句指定的标签errH处。 On Error GoTo -1 这个语句用于清除当...
On Error GoTo Err_Handle i = 10 / 0 ’会跳转到错误处理语句,而不会运行 Exit sub Exit Sub Err_Handle: MsgBox i On Error Resume Next End Sub 3、结果说明和图例: excel表中没有13这个数字,但是不会报错也不会有弹窗 在On Error Resume Next 和 Err_Handle之间代码,还是可以发挥错误捕获功能,因此...