Vba-do-while-loop

VBA-Do-Whileループ

*Do…While* ループは、条件が真である限り、一連のステートメントを繰り返したいときに使用されます。 条件は、ループの開始時またはループの終了時に確認できます。

Copy

構文

VBAの Do…While ループの構文は次のとおりです。

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

Copy

流れ図

VBA Do..Whileステートメント

例

次の例では、 Do…while ループを使用して、ループの最初の状態を確認します。 条件がTrueになった場合にのみ、ループ内のステートメントが実行されます。

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

Copy

上記のコードが実行されると、メッセージボックスに次の出力が出力されます。

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

Copy

代替構文

ループの最後に条件をチェックする Do…while ループの代替構文もあります。 これら2つの構文の主な違いは、次の例で説明されています。

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

Copy

例

次の例では、 Do…while ループを使用して、ループの最後の条件を確認します。 条件がFalseの場合でも、ループ内のステートメントは少なくとも1回実行されます。

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

Copy

上記のコードが実行されると、メッセージボックスに次の出力が出力されます。

The value of i is : 11

Copy