On Error Resume Next'如果遇到错误,不管错误,继续往下执行,但如果嵌套了其他错误处理语句,这些错误处理语句还是会按照自己规则运行 语句xxxx On Error GoTo 0 ’结束错误捕捉 2、举例代码: Sub 查找数字() Dim i As Integer On Error Resume Next '遇到错误向下执行 MsgBox Cells.Find(13).Address On Error GoT...
注意:当使用On Error Resume Next语句后,应该及时在可能导致错误的代码行之后使用On Error Goto 0语句恢复错误的捕获,即恢复到错误检查的正常状态,以便可以获悉其他任何可能发生的错误。另外,如果使用On Error Resume Next语句忽略了无法忽略的错误,将会立刻结束当前运行的过程。而更糟糕的是,如果宏1调用宏2,但宏2...
1 VBA中错误捕捉的方法主要有两种第一种捕捉方法：1、语法：On Error GoTo Err_Handle '如果遇到错误就跳转到错误处理代码语句xxxxxExit Sub/Function（如果没有这条语句，即使没有错误也会执行错误处理语句） Err_Handle: 语句xxxxxx2、举例：Sub 查找数字() ’本段代码查找电子表格中有没有数字12 On ...
On Error Resume Next'如果遇到毛病,不管毛病,继续往下履行,但如果嵌套了其他毛病处理语句,这些毛病处理语句还是会依照自己规则运行 语句xxxx On Error GoTo 0 ’结束毛病捕捉 2、举例代码: Sub 查找数字() Dim i As Integer On Error Resume Next '遇到毛病向下履行 MsgBox Cells.Find(13).Address On Error GoT...
1.On Error GoTo 0 代码停止运行在出现错误的行并显示错误消息。 2.On Error GoTo [标签] 当错误发生时,代码移至指定的行或标签处,不会显示错误消息。 3.On Error GoTo -1 清除当前错误。 4.On Error Resume Next 当错误发生时,代码移至下一...
1.On Error GoTo 0 代码停止运行在出现错误的行并显示错误消息。 2.On Error GoTo [标签] 当错误发生时,代码移至指定的行或标签处,不会显示错误消息。 3.On Error GoTo -1 清除当前错误。 4.On Error Resume Next 当错误发生时,代码移至下一行继续执行,不会显示错误消息。
On Error GoTo MyErr wksName = Worksheets("sx").Name MyErr: msg = " 错误 " & Err.Number & " : " & Err.Description MsgBox msg End Sub 注意:无论在导致问题的代码行前面使用On Error Resume Next语句还是“On Error Goto标签”语句,要想让程序重新获取其他错误信息,则都必须在导致问题的代码行后...
一、Resume语句与Goto语句相同点: 二、Resume语句与Goto语句区别(不同点): 三、不同场景使用不同的语句(示例) 四、相关知识点: 1:goto语句用途和局限性 2:goto语句的语法 3. 使用On Error Goto 0 语句,让系统重新接管错误的处理 4、Err对象提供的属性。 5、Err对象提供的方法。 Excel VBA与Access VBA 错误...
On Error GoTo 1 Call test2 Call test3 Call test4 Exit Sub 1: MsgBox "test" End Sub Sub test2() On Error Resume Next Dim sht As Worksheet Set sht = Worksheets(20) MsgBox sht.Name Exit Sub 2: MsgBox "test2" End Sub Sub test3() ...
On ErrorGoTolabel/Line :有错误的时候跳到标签或者行 On ErrorResume Next :跳过错误直接执行下一行 一般常见的设置是这样的, 前面设置一个On Error GoTo 标签, 后面标签里面含错误处理. 如下面例子: Subtest()"有错误跳到标签errorhandle"OnErrorGoToerrorhandle:...'你的代码"代码执行到这里没有错误的话, ...