EXCEL VBA For Next Stepの使い方

2020年3月6日

For Next Steｐの使い方

●はじめに

EXCEL　VBAプログラムを作成する上で、ForNextなどのルーチン処理（繰り返し）は、頻繁に利用します。条件に合わせて繰り返しするなど、VBAプログラム作成する際には、大変重要になります。他のルーチン処理と違いStepを組み合わせる事により、指定した値の変化を設定する事ができます。それでは、For　Next　Stepの利用方法を説明いたします。

●書式の説明「For Next Stepの使い方」

For I = 初期値　To　終了値　Step　増加数(+)/(-)

●プログラム説明　※For Next Step　（繰り返しカウントを増やす　＋１）

変数”I”に対して１～100までを１ずつ繰り返す。

 Sub fornext01()
 
    Dim I As Integer
    
    For I = 1 To 100  'Iが１～100まで繰り返す
        
        Range("A1") = I '「A1」セルに１～100までの値を代入します。
    
    Next I
 
 End Sub

Sub fornext01()

Dim I As Integer

For I = 1 To 100 'Iが１～100まで繰り返す

Range("A1") = I '「A1」セルに１～100までの値を代入します。

Next I

End Sub

●プログラム説明 ※For Next Step　（繰り返しカウントを減らす　-１）

変数”I”に対して100～1へ１ずつ減らしながら繰り返す。

 Sub fornext02()
 
    Dim I As Integer
    
    For I = 100 To 1 Step -1  'Iが１00～1まで繰り返す
        
        Range("A1") = I '「A1」セルに１00～1までの値を代入します。
    
    Next I
 
 End Sub

Sub fornext02()

Dim I As Integer

For I = 100 To 1 Step -1 'Iが１00～1まで繰り返す

Range("A1") = I '「A1」セルに１00～1までの値を代入します。

Next I

End Sub

●プログラム説明　※For Next Step　（繰り返しカウントを増やす　＋５）

変数”I”に対して１～100までを５ずつ繰り返す。 Iの値は、【1,6,11,16,21,26・・・・96】と変化します。

 Sub fornext01()
 
    Dim I As Integer
    
    For I = 1 To 100 Step 5 'Iが１～100まで繰り返す　（実際は96まで）
        
        Range("A1") = I '「A1」セルに１～96までの値を代入します。
    
    Next I
 
 End Sub

Sub fornext01()

Dim I As Integer

For I = 1 To 100 Step 5 'Iが１～100まで繰り返す　（実際は96まで）

Range("A1") = I '「A1」セルに１～96までの値を代入します。

Next I

End Sub

●プログラム説明 ※For Next Step　（繰り返しカウントを増やす減らす　-１０）

変数”I”に対して100～1へ１ずつ減らしながら繰り返す。Iの値は、【100,90,80・・・・20,10】と変化します。

 Sub fornext04()
 
    Dim I As Integer
    
    For I = 100 To 1 Step -10 'Iが100～1まで繰り返す （実際は10まで）
        
        Range("A1") = I '「A1」セルに１00～1０までの値を代入します。
    
    Next I
 
 End Sub

Sub fornext04()

Dim I As Integer

For I = 100 To 1 Step -10 'Iが100～1まで繰り返す（実際は10まで）

Range("A1") = I '「A1」セルに１00～1０までの値を代入します。

Next I

End Sub

●プログラム説明　※For Next Step　（繰り返しカウントを増やす　＋５）

次のサンプルプログラムは、実際に１～100までの間でFor Next Stepを実行しますが、その増える過程をセルに転記していきたいと思います。

Sub forSTest()

    Dim I, Y As Long
    
    Y = 1                  'Yの変数に１行目を指定します。
    For I = 1 To 100 Step 5
        Range("A" & Y) = I 'A1のセルから下に１～１００まで繰り返して表示します。
        
        Y = Y + 1　　　　　'Y行数を１ずつ増やします。
    Next I
    
End Sub

Sub forSTest()

Dim I, Y As Long

Y = 1 'Yの変数に１行目を指定します。

For I = 1 To 100 Step 5

Range("A" & Y) = I 'A1のセルから下に１～１００まで繰り返して表示します。

Y = Y + 1　　　　　'Y行数を１ずつ増やします。

Next I

End Sub

●実行結果

実行後、A列に転記された内容見ると、１、５，１１，１６・・・９１、９６と変化しています。実際に終了は、１００では無く９６で終わります。To　１００の意味は、１００以下の最大値で終わる事を覚えて下さい。今後、プログラムを作成する上で重要な事になります。

●実行前　※A列には何もありません。（クリックして拡大）

●実行後　※For Next Step（＋５）で実行していますので、その結果がA列に記載されています。A列の値の変化を確認して下さい。（クリックして拡大）

Exit For の使い方　(For Next)　

●書式の説明　Exit For の使い方　(For Next)　

