アクセスVBAの部屋

VBA Homeへ戻る

繰り返し処理　Do･･･While･･･Loop ステートメント

解説

条件式が満たされるまで処理を続けます。

書式

Do While 条件式
　実行する処理
　Loop<

使用例

次の例は変数iが11になるまで続けられます。

Sub Sample()
　Dim i As Integer
　i = 1
　Do While i < 11
　i = i + 1
　Loop
　Msgbox i
End Sub

使用例B

実行後判断では最後に条件式があります。条件を満たしていなくても１回は処理を実行します。

Sub Sample()
　Dim i As Integer
　i = 1
　Do
　i = i + 1
　Loop While i < 11
　Msgbox i
End Sub

（この項終わり）