1. On Error Goto语句的基本语法 On Error Goto语句的基本语法如下: On Error Goto label 其中,label表示标签,是一个用户定义的标识符。通俗的讲,如果在程序运行过程中出现异常情况,程序会跳转到On Error Goto语句后面的标识符处。 2. On Error Goto语句的作用 On Error Goto语句的主要作用是实现程序的异常处理...
要清除已发生的错误,使用On Error GoTo -1。在下面的代码中,我们添加了该语句,这样第二个错误会导致代码跳至errH_Two标签处: Sub TwoErrors() On Error GoTo errH '产生"类型不匹配"错误 Error (13) Done: Exit Sub errH: '清除错误 On Err...
复制 Private SubCommand1_Click()On Error Resume Next Print1/0Print"刘金玉"End Sub Private SubCommand2_Click()GoTo web2 Print"刘金玉"web:Print"ljy.kim"web2:Print"selidev.com"GoTo web End Sub Private SubCommand3_Click()On Error GoTo err1 Callcal(1,3)Print"刘金玉"Print"刘金玉编程"err1:Msg...
(1)在过程中可能导致错误的代码行的前面添加错误处理语句On Error Goto ErrHandler,其中的“ErrHandler”为自定义的错误标签名称。 (2)在有可能导致错误的代码行后面添加取消错误处理的语句On Error Goto 0,这样当遇到错误时,就不会跳转到指定的错误标签处,而是直接显示错误提示窗口,其中包括【调试】、【结束】等按钮。
出错跳转 err 是你要分析的模块 例如：On Error GoTo Err 中间代码 如果有错 err:出错分析 。。。也可以：On Error GoTo bar 中间代码 如果有错 bar:出错分析 '''如果是 On Error GoTo next 那就是忽视错误一直往下走。
on error resume next 表示忽略所有错误继续执行下一语句，如果还有错就再往下 on error goto 0 表示出现错误时不进行转向，直接中断执行 on error goto <标号> 表示出现错误时转到标号处执行 我个人是这么做的：private sub xxx()on error goto errhap ...exit sub '此句必要 errhap:exit sub e...
On error goto err1 Err1: 处理语句 注意:goto标签只能出现在function或者sub的内部 二、代码调试 调试步骤 1、下断点。程序运行到断电的位置会暂停 2、使用f8按键可以进入到程序代码中,可以进入到function或者sub中去调试。Shfit+f8是指一行行代码执行。Ctrl+shift+f8意味着,可以直接跳出function或者sub ...
On Error GoTo ERROR1 ' 指定下面的错误发生时直接跳转至Error1标号处 I = 2147483648# ' 发生错误,由于指定了跳转,故直接转至Error1,而不会再执行下面的语句 I = 100 Debug.Print "程序正常返回,当前I的值=" & I Exit Sub ERROR1: Debug.Print "发生错误,错误代码:" & Err.Number & " 错误信息" ...
On error goto err1 Err1: 处理语句 注意:goto标签只能出现在function或者sub的内部 二、代码调试 调试步骤 1、下断点。程序运行到断电的位置会暂停 2、使用f8按键可以进入到程序代码中,可以进入到function或者sub中去调试。Shfit+f8是指一行行代码执行。Ctrl+shift+f8意味着,可以直接跳出function或者sub ...
On Error GoTo -1 这个语句用于清除当前发生的错误。如果又发生另一个错误,代码将在发生错误行停止。 如下面的代码所示: Sub TwoErrors() On Error GoTo errH '产生"类型不匹配"错误 Error (13) Done: Exit Sub errH: '产生"应用程序定义"错误