给VBA新手的一个错误处理的例子

十年磨一剑

今天看到一个有意思的例子。

VBA新看看，体会一下，其中的原理，体会一下，一切尽在不言中（按F8一步一步运行看）：

Sub 试验()
    Dim a%
   
    On Error GoTo err1
goto1:    For a = 1 To 10
              MsgBox a / 0
          Next
   
exit_1:
    GoTo goto1
err1:
    Resume exit_1
   
End Sub
Sub 试验1()
    Dim a%
   
    On Error GoTo err1
goto1:    For a = 1 To 10
              MsgBox a / 0
          Next
   
'exit_1:
'    GoTo goto1
err1:
    GoTo goto1
   ' Resume exit_1
   
End Sub

守柔

谢谢十年兄！

 

hhzjxss

QUOTE:

以下是引用十年磨一剑在2006-10-26 20:31:57的发言：

今天看到一个有意思的例子。

VBA新看看，体会一下，其中的原理，体会一下，一切尽在不言中（按F8一步一步运行看）：

Sub 试验()
    Dim a%
   
    On Error GoTo err1
goto1:    For a = 1 To 10
              MsgBox a / 0
          Next
   
exit_1:
    GoTo goto1
err1:
    Resume exit_1

这个好像是死循环，一真运行不能停止呀？？？？？

sylun

这样好像可以运行一遍：

Sub 试验()
    Dim a%
   
    On Error GoTo err1
        For a = 1 To 10
              MsgBox a / 0
goto1:  Next
Exit Sub
exit_1:
    GoTo goto1
err1:
    Resume exit_1
End Sub