前回の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
—————-