VBAのWhileで条件を満たしている間ループを繰り返す方法をわかりやすく解説

Whileの概要

While を使った基本的なループ処理

While を使って、指定した条件が満たされている間ループを繰り返す基本的な例です。

Sub ExampleWhile()
    Dim counter As Integer
    counter = 1

    ' counter が 5 未満の間ループ
    While counter < 5
        Debug.Print "カウント: " & counter
        counter = counter + 1
    Wend
End Sub

解説：

• While counter < 5 の条件が True である間、ループが繰り返される。
• カウントが 1 → 2 → 3 → 4 と増加し、5 になったらループを抜ける。

Excel のセルデータを While で処理

While を使って、A 列のデータを順番に取得する例です。

Sub ExampleWhileExcel()
    Dim rowNum As Integer
    rowNum = 1

    ' A列のデータが空白でない間ループ
    While Cells(rowNum, 1).Value <> ""
        Debug.Print "セルA" & rowNum & ": " & Cells(rowNum, 1).Value
        rowNum = rowNum + 1
    Wend
End Sub

解説：

• A1 から下のセルを順番にチェックし、値が空でない間処理を繰り返す。
• データがないセルに到達するとループを終了。

Do While … Loop に書き換える方法

現在は While よりも Do While ... Loop の方が推奨されます。

Sub ExampleDoWhile()
    Dim counter As Integer
    counter = 1

    ' Do While を使ったループ
    Do While counter < 5
        Debug.Print "カウント: " & counter
        counter = counter + 1
    Loop
End Sub

解説：

• While よりも Do While ... Loop の方が拡張性が高く、Exit Do などの制御が可能。
• 可読性が向上し、While より推奨される。

エラーを回避する方法

While を使用する際に、無限ループを防ぐ方法を紹介します。

Sub SafeWhileLoop()
    Dim counter As Integer
    counter = 1

    While counter < 5
        Debug.Print "カウント: " & counter
        counter = counter + 1

        ' 無限ループ防止
        If counter > 1000 Then
            MsgBox "ループが長すぎるため停止しました", vbExclamation, "エラー"
            Exit While
        End If
    Wend
End Sub

解説：

• カウンタが異常に増加した場合、Exit While でループを強制終了。
• 無限ループを防ぐため、適切な終了条件を設定することが重要。

While の注意事項

• 現在は Do While … Loop が推奨: While は古い構文であり、可読性や拡張性の観点から非推奨。
• 無限ループに注意: ループの終了条件を適切に設定しないと、無限に繰り返される。
• 条件が最初から False だとループは 1 回も実行されない: 条件が満たされないと処理がスキップされるため、初期値に注意。

よくある質問

Q: While … Wend は今でも使えますか？

A: はい、使えますが、現在では Do While ... Loop の方が推奨されています。

Q: While … Wend を Do While … Loop に書き換えるべきですか？

A: はい。Do While ... Loop は拡張性が高く、Exit Do などの制御も可能なため、推奨されます。

Q: While ループで Exit を使う方法は？

A: While … Wend では Exit While は使用できないため、代わりに Do While ... Loop に変更する必要があります。

Q: While ループの代わりに何を使えばよいですか？

A: Do While ... Loop または Do Until ... Loop を使用すると、柔軟な制御が可能になります。

まとめ

• While は条件が True である間、繰り返し処理を実行する。
• 現在では Do While ... Loop の方が推奨され、より柔軟な制御が可能。
• Excel のセルデータを処理する際にループ処理として利用できる。
• 無限ループを防ぐために、適切な終了条件を設定することが重要。
• While は Exit While をサポートしていないため、途中で抜けるには Do While ... Loop に変更する必要がある。