【VBA】「はい/いいえ」ボタンが表示されたメッセージボックス(MsgBox)を表示する

利用者に質問をして、回答によって処理を分岐させた時に
使用します!

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

MsgBox関数の引数に「vbQuestion + vbYesNo」を設定することがポイントです。

実行結果

実行すると、「はい/いいえ」ボタンが表示されたメッセージボックスが表示されます。

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

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

タイトルとURLをコピーしました