For～Next

Contents
• 今回の目標
• 説明
• 始めに
• ループ処理を行う(For～Next )
• If文と組み合わせる
• 他言語でFor文を学んだ方へ
• 基本構文
• break の代わりの[Exit For]
• continue の代わりの[Goto]
• Long型のススメ
• 確認テスト
• 関連リンク

始めに

他言語でFor文を習得されている方は、下記リンクをお読みください。
ページ内リンク：他言語でFor文を学んだ方へ
For文を知らない方はこのまま下の説明をお読みください。

For～Next の基本

基本構文を説明します。 以前、プログラムは上から順に実行されると説明しました。
しかし、今回の「For文」では一定の法則に基づき上へ戻ります。
For文の基本構文を端的に説明すると下記の通りになります。 For文を使用するには、事前に整数型変数を作成する必要がありますので、それを頭に入れて見てください。

For 整数型変数 = 変数の初期値 To 反復処理回数-(変数の初期値-1) Step 増加数･･･①
    繰り返したい処理･･･②
Next 整数型変数･･･③

上記の解説をします。
①で、整数型変数に「変数の初期値」を代入します。
②で、処理を行います。2つ以上の処理でもかまいません。
③で、①のForまでプログラムの流れが戻ります。
 （②で行った処理は取り消されたりしません）
①の右端にある「Step 増加数」を①で初期化した整数型変数に足します。
①で初期化した整数型変数が、Toの後ろの「反復処理回数-(変数の初期値-1)」の数に達しているか調べます。
達していれば、③（Nextの行）の次の行にプログラムが移動します。
達していなければ、①の下にある②の処理を行い、③のNextまで処理したら、①のForの行に戻り、長整数型の整数に「Step 増加数」を足してから「反復処理回数-(変数の初期値-1)」に達しているか調べる、ということを達するまで繰り返します。

少し分かり難いと思いますので、次の意訳した構文を見てください。

For 整数型変数 = 反復処理の開始行(列) To 反復処理の終了行(列) Step 増加数
    繰り返したい処理
Next 整数型変数

細かいポイントを説明します。
「整数型変数」はなるべく[Long]型(長整数型)の変数を作成してください。
「Step 増加数」は省略可能で、省略すると1が加算されます。通常、省略されます。
「Next」の後ろの『整数型変数』は[For]の後ろの変数を書きます。省略可能ですが、極力記載するようにしましょう。
「繰り返したい処理」の先頭はTabキーを使用して空けてください。空けなくてもエラーは発生しませんが、読みにくくなってしまいます。

Sub Sample_ForNext1()
    Dim i as Long    '長整数型の変数の作成
    For i = 1 To 3   '1～3行目まで繰り返す
        Cells(i, 1) = 10  'セルA1～A3に[10]を格納する
    Next i
End Sub

「Sample_ForNext1」の実行前は下の画像の状態です。

「Sample_ForNext1」の実行後は下の画像の通りになります。

Cells(i, 1)なので、A列の1～3行目に10を入力することを繰り返してます。

If文と組み合わせる

次のファイルをダウンロードしてください。
ファイル：ForScoreGlaph.xlsm
下記の表が記載されています。

For文等の反復処理は、If文等の他の構文等と組み合わせて力を発揮します。 先ほど、ダウンロードしたファイルに次のマクロをコピペして実行してください。

Sub Sample_ForNext2()
    Dim i As Long
    For i = 3 To 7
        If Cells(i, 4) < 70 Then
            Cells(i, 5) = "不合格"
        Else
            Cells(i, 5) = "合格"
        End If
    Next i
End Sub

すると、次のようになります。

次の説明はプログラム経験者用なので、次のリンクから確認テストを行ってください。
ページ内リンク：確認テスト

他言語でFor文を学んだ方へ

他の言語を学んだ方には、For文についての説明は不要かと思います。
サンプルに要点を書き足しプログラムを用意しました。

For 変数 = 初期値 To 終了値 Step 増加数
    繰り返したい処理
Next 変数

Sub P_SampleFor1()
    Dim i as Long            '事前に変数作成の必要あり
    For i = 1 To 10          '[Step 1]は省略
        Cells(i, 1) = "Hello World!!"  'セルA1～A10に文字を代入
    Next i   'Nextの後の[i]は省略可能だが、明示を推奨
End Sub

break の代わりの[Exit For]

C言語やJavaではfor文の途中で脱出する（抜ける）[break]がありました。VBAではそれに該当する「Exit For」が存在します。

Sub P_SampleFor2()
    Dim i As Long
    For i = 1 To 5
        Exit For    'breakの代わりのExit For
        MsgBox "Hello World!!"
    Next i
End Sub

continue の代わりの[Goto]

C言語やJavaではfor文の途中でループ最後までステップを移動させる[continue]がありました。VBAでは[continue]に当たる文法はありません。代替として「Goto」を使用します。

Sub P_SampleFor3()
    Dim i As Long
    For i = 1 To 5
        If True Then
            GoTo ExGo  'continueの代わりのGoto
        End If
        MsgBox "Hello World!!"
ExGo:       '上記Gotoの移動先(Nextの直前に設置する)
    Next i
End Sub

Long型のススメ

Forで使用する変数を「long型」で宣言しているのは理由があります。
Java/C言語のint型に相当するInteger型の範囲は「-32,768 ～ 32,767」です。
Excel（xlsx形式）は、1,048,576行と16,384列のセルで形成されています。
処理対象の表が40,000行あると仮定すると、32,768行目で変数iに32,768を代入しようとした時、上限を超えているためにオーバーフローが発生します。

Long型の範囲は「-2,147,483,648 ～ 2,147,483,647」です。 (詳細はコチラ)
最下行の1,048,576行でも、余裕をもってデータを格納することができます。
慣れないうちは抵抗があるかもしれませんが、メモリはケチらずにLong型で宣言すると良いでしょう。

For文を使い、次の問いに答えなさい。
問2は次のファイルをダウンロードして回答すること。
 ファイル：ForQuestionxlsm.xlsm

1. セルA10～A13に「Hello」と入力しなさい。
2. ダウンロードしたファイルの表C4～C7の値が70以上なら、該当するD4～D7に「合格」と入力しなさい。
3. セルA1～D5に「hoge」と入力しなさい。

前ページ：Do～Loop(While)

前ページ：反復処理とは