On Error GoTo ERROR1 ' 指定下面的错误发生时直接跳转至Error1标号处 I = 2147483648# ' 发生错误,由于指定了跳转,故直接转至Error1,而不会再执行下面的语句 I = 100 Debug.Print "程序正常返回,当前I的值=" & I Exit Sub ERROR1: Debug.Print "发生错误,错误代码:" & Err.Number & " 错误信息" &...
Exit Sub MyErr: MsgBox " 第 1 次:除数不能为 0" Resume Next End Sub 而下面的代码由于及时使用了On Error Goto 0语句,因此,在第2次错误发生时(即第2个x/y),系统将显示内置错误消息,而不是运行MyErr标签处的代码。 Sub ErrTest1() Dim x As Integer, y As Integer, z As Single x = 1 y =...
题目 在任意形式的 Resume 或 On Error 语句之后以及在错误处理子程序内的 Exit Sub、Exit Function、或 Exit Property 语句之后,将 Err 对象的属性重新设置为___ 。 A.零 B.长度为零的字符串 ("") C.零或长度为零的字符串 ("") D.Empty 相关知识点: 试题来源: 解析 C 反馈 收藏 ...
“启用的”错误处理程序是指由On Error语句打开的错误处理程序;“活动”错误处理程序是指处理错误的过程中启用的处理程序。 如果在错误处理程序处于活动状态时发生错误, (错误发生与) 的 Resume、Exit Sub、Exit 函数或Exit Property语句之间发生错误,则当前过程的错误处理程序无法处理该错误。 控制权将返回给调用过程...
Exit Sub myERR:MsgBox i & "处发生错误，不能计算 "Resume Next End Sub 代码的解读：1) On Error Resume Next 代码首先加入一个错误处理语句，如果发生错误，忽略错误，继续执行下面的语句。2）i = 1 T1 = 1 / 0 这里会发生一个错误，就是除数为零。但是，没有任何的显示。3）On Error GoTo myERR...
(2)在有可能导致错误的代码行后面添加取消错误处理的语句On Error Goto 0,这样当遇到错误时,就不会跳转到指定的错误标签处,而是直接显示错误提示窗口,其中包括【调试】、【结束】等按钮。 (3)在宏的末尾(正常程序的末尾)添加代码行Exit Sub,这样可以避免程序未发生错误时执行错误处理程序。
VBA的 程序终止、退出语句块、分支及错误处理( End,exit,onerrorgotoinVBA 代码1: 程序终止及退出方法 1 Option Explicit 2 3 '一、END语句 4 5 '作用:强制退出所有正在运行的程序。 6 7 '二、Exit语句 8 9 '退出指定的语句 10 11 '1、Exit Sub 12 Sub e1() 13 Dim x As Integer 14 For x = ...
11 '1、Exit Sub 12 Sub e1() 13 Dim x As Integer 14 For x = 1 To 100 15 Cells(1, 1) = x 16 If x = 5 Then 17 Exit Sub 18 End If 19 Next x 20 Range('b1') = 100 21 End Sub 22 '2、Exit function 23 Function ff() ...
End Sub 'gosub..return ,跳过去,再跳回来 Sub t2() Dim x As Integer For x = 1 To 10 If Cells(x, 1) Mod 2 = 0 Then GoSub 100 Next x Exit Sub 100: Cells(x, 1) = '偶数' Return '跳到gosub 100 这一句 End Sub 'on error resume next '遇到错误,跳过继续执行下一句 ...