続きまして、Exit Forの使い方を説明いたします。Exit Forは、For Next でループ処理実行中に、ループ条件が成立しなくでも、ループから出すことができるのが、「Exit For」になります。

    For I = 1 To 10     '1～１０まで繰り返す。
        If I = 5 Then
            Exit For     'Iの値が５になったらForNextから抜ける        
        End If
    Next I

For I = 1 To 10 '1～１０まで繰り返す。

If I = 5 Then

Exit For 'Iの値が５になったらForNextから抜ける

End If

Next I

●プログラム説明　（Exit Forの使い方：サンプル）

次のサンプルプログラムは、Exit Forの使い方を表したサンプルプログラムになります。プログラムの説明ですが、InputBoxで１~１０までの数値を入力します。For Nextで”I”を１~１０までループします。その間に、ループ回数×入力した数値の掛け算を行います。結果が３０を超えた場合は、ループ（For Next ）から抜けて、MsgBoxで計算結果の最後の値を表示するプログラムです。なお、計算結果で３０を超えない場合は、１０回目のループした時の最後の計算結果を表示させます。

Sub Exit_for()

    Dim I, Ans, Gokei As Integer
        
    Ans = InputBox("1～１０までの数値を入力して下さい。")  '変数　Ansに数値を入力します。
    
    
    For I = 1 To 10
    
        Gokei = I * Ans   'ループの回数×入力した数値を計算します。
        
        If Gokei > 30 Then       '計算した結果が30を超えた場合は、「Exit For」でループを抜けます。
            Exit For
        End If
    
    
    Next I                'Iが10に成るまで、繰り返す。

    MsgBox "最後の値は、" & Gokei & "　です。"  '最後の計算結果を表示させます。

End Sub

Sub Exit_for()

Dim I, Ans, Gokei As Integer

Ans = InputBox("1～１０までの数値を入力して下さい。") '変数　Ansに数値を入力します。

For I = 1 To 10

Gokei = I * Ans 'ループの回数×入力した数値を計算します。

If Gokei > 30 Then '計算した結果が30を超えた場合は、「Exit For」でループを抜けます。

Exit For

End If

Next I 'Iが10に成るまで、繰り返す。

MsgBox "最後の値は、" & Gokei & "　です。" '最後の計算結果を表示させます。

End Sub

●実行結果

今回の入力値は、「６」で実行したため、Gokei（合計値）が６・１２・１８・２４・３０・３６と変化して、Gokei（合計値）が３０以上になったため、IF文の条件が成立し、ForNextから抜けて（Exit For）、その時の値を表示させた。

●入力値　※プログラム実行直後に「１～１０」までの数値「６」を入力します。（クリックして拡大）

●実行後　※上記のプログラムを実行　入力値が「６」なので、３０以上の条件が成立しExit Forした時の値が３６になります。
入力値6　×　６回ループ　＝　３６　（クリックして拡大）

For Next の使い方　(２重ループ)　

●For Nextの２重ループの説明

続きまして、For Nextの応用となります。For Nextを使った２重ループ処理の説明をしたいと思います。プログラムを作成する上で、ループ処理はとでも重要な処理になります。利用する機会も多く、様々な場所で利用する機会があります。
２重ループで注意をする点ですが、ループ処理は、３重・４重などそれ以上にする事は可能ですが、記述する際は下記の様にFor　Next間で囲い込む記述方法でプログラムを組み立てる必要があります。内側ループ・外側ループなど分かりやすく記述し、ForとNextの位置もタブで横位置を揃えた方が見た目も分かりやすいと思います。記述方法については、下記を参照にしてください。

●For Nextの２重ループの正しい記述方法　※For Nextが正しく囲い込み記述をしている。　（クリックして拡大）

●For Nextの２重ループの間違った記述（エラー）　　※ForNextが重なりあう記述になっている。（クリックして拡大）

●プログラム説明　（For Nextの２重ループ：サンプル）

下記のプログラムは、For Nextを使った２重ループ処理を表現するプログラムになります。EXCELに縦・横１~９までの数値を順番に掛け算を行い該当するセルに、掛け算の計算結果を代入するプログラムになります。※簡単に言いますとEXCELの表に掛け算の計算結果（九九）を表示するプログラムです。

Sub for_Next2()


    Dim TaTe_Y, Yoko_X, Gokei As Integer '変数の定義
    
    
    For TaTe_Y = 1 To 9                  'ループ①　縦移動のループ１～９を繰り返す
        
        For Yoko_X = 1 To 9              'ループ②　横移動のループ１～９を繰り返す
        
            Gokei = TaTe_Y * Yoko_X      '縦×横のループの値を計算します。
        
            Cells(TaTe_Y, Yoko_X) = Gokei  '計算結果を縦・横のループ値に該当するセルに合計を転記します。
        
        Next Yoko_X
    
    Next TaTe_Y
    
End Sub