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

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

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

構文
1.　Do While condition
　　　　statements
　　　　Exit Do
　　　　statements
　　Loop

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

2．Do
　　　　statements
　　　　Exit Do
　　　　statements
　  Loop While condition

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

Public Sub Sample()

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

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

End Sub

注意点

• 回数を指定してループ処理を行う場合はFor Nextステートメントです。
• 無限ループが発生してしまったときは、EscキーまたはCtrl+Breakキーを押して処理を強制終了してください。

関連記事

• ループ処理の回数を指定する【For Next】
• 空白セルまでループ処理させる【DoLoop】
• 条件を満たすまでループ処理をする【Do Until Loop】