VBA For文のサンプル(Excel/Access)

VBAのFor文のサンプルです。処理を繰り返す時に使用します。
Excel、Accessとも同じです。

目次

For文 For文
  For文で配列の値を取得する
  For文でStep(増分/減分)を使用する
Exit For ループ処理を抜ける(Exit For)
(continue) ループ処理で処理をスキップする
For Each文 For Each文(ループで加算を使用しないfor文)

For文

For 変数 = 開始値 To 終了値 (Step 増減値)
    実行される処理
Next
  • 処理を繰り返す時に使用します。最初にforを書くのでfor文と呼ばれます。
  • 変数が開始値から終了値の範囲内の間、繰り返します。
  • 「Step 増減値」を省略した場合は、増減値=1になります。マイナス値の指定も可能です。

For文のサンプル

Sub test1()
    For a = 1 To 5
        Debug.Print a '1 2 3 4 5が出力される
    Next
End Sub

2行目は、1から5までの処理を繰り返します。
変数のaはカウンター変数またはループ変数と呼ばれます。

For文で配列の値を取得する

Sub test1()
    Dim color As Variant
    color = Array("赤", "黄", "青") '配列
    
    For a = 0 To UBound(color)
        Debug.Print color(a) '赤 黄 青が出力される
    Next
End Sub

3行目は、配列です。
5行目のUBoundは、配列の添字の最大値を返します。この場合は2を返します。
6行目は、変数と添字で配列の値を表示しています。

For文でStep(増分/減分)を使用する

For文のStepで増分と減分を使用するサンプルです。

Sub test1()
    For a = 1 To 10 Step 2
        Debug.Print a '1 3 5 7 9が出力される
    Next
    
    For b = 10 To 1 Step -2
           Debug.Print b '10 8 6 4 2が出力される
    Next
End Sub

3行目は、Stepの値が2です。増分が2なので4行目は1,3,5,7,9が表示されます。
7行目は、減分です。

ループ処理を抜ける(Exit For)

For文でExit Forを使用してループ処理を抜けるサンプルです。

Sub test1()
    For a = 1 To 5
        If (a = 3) Then
            Exit For
        End If
        Debug.Print a '1 2が出力される
    Next
End Sub

4行目は、Exit Forを使用してループ処理から抜けています。

ループ処理で処理をスキップする

VBAには他言語にあるcontinueがありません。
そのためGoTo文を使って同じような動きをさせます。

Sub test1()
    For a = 1 To 5
        If (a = 3) Then
            GoTo CONTINUE
        End If
        Debug.Print a '1 2 4 5が出力される
CONTINUE:
    Next
End Sub

4行目は、GoTo文で8行目に移動します。
7行目は、ラベルです。

For Each文(ループで加算を使用しないfor文)

For  Each  変数  In  コレクションや配列
    実行される処理
Next
  • 処理を繰り返したいときに使用します。
  • コレクションの数や配列の値の数分処理を繰り返します。
  • コレクションとはワークシートやセルの範囲などです。

For Each文のサンプルです。

Sub test1()
    Dim arr As Variant
    arr = Array(1, 2, 3)  '配列
    
    For Each a In arr
        Debug.Print a '1 2 3が出力される
    Next
End Sub

3行目は、配列をセットしています。
5行目は、配列の値の数分処理を繰り返します。

以下は、MicrosoftのVBAのFor文のリンクです。
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/fornext-statement

関連の記事

VBA For Each文のサンプル(Excel/Access)

△上に戻る