VBA do...until循环

Do..Until循环使用于当需要重复一组语句，只到条件为假。所述条件可在循环开始或在循环结束时进行检查。

语法:

VBA的Do..Until循环的语法是：

Do Until condition
   [statement 1]
   [statement 2]
   ...
   [statement n]
   [Exit Do]
   [statement 1]
   [statement 2]
   ...
   [statement n]
Loop

流程图

示例:

下面的示例使用Do..Until循环来检查条件在循环的开始。循环内的语句执行只有在条件为假时。当条件为真时循环退出。

Private Sub Constant_demo_Click() 
  i=10
  Do Until i>15  'Condition is False.Hence loop will be executed
    i = i + 1
    msgbox ("The value of i is : " & i)
  Loop 
End Sub

在执行上面的代码，它打印在消息框中下面的输出。

The value of i is : 11

The value of i is : 12

The value of i is : 13

The value of i is : 14

The value of i is : 15

The value of i is : 16

替代语法：

此外，还有一个备用的语法Do..Until环路检查条件在循环的结束。这两种语法之间的主要区别，用一个例子说明如下。

Do 
   [statement 1]
   [statement 2]
   ...
   [statement n]
   [Exit Do]
   [statement 1]
   [statement 2]
   ...
   [statement n]
Loop Until condition

流程图

例如：

下面的示例使用Do..Until循环来检查条件在循环的结束。循环内的语句执行atleast一次，即在条件为真时。

Private Sub Constant_demo_Click()  
  i=10
  Do 
    i = i + 1
    msgbox "The value of i is : " & i
  Loop Until i<15 'Condition is True.Hence loop is executed once.
End Sub

在执行上面的代码，它打印在消息框中下面的输出。

The value of i is : 11