繰り返し処理

Access VBA 繰り返し処理 For Next文

繰り返し処理 For Next文

For~Nextの間に書かれたプログラムを規定回数に達するまで繰り返し処理します。

プログラムの例

Private Sub コマンド0_Click()

Dim i As Integer
Dim j As Integer

For i = 1 To 10    ‘*1

j = j + i               ‘*2
Debug.Print i       ‘*3

Next i                ‘*4

MsgBox j           ‘*5

End Sub

Private Sub コマンド0_Click()

Dim i As Integer
Dim j As Integer

For i = 1 To 10 Step 2   ‘*6

j = j + i
Debug.Print i                 ‘*7

Next i

MsgBox j                       ‘*8

End Sub

プログラムの説明

*1 変数「i」に1~10を繰り返し代入していく処理。

*2 変数「j」に変数「i」を繰り返し足していく式。
j+i=0+1,1+2,3+3・・・・

*3 イミディエイトウィンドウに「i」の値を表示する。
1 2 3 4 5 6 7 8 9 10

*4 *1に戻る。(次の値)

*5 「i」の値の合計値を表示する。
この場合は1+2+3+4+5+6+7+8+9+10=55

*6 「step 2」 2刻み。

*7 イミディエイトウィンドウに「i」の値を表示する。
2刻みなので、1 3 5 7 9

*8 「i」の値の合計値を表示する。
この場合は1+3+5+7+9=25