Do...Loopについての説明

Do Loop 文は、条件に基づいて繰り返し処理を行うために使用される構文です。

(For Next と似ていますが条件を設定しDo Loopを終了させないと無限に繰り返します)

以下に基本的な構文と使い方を説明します。

Do

    ' 繰り返す処理

    If 条件文 Then

        Exit Do           ' 条件を満たした場合、ループを終了

    End If

Loop

以下は、1から10までの数値を表示する簡単な Do Loopの例です。

Sub test3()

    Dim i As Long 　　'i 変数を整数の数値データ型として宣言する

    i = 1 　　　　　　 'i に１を代入する

    Do

        Debug.Print i 　 'イミディエイトウィンドウに出力する

        i = i + 1 　　　  'i に１を足し再度ｉに代入する

        If i > 10 Then 　'i が10以上か判定する

            Exit Do 　　　'条件を満たした場合Do Loopを終了する

        End If

    Loop

End Sub