VBA Do...While循環

一個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

備用/替代語法

另外還有一個替代語句for...while循環，用於在循環結束時檢查條件。下面的例子解釋了這兩種語法的主要區別。語法 -

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

示例

以下示例使用Do...while循環來檢查循環結束時的條件。循環內的語句至少執行一次，即使條件為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

當上面的代碼被執行時，它會在消息框中輸出下面的輸出。