| ■ For 〜 Nextステートメント |
□ 形式 ： For 変数名 = 繰返し始めの数値 To 繰返し終りの数値
処理
Next 変数名 |
|
□ 機能 ： 指定した数から指定した数まで順番に繰り返し実行したいときに使います。 |
次のように入力して実行してみて下さい。
Sub test()
Dim x As Integer
For x = 1 to 10
cells(x, 1).value = x
Next x
End Sub
「For x =1 to 10」の行と「Next x」の行の間にあるプログラムをx=1、x=2、x=3、x=4、x=5、x=6、x=7、x=8、x=9、x=10と繰り返し実行します。ワークシートには右のように表示されます。 |
|
 |
では今度は次のように入力して実行して下さい。
Sub test()
Dim x As Integer
For x = 1 To 10 Step 2
Cells(x, 1).Value = x
Next x
End Sub
「For x = 1 To 10」の後に「Step 2」と付けるとx=1、x=3、x=5、x=7、x=9と、「x」の数値が２つずつ加算されていき、右のように表示されます。
もう一つStepの使い方として、１から１０までの数を逆の順番でx=10、x=9、x=8、x=7、x=6、x=5、x=4、x=3、x=2、x=1の順に実行していきたい時は「For x = 1 To 10 Step -1」と入力します。 |
|
 |
２種類以上のFor 〜 Nextを使った場合です。
Sub test()
Dim x As Integer
Dim y As Integer
For x = 1 To 10
For y = 1 To 5
Cells(x, y).Value = x
Next y
Next x
End Sub
この場合、 「For x =○○」の中に 「For y =○○」が入っている形なので、
ｘ=1 ｙ=1
ｘ=1 ｙ=2
ｘ=1 ｙ=3
ｘ=1 ｙ=4
ｘ=1 ｙ=5
ｘ=2 ｙ=1
ｘ=2 ｙ=2
ｘ=2 ｙ=3
ｘ=2 ｙ=4
ｘ=2 ｙ=5
ｘ=3 ｙ=1
ｘ=3 ｙ=2
ｘ=3 ｙ=3
ｘ=3 ｙ=4
ｘ=3 ｙ=5 ・・・・・
という順番で繰返し処理されていきます。
「Next ｙ」「Next
x」の順番で入力しないとエラーになるので注意して下さい。
ワークシートには右のように表示されます。 |
|
 |
|
