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

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

PR

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」を指定することで、
 ・アイコンが「?マーク」
になります。

MsgBox関数の引数に「vbYesNo」を設定することで、
 ・はいボタン
 ・いいえボタン
を表示できます。

「はいボタン」がクリックされた場合、返り値として「vbYes(実態は数値の6)」が返ります。

PR

実行結果

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

「はい/いいえ」ボタンが表示されたメッセージボックス
「はい/いいえ」ボタンが表示されたメッセージボックス

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

「はい」をクリック
「はい」をクリック

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

「いいえ」をクリッ
「いいえ」をクリッ
PR

参考

MsgBox関数の詳細は、公式サイトをご確認ください。

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