エクセル VBA 入門 Do loop While文

      2016/04/24


前回のDo loop Until文とほぼ同じ作りですが
条件が違います。
Untilは終了させる条件でした。
Whileは繰り返す条件です。
メッセージボックスを前回はNOでしたが今回はYesにしてます。
yesなら繰り返してます。

----------------
構文1
Do While 繰り返し条件
処理
Loop
----------------
サンプル1
Sub main()
Dim str As String
str = MsgBox("繰り返しますか?", vbYesNo)
Do While str = vbYes
str = MsgBox("繰り返しますか?", vbYesNo)
Loop

End Sub
----------------

----------------
構文2
Do
処理
Loop While 繰り返し条件
1回実行されます。
----------------
----------------
サンプル2
Sub main()
Dim str As String

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

End Sub
----------------

PR



 - Excel入門 ,

Translate »