Excel VBAのFor文のサンプル

ExcelのVBAのFor文のサンプルです。
For文は繰り返し処理を行うことができます。

目次

For文

For 変数 = 初期値 To 最終値 Step 増減値
  繰り返される箇所
Next

For文のサンプル

For文のサンプルです。

Sub test1()
    Dim goukei As Integer
    goukei = 0
    
    For i = 1 To 3
        goukei = goukei + i
    Next
    Debug.Print goukei '6

End Sub

5~7行目は、ループ処理をしています。1+2+3で、6が表示されます。

 

For文でStep 増減値を使用する

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

Sub test1()
    Dim goukei As Integer
    goukei = 0
    
    For i = 1 To 3 Step 2
        goukei = goukei + i
    Next
    Debug.Print goukei '4

End Sub

5行目は、Stepの値が2のため、1の次が3になります。
そのため、1+3で、4が表示されます。

 

For文のExit Forでループを抜ける

For文のExit Forをループを抜けるサンプルです。

Sub test1()
    Dim goukei As Integer
    goukei = 0
    
    For i = 1 To 3
        If (i = 2) Then
            Exit For
        End If
        goukei = goukei + i
    Next
    Debug.Print goukei '1

End Sub

7行目は、Exit Forを使用してForのループから抜けています。
そのためループ処理は1回のみで、1が表示されます。

関連の記事

Excel VBAのFor Each文のサンプル
Excel VBAの変数の宣言を強制する(Option Explicit)
Excel VBAのデータ型
Excel VBA セルに値を設定/取得するサンプル
Excel VBA セルの値をテキストに出力するサンプル

△上に戻る