Excel VBAのFor文のサンプル

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

For文
For文のサンプル
Step 増減値のサンプル
Exit 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のループ文から抜けることができます。
７行目は、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