Excel VBAのFor文のサンプル

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

目次

For文

For 変数 = 初期値 To 最終値 Step 増減値
  繰り返される箇所
Next
  • ループ処理を行います。
  • 「Step 増減値」を省略した場合は、増減値=1になります。

For文のサンプル

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

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

End Sub

Step 増減値のサンプル

For文のStep 増減値のサンプルです。
5行目は、Stepの値が2のため、1の次が3になります。
そのため、1+3で、4が表示されます。

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

End Sub

Exit Forのサンプル

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

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
    MsgBox goukei '1

End Sub

関連の記事

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



△上に戻る