VBA入門② No.7 繰り返し処理 「For〜Next」

• 同じ処理を繰り返す方法です
• カウンター用の変数を用意し、それが決められた最大値になった時点で、処理をストップします

文法

'デフォルトでは1回ループする度にカウンタ用変数が+1されます
For カウンタ用変数 = 初期値 To カウンタの最大値
    処理内容
Next

'STEPを利用して、ループ度の加算数を指定することも可能です
'下記の場合は、1回ループする度にカウンタ用変数が+2されます
For カウンタ用変数 = 初期値 To カウンタの最大値 Step 2
    処理内容
Next

サンプル

• Seet1に文字を格納します
• カウンタ用変数は1回ループされる度に+1されるので、これを利用して行数とループ回数をカウントしています

Option Explicit
Sub myFor()
'カウンタ用の変数を宣言
Dim i As Integer
    For i = 1 To 10
        Worksheets("Sheet1").Cells(i, 1).Value = i & "回目のループです"
    Next
End Sub

VBA入門まとめへ戻る