do..while 循環使用當需要重複一組語句，隻要條件為真。所述條件可在循環開始或在循環結束時進行檢查。

語法:

VBA的 do..while 循環的語法是：

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

流程圖

示例:

下麵的示例使用do..while循環來檢查條件在循環的開始。隻有當條件變為真時循環內的語句執行。

Private Sub Constant_demo_Click()
  Do While i < 5
    i = i + 1
    msgbox "The value of i is : " & i
  Loop
End Sub

在執行上麵的代碼，它打印在消息框中下麵的輸出。

The value of i is : 1

The value of i is : 2

The value of i is : 3

The value of i is : 4

The value of i is : 5

替代語法：

此外，還有一個備用的語法do..while循環它檢查條件在循環的結束。這兩種語法之間的主要區彆，用一個例子說明如下。

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

示例:

下麵演示使用 do..while循環來檢查條件在循環的結束。循環內的語句執行atleast一次，即使條件為False。

Private Sub Constant_demo_Click() 
 i = 10
 Do
  i = i + 1
  MsgBox "The value of i is : " & i
 Loop While i < 3 'Condition is false.Hence loop is executed once.
End Sub

在執行上麵的代碼，它打印在消息框中下麵的輸出。

The value of i is : 11