
利用者に質問をして、回答によって処理を分岐させた時に
使用します!
VBAコード
Sub YesNoMsgBoxSample()
Dim answer As String
Dim questionMsg As String
'質問内容
questionMsg = "XXXで良いでしょうか?"
'はい or いいえで回答するメッセージボックスを表示
answer = MsgBox(questionMsg, vbQuestion + vbYesNo, "確認")
If answer = vbYes Then
'はいをクリック
MsgBox "はいをクリックしました!"
Else
'いいえをクリック
MsgBox "いいえをクリックしました!"
End If
End Sub
実行結果
実行すると、「はい/いいえ」ボタンが表示されたメッセージボックスが表示されます。

「はい」をクリックすると、以下が表示されます。

「いいえ」をクリックすると、以下が表示されます。
