エクセル VBA 入門 Do loop Until文

      2016/04/24


繰り返しをするプログラム
サンプル1

Do Until str = vbNo 終了条件
str = MsgBox("繰り返しますか?", vbYesNo)
Loop
終了条件が成立するまで繰り返しを行う。

サンプル2
Do
str = MsgBox("繰り返しますか?", vbYesNo)
Loop Until str = vbNo 終了条件が成立するまで繰り返しを行う。

サンプル1が終了条件を満たしていれば処理は実行されない。
サンプル2は1回処理を必ず実行してから処理を判定する。

------------------
構文1 Do loop Until文
Do Until  終了条件
繰り返す処理
Loop
------------------
サンプル1
Option Explicit

Sub main()
Dim str As String

str = MsgBox("繰り返しますか?", vbYesNo)

Do Until str = vbNo
str = MsgBox("繰り返しますか?", vbYesNo)
Loop

End Sub
----------------
----------------
構文2 Do loop Until文
Do
繰り返す処理
Loop Until  終了条件
------------------
----------------
サンプル2

Option Explicit

Sub main()
Dim str As String

Do
str = MsgBox("繰り返しますか?", vbYesNo)
Loop Until str = vbNo

End Sub

PR



 - Excel入門 ,

Translate »