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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: エラー処理（On Error ステートメント / Errオブジェクト）

On Error ステートメントの使い方【構文 1】 On Error GoT …

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

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

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

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

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

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

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

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

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

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

: 引数の参照渡し・値渡し（ ByRef, ByVal ）

引数の「参照渡し」と「値渡し」「参照渡し」とはプロシージャに引数として変数を渡 …

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

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

: With ステートメントを使う

With ステートメントを使う With ステートメントを使うことで、１度指定し …

: set ステートメントを使う

Set ステートメントを使う【構文 1】 Dim objectvar [ As …

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