ユーザーに選択肢を与えたい場合、MsgBoxで処理分岐する場合があります。
毎度毎度同じコード記載するのも大変なので、コピペ用に記事にしました。
MsgBox「はい」「いいえ」の条件分岐をするコード
Public Sub sample()
'■Yes or Noの場合
If MsgBox("処理を開始しますか?", vbYesNo) = vbYes Then
Debug.Print True
Else
Debug.Print False
End If
'■Yesの場合処理を終了する
If MsgBox("終了しますか?", vbYesNo) = vbYes Then Exit Sub
'■No の場合処理を終了する
If MsgBox("開始しますか?", vbYesNo) = vbNo Then Exit Sub
End Sub



コメント