Excel VBAのDo Loop文のサンプル

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

目次

Do while ~ Loop

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

コード

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 条件式
  • 条件式の判定が後ろにあるので、処理は必ず1回は実行されます。
  • 条件式が成立している間、処理が繰り返されます。

コード

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
  • 条件式が成立するまで、処理が繰り返されます。
  • 最初から条件が成立していない場合は、処理は1回も実行されません。

コード

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 条件式
  • 条件式の判定が後ろにあるので、処理は必ず1回は実行されます。
  • 条件式が成立している間、処理が繰り返されます。

コード

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より小さい または 等しい

関連の記事

Excel VBAのIF文のサンプル
Excel VBAのSelect Case文のサンプル
Excel VBAのFor文のサンプル
Excel VBAのFor Each文のサンプル
Excel VBAの変数の宣言を強制するサンプル
Excel VBAのデータ型
Excel VBA セルを指定して値を設定/取得するサンプル
Excel VBA セルの値をテキストに出力するサンプル



△上に戻る