Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

繰り返し処理（For…Next ステートメント）

2015/03/25 2015/03/26

For…Next ステートメントの使い方

【構文】

For counter = start To end [ Step step ]

　　[ statements ]

Next [ counter ]

【項目の説明】

counter ・・・繰り返し処理の処理回数を保持する変数。
start ・・・ counter の初期値。
end ・・・ counter の終了値。
step ・・・ 1回のループごとに、counter に加える値（省略可）。
statements ・・・ For…Next ステートメントで指定した回数だけ実行されます（省略可）。

Step step を省略した場合、引数 counter には 1回のループごとに「1」が加算されます。

For…Next ステートメント から抜け出す方法に、Exit For ステートメント を指定することができます。また、For…Next ステートメント はネスト (入れ子) 構造にすることができ、その場合に Exit For が実行された場合は、その Exit For を囲んでいる 1 番内側のループから抜け出します。

もし無限ループの状態に陥ってしまった場合は、[ECS] キーを押し続けるか、それで戻らない場合は、[Ctrl] + [Alt] + [Delete] を押して Windows のタスクマネージャーを表示して、Excel を強制終了してください。

For…Next ステートメントの使用例

VBAソース例

　

Sub sample_for_next()

    Dim counter
    Dim i
    
    counter = 0
    
    For i = 0 To 20 Step 6
        
        counter = counter + 1
        
        If counter > 21 Then Exit For
        
    Next
    
    MsgBox counter & " 回ループしました。"

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

　

Sub sample_for_next()

Dim counter

Dim i

counter = 0

For i = 0 To 20 Step 6

counter = counter + 1

If counter > 21 Then Exit For

Next

MsgBox counter & " 回ループしました。"

End Sub

　

実行結果

- 構文 for...next ステートメント, エクセルVBA, 構文, 繰り返し処理

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: プロシージャを呼び出す（Call ステートメント）

プロシージャを呼び出すプロシージャ内から、別のプロシージャを呼び出すには、Ca …

: プロシージャ内のサブルーチンへ移動（GoTo ステートメント）

GoTo ステートメント GoTo ステートメントは、指定したラベルのサブルーチ …

: 配列が引数のプロシージャを作成する

配列が引数のプロシージャを作成する【構文】 { Sub | Function …

: 繰り返し処理（While…Wend ステートメント）

While…Wend ステートメントの使い方【構文】 While …

: プロシージャを作成する（ Sub, Function ）

プロシージャを作成するプロシージャとは、実行時に 1 つの単位として処理される …

: 繰り返し処理（For Each…Next ステートメント）

For Each…Next ステートメントの使い方【構文】 For …

: 繰り返し処理（Do…Loop ステートメント）

Do…Loop ステートメントの使い方【構文 1】 Do [ Wh …

: ユーザー定義型変数を使う（Type ステートメント）

Type ステートメントを使う Type ステートメントを使うと１つまたは複数の …

: 条件分岐 If文（If…Then…Else ステートメント）

If…Then…Else ステートメントの使い方【構文 …

: プロシージャ内のサブルーチンへ移動（GoSub…Return ステートメント）

GoSub…Return ステートメント GoSub ステートメント …

PREV: 繰り返し処理（While...Wend ステートメント）
NEXT: 繰り返し処理（For Each…Next ステートメント）