Excel VBAのDo Loop文のサンプル

ExcelのVBAのDo Loop文のサンプルです。
繰り返し処理を行うことができます。
Do Loop文は4つのパターンがあります。

Do while ～ Loop
Do ～ Loop while
Do Until ～ Loop
Do ～ Loop Until
Exit Doのサンプル
比較演算子

Do while ～ Loop

Do While 条件式
繰り返される箇所
Loop

条件式が成立している間、処理が繰り返されます。
最初から条件が成立していない場合は、処理は１回も実行されません。

コード

Do while ～ Loopのサンプルです。
5行目は、goukei < 5の間はループ処理が行われます。

Sub test1()
    Dim goukei As Integer
    goukei = 0
    
    Do While goukei < 5
        goukei = goukei + 1
    Loop
    MsgBox goukei '5

End Sub

Do ～ Loop while

Do
繰り返される箇所
Loop While 条件式

条件式の判定が後ろにあるので、処理は必ず１回は実行されます。
条件式が成立している間、処理が繰り返されます。

コード

Do ～ Loop whileのサンプルです。
7行目は、goukei < 1の間はループ処理が行われます。

Sub test1()
    Dim goukei As Integer
    goukei = 0
    
    Do
        goukei = goukei + 1
    Loop While goukei < 1
    MsgBox goukei '1

End Sub

Do Until ～ Loop

Do Until 条件式
繰り返される箇所
Loop

条件式が成立するまで、処理が繰り返されます。
最初から条件が成立していない場合は、処理は１回も実行されません。

コード

Do Until ～ Loopのサンプルです。
5行目は、goukei >5になるまでループ処理が行われます。

Sub test1()
    Dim goukei As Integer
    goukei = 0
    
    Do Until goukei > 5
        goukei = goukei + 1
    Loop
    MsgBox goukei '6

End Sub

Do ～ Loop Until

Do
繰り返される箇所
Loop Until 条件式

条件式の判定が後ろにあるので、処理は必ず１回は実行されます。
条件式が成立している間、処理が繰り返されます。

コード

Do ～ Loop Until のサンプルです。
7行目は、goukei >5になるまでループ処理が行われます。

Sub test1()
    Dim goukei As Integer
    goukei = 6
    
    Do
        goukei = goukei + 1
    Loop Until goukei > 5
    MsgBox goukei '7

End Sub

Exit Doのサンプル

Doのループ文から抜けることができます。

コード

8行目は、Exit Doを使用してDoのループから抜けています。

Sub test1()
    Dim goukei As Integer
    goukei = 0
    
    Do While goukei < 5
        goukei = goukei + 1
        If (goukei = 2) Then
            Exit Do
        End If
    Loop
    MsgBox goukei '2

End Sub

比較演算子

上記コードの<は比較演算子です。
以下は、VBAの比較演算子の一覧です。

比較演算子	説明
a = b	aとbの値は等しい
a <> b	aとbの値は等しくない
a > b	aはbより大きい
a >= b	aはbより大きいまたは等しい
a < b	aはbより小さい
a <= b	aはbより小さいまたは等しい