设置一个中间变量，比如为Sig,变量类型为boolen。在错误写入操作过程中，对Sig赋值为true。并且在写入过程之前加入判断Sig的值，如果Sig的值为true，就跳出错误写入过程，这样就可以避免重复写入。
首先，当可能产生错误的代码行前添加On Error Goto ErrHandler，设置自定义错误标签。遇到错误时，如果没有On Error Goto 0，程序会直接跳转到错误标签，显示调试和结束选项。在宏或程序尾部， Exit Sub用于在无错误时终止错误处理，避免错误程序的执行。错误标签（如"MyErr:”）用于存放错误处理代码，可...
(1)在过程中可能导致错误的代码行的前面添加错误处理语句On Error Goto ErrHandler,其中的“ErrHandler”为自定义的错误标签名称。 (2)在有可能导致错误的代码行后面添加取消错误处理的语句On Error Goto 0,这样当遇到错误时,就不会跳转到指定的错误标签处,而是直接显示错误提示窗口,其中包括【调试】、【结束】等按钮。
(2)在有可能导致错误的代码行后面添加取消错误处理的语句On Error Goto 0,这样当遇到错误时,就不会跳转到指定的错误标签处,而是直接显示错误提示窗口,其中包括【调试】、【结束】等按钮。 (3)在宏的末尾(正常程序的末尾)添加代码行Exit Sub,这样可以避免程序未发生错误时执行错误处理程序。
(2)在有可能导致错误的代码行后面添加取消错误处理的语句On Error Goto 0,这样当遇到错误时,就不会跳转到指定的错误标签处,而是直接显示错误提示窗口,其中包括【调试】、【结束】等按钮。 (3)在宏的末尾(正常程序的末尾)添加代码行Exit Sub,这样可以避免程序未发生错误时执行错误处理程序。
on error goto 语句的确是可以跳到指定位置执行需要代码,但是如果程序没错,而跳转语句在该代码段后面是也会被执行的,因为你在error_1之前没先跳出这段代码.修改方法:在error_1和End If之间加一句Exit Sub即可.
第一种捕捉方法：1、语法：On Error GoTo Err_Handle '如果遇到错误就跳转到错误处理代码 语句xxxxx Exit Sub/Function（如果没有这条语句，即使没有错误也会执行错误处理语句）Err_Handle: 语句 xxxxxx 2、举例：Sub 查找数字() ’本段代码查找电子表格中有没有数字12 On Error GoTo Err_Handle...
On Error GoTo ErrorHandler '执行代码 MsgBox '程序正常执行' Exit Sub ErrorHandler: MsgBox '程序出现错误:' & Err.Description End Sub 在这个示例程序中,当程序执行到“On Error GoTo ErrorHandler”语句时,它会将错误处理程序设置为“ErrorHandler”。如果程序在执行过程中出现错误,它将跳转到“ErrorHandler”...
当加上de>On Error Goto 0de>语句后，如果后面的程序出现"运行时错误 "，会显示"出错信息"并停止程序的执行。de>Errde>对象保存了“错误信息”下面结合例子讲解On Error Resume Next，On Error Goto 0，Err这三者 没有加上On Error Resume Next语句 如果没有加上On Error Resume Next语句，当出现"运行时错误...