エクセル VBA 入門　Do loop Until文

2015/7/30 2016/4/24 Excel入門

繰り返しをするプログラム
サンプル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