1Sub检测工作表是否存在()23DimWksNameAsString45OnErrorResumeNext67WksName = Worksheets("sx").Name89IfErr.Number <>0Then1011MsgBoxprompt:="此工作簿中未找到工作表 sx", Title:="错误"1213EndIf1415OnErrorGoTo01617End Sub 注意:当使用On Error Resume Next语句后,应该及时在可能导致错误的代码行之后使...
(1)在过程中可能导致错误的代码行的前面添加错误处理语句On Error Goto ErrHandler,其中的“ErrHandler”为自定义的错误标签名称。 (2)在有可能导致错误的代码行后面添加取消错误处理的语句On Error Goto 0,这样当遇到错误时,就不会跳转到指定的错误标签处,而是直接显示错误提示窗口,其中包括【调试】、【结束】等按钮。
在调用另一个过程时,On ErrorResume Next语句成为非活动的,所以,如果希望在例程中进行嵌入错误处理,则应在每一个调用的例程中执行On Error Resume Next语句。 下面的测试代码大家可以F8单步测试。 Sub test() On Error Resume Next Dim sht As Worksheet Set sht = ...
在上述示例中,On Error GoTo ErrorHandler语句指定了在发生错误时跳转到ErrorHandler标签处理错误。For循环中的代码是循环体,如果在执行过程中发生错误,则会跳转到ErrorHandler标签处理错误。在ErrorHandler标签处,可以执行错误处理代码,例如记录错误信息、显示错误提示等。Resume Next语句用于继续执行循环体代码,直到循环结束...
On ErrorGoTolabel/Line :有错误的时候跳到标签或者行 On ErrorResume Next :跳过错误直接执行下一行 一般常见的设置是这样的, 前面设置一个On Error GoTo 标签, 后面标签里面含错误处理. 如下面例子: Subtest()"有错误跳到标签errorhandle"OnErrorGoToerrorhandle:...'你的代码"代码执行到这里没有错误的话, ...
On ErrorGoTolabel/Line :有错误的时候跳到标签或者行 On ErrorResume Next :跳过错误直接执行下一行 一般常见的设置是这样的, 前面设置一个On Error GoTo 标签, 后面标签里面含错误处理. 如下面例子: Subtest()"有错误跳到标签errorhandle"OnErrorGoToerrorhandle:...'你的代码"代码执行到这里没有错误的话, ...
On Error Goto -1 清除当前错误设置并恢复为默认值。 On Error Resume Next 忽略错误,代码继续运行。 On Error Goto [标签] 当发生错误时,跳转到指定的标签处执行。 Err对象 当发生错误时,存储错误信息的对象。 Err.Number 错误编号。可以在需要检查发生指定...
52 If x = 5 Then 53 Exit Do 54 End If 55 Loop Until x = 100 56 Range('b1') = 100 57 End Sub 代码2: 分支及跳转方法 1 Option Explicit 2 3 'Goto语句,跳转到指定的地方 4 5 Sub t1() 6 Dim x As Integer 7 Dim sr 8 100: ...
Goto语句还有个非常棒的用法——程序调试和容错。我们先看一个忽略错误的例子。 3、on error resume next ——遇到错误忽略,继续执行下一句 这个语句就是遇到错误跳过继续执行下一句,把它放在代码前面就可以忽略整段代码的错误了。 有没有高级一点的?比如我在调试程序,我想知道出错的位置,或我想让程序出错后执行我...
'定义两个变量，a用来存储要查找的值所在行，b用来接收Match函数返回的结果以便下一步处理 ...