エクセル VBA 入門 Do loop Until文


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

シェアする

  • このエントリーをはてなブックマークに追加

フォローする

Translate »