excel VBA其他另类循环语句

一般情况下，我们可以使用for...next ; do while 等顺序语句。这里介绍一些其他的循环语句。

需要注意的是结构化程序使用一般循环语句即可，建议不要轻易使用下面的语句，虽然VBA还支持。

1、Goto line 该语句为跳转到line语句行

2、On expression gosub destinatioinlist 或者 on expression goto destinationlist 语句为根据 exprssion表达式值来跳转到所要的行号或行标记

3、Gosub line…line…Return语句， Return 返回到 Gosub line行，如下例：

Sub gosubtry()
    
    Dim num    
    num = InputBox("输入一个数字，此值将会被判断循环")    
    If num > 0 Then GoSub Routine1: Debug.Print num: Exit Sub    
Routine1:
    
    num = num / 5    
    Return    
End Sub

4、while…wend语句，只要条件为TRUE，循环就执行，这是以前VB老语法保留下来的，如下例：

While Condition 'while I<50    
    [statements]  'I=I+1    
Wend  'Wend

摘自：Office教程学习网