VBA 繰り返し処理（Do Loop）

繰り返し処理Do Loop（条件満たす時実行）

構文

Do [{ While /Until } 条件式]
　　処理
Loop

前回以前紹介したFor Next（比較用）

Sub test0()

    Dim i As Integer
   ’ 1-9行に行番号を入れる
    For i = 1 To 9
        Cells(i, 1) = i
    Next i

End Sub

条件を満たす間実行する

Sub test1()
Dim i As Integer

’ 1-9行に行番号を入れる

    i = 1
    Do While i <= 9
        Cells(i, 2) = i

        i = i + 1
    Loop
End Sub

条件を満たすまで実行する

Sub test2()
Dim i As Integer

’ 1-9行に行番号を入れる

    i = 1
    Do Until i > 9
        Cells(i, 3) = i

        i = i + 1
    Loop
End Sub

繰り返し処理Do Loop（少なくとも1回実行）

構文

Do
　　処理
Loop [{ While /Until } 条件式]

Sub test3()
Dim i As Integer

    i = 1
    Do
        Cells(i, 4) = i

        i = i + 1
    Loop Until i > 9
End Sub

Sub test4()
    Dim i As Integer
    i = 1
    Do
        Cells(i, 5) = i

        i = i + 1
    Loop While i <= 9
End Sub

上記５つのサンプルは、どれも1－9行まで行番号を入れるものです。Do Loopが繰り返し回数が不明な時に使われます。実務上では、For Nextと比べると、利用頻度が低いですが、基本構文をマスターしましょう。