1SubErrTest2()23DimxAsInteger, yAsInteger, zAsSingle45x =167y =089OnErrorGoToMyErr11011MsgBoxx /y1213OnErrorGoToMyErr21415MsgBoxx /y1617MsgBox"继续执行错误代码行的下一行代码"1819Exit Sub2021MyErr1:2223MsgBox"第 1 次:除数不能为 0"2425ResumeNext2627MyErr2:2829MsgBox"第 2 次:除数不能为 0"...
Sub MainSub() On Error GoTo NotifyandCorrect Call Sub1 Call Sub2 ... Call Sub15 Exit Sub NotifyandCorrect: 'Send copy of faulty file, the error code and Sub that caused it 'Then stop macro execution completely End Sub Sub Sub1() On Error Exit Sub1 and raise current E...
② On Error Resume Next ③ Resume line（NEXT）④ On Error GoTo 0 一一般的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...
所以exit sub是不可缺少的。程序有两个流程,一个是正常流程,一个是错误处理流程。 4. 对于错误处理,除了on error goto外,还有一个语句on error resume next。它的意思是,从下一句开始执行,如果某行出错,就忽略它并继续执行。下面是一个示例。 Dim i as integer i=cells(3,2) on error resume next i=i^...
Exit Sub End If 这样以明确的方式告知用户当前所产生的错误,并且结束当前的代码执行。 不需要再让用户做二选一的选择。 但是需要注意的是On error resume next也不要滥用。 在调用另一个过程时,On ErrorResume Next语句成为非活动的,所以,如果希望在例程中进行嵌入错...
Exit Sub/Function(如果没有这条语句,即使没有错误也会执行错误处理语句) Err_Handle: 语句 xxxxxx 2、举例: Sub 查找数字() ’本段代码查找电子表格中有没有数字12 On Error GoTo Err_Handle MsgBox Cells.Find(12).Address Exit Sub '如果没有这个退出过程语句,会一直执行下去 ...
Exit 'Sub'退出’Sub子过程 On error resume next'如果发生错误,忽略继续执行。 On error goto 1'如果发生错误,跳到自动区域。1: Application.CutCopyMode = False'设置不处于复制模式,防止提醒 Application.DisplayAlerts = False'在程序执行过程中使出现的警告框不显示。
1、语法：On Error GoTo Err_Handle '如果遇到错误就跳转到错误处理代码 语句xxxxx Exit Sub/Function（如果没有这条语句，即使没有错误也会执行错误处理语句）Err_Handle: 语句 xxxxxx 2、举例：Sub 查找数字() ’本段代码查找电子表格中有没有数字12 On Error GoTo Err_Handle MsgBox Cells....
ErrorHandler: ' 处理错误的代码 其中,On Error GoTo ErrorHandler表示如果代码中出现错误,程序将跳转到ErrorHandler标签处继续执行。如果没有出现错误,则不会执行ErrorHandler标签处的代码。Exit Sub或Exit Function表示在没有出现错误的情况下,程序将直接退出当前子过程或函数,不会执行后面的代码。
2) 在有可能导致错误的代码行后面添加取消错误处理的语句 On Error Goto 0 ,这样当遇到错误时,就不会跳转到指定的错误标签处,而是直接显示错误提示窗口,其中包括【调试】、【结束】等按钮。 3) 在过程的末尾(正常程序的末尾)添加代码行 Exit Sub ,这样可以避免程序未发生错误时执行错误处理程序。在代码行 Exit ...