(1)在过程中可能导致错误的代码行的前面添加错误处理语句On Error Goto ErrHandler,其中的“ErrHandler”为自定义的错误标签名称。 (2)在有可能导致错误的代码行后面添加取消错误处理的语句On Error Goto 0,这样当遇到错误时,就不会跳转到指定的错误标签处,而是直接显示错误提示窗口,其中包括【调试】、【结束】等按钮。
例如,下面的代码由于没有使用On Error Goto 0语句,因此,在后面遇到错误时(两次x/y),都会转到标签MyErr处执行错误处理程序。 SubErrTest()DimxAsInteger, yAsInteger, zAsSinglex=1y=0OnErrorGoToMyErrMsgBoxx /yMsgBoxx /yMsgBox"继续执行错误代码行的下一行代码"Exit SubMyErr:MsgBox"第 1 次:除数不能为 ...
例如,下面的代码由于没有使用On Error Goto 0语句,因此,在后面遇到错误时(两次x/y),都会转到标签MyErr处执行错误处理程序。 SubErrTest()DimxAsInteger, yAsInteger, zAsSinglex=1y=0OnErrorGoToMyErrMsgBoxx /yMsgBoxx /yMsgBox'继续执行错误代码行的下一行代码'Exit SubMyErr:MsgBox'第 1 次:除数不能为 ...
首先，当可能产生错误的代码行前添加On Error Goto ErrHandler，设置自定义错误标签。遇到错误时，如果没有On Error Goto 0，程序会直接跳转到错误标签，显示调试和结束选项。在宏或程序尾部， Exit Sub用于在无错误时终止错误处理，避免错误程序的执行。错误标签（如"MyErr:”）用于存放错误处理代码，可...
设置一个中间变量，比如为Sig,变量类型为boolen。在错误写入操作过程中，对Sig赋值为true。并且在写入过程之前加入判断Sig的值，如果Sig的值为true，就跳出错误写入过程，这样就可以避免重复写入。
(End,exit,onerrorgotoinVBA 代码1: 程序终⽌及退出⽅法 1 Option Explicit 2 3 '⼀、END语句 4 5 '作⽤:强制退出所有正在运⾏的程序。 6 7 '⼆、Exit语句 8 ...
On Error GoTo ErrorHandler '执行代码 MsgBox '程序正常执行' Exit Sub ErrorHandler: MsgBox '程序出现错误:' & Err.Description End Sub 在这个示例程序中,当程序执行到“On Error GoTo ErrorHandler”语句时,它会将错误处理程序设置为“ErrorHandler”。如果程序在执行过程中出现错误,它将跳转到“ErrorHandler”...
（End,exit,onerrorgotoinVBA 代码1：程序终⽌及退出⽅法 1Option Explicit 2 3'⼀、END语句 4 5'作⽤：强制退出所有正在运⾏的程序。6 7'⼆、Exit语句 8 9'退出指定的语句 10 11'1、Exit Sub 12Sub e1()13Dim x As Integer 14For x = 1To100 15 Cells(1, 1) = x 16If x = ...
Sub GotoLabel() Dim x As Long Dim y As Long On Error GoTo errH x = 6 y = 6 / 0 x = 7 Done: Exit Sub errH: MsgBox "发生了错误: "& Err.Description EndSub 运行代码的结果如下图5所示。 图5 运行上述VBA代码,代码执行到以...