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