条件を満たす間ループ処理を続ける【Do While Loop】【ExcelVBA】

Do Loopステートメント【While】
Do While Loopを使ったサンプルコード
注意点
関連記事

Do Loopステートメント【While】

指定した条件が True の間、ループ処理を実行し続けます。

構文

1⃣　Do[ While condition ］
　　　[ statements ]
　　　[ Exit Do ]
　　　[ statements ]
　　Loop

以下の構文も使用できます。

2⃣　Do
　　　[ statements ]
　　　[ Exit Do ]
　　　[ statements ]
　　Loop [ While condition ]

condition	True または False を評価する数式または文字列式です。 condition が Null の場合、condition は False として扱われます。省略可。
statements	condition が True の間、繰り返し実行するステートメントです。

Do While Loopを使ったサンプルコード

Public Sub Sample()

'■構文1⃣
    Dim i: i = 1
    Do While i < 5        'iが5未満の間処理を続ける
        MsgBox i & "回目"　'何回目の処理か表示する
        i = i + 1　　　　　'iに1加算する
    Loop　　　　　　　　　　'ループはここまで

'■構文2⃣
    Dim j: j = 1
    Do
        MsgBox j & "回目"
        j = j + 1
    Loop While j < 5

End Sub