ユーザーに選択肢を与えたい場合、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
コメント