【ExcelVBA】メッセージボックスの使い方 MsgBox

こんなあなたにおすすめ

今回は、Excel VBAでよく使うメッセージボックスの使い方についてご紹介します。

ユーザーにメッセージを伝えるためにも重要になってくるため、この機会に使えるようになりましょう。

メッセージを表示するだけでなく、ユーザーの選択したコマンドによって、処理を実行したりもできるため、そちらについても解説します。

Excel VBAでメッセージボックスの使い方を知りたい

メッセージボックスの種類一覧

MsgBoxの種類は次の通りです。

ボタンが押された時の戻り値

MsgBoxの戻り値は次の通りです。

メッセージボックスのSampleコード

シンプルなメッセージ

最もシンプルでよく使うメッセージボックスです。

Sub test1()

    MsgBox ("こんにちは!")

End Sub

メッセージ内で改行

メッセージ内で改行したい場合は、vbCrLfを使いましょう。
ユーザー目線になったときに、見やすさはとても重要ですので、改行をうまく使って見やすくしましょう。

Sub test2()

    MsgBox ("こんにちは!" & vbCrLf & "山田 太郎です。")

End Sub

vbOKCancel + vbCritical

Sub test3()

    MsgBox "危険な状態ですが、処理を続行しますか?", _
            vbOKCancel + vbCritical

End Sub

vbAbortRetryIgnore + vbCritical

Sub test4()

    MsgBox "危険な状態ですが、処理を続行しますか?", _
            vbAbortRetryIgnore + vbCritical

End Sub

vbYesNoCancel + vbQuestion

Sub test5()

    MsgBox "この記事を評価しますか?", vbYesNoCancel + vbQuestion

End Sub

vbYesNo + vbQuestion

Sub test6()

    MsgBox "この記事を評価しますか?", vbYesNo + vbQuestion

End Sub

vbExclamation

Sub test7()

    MsgBox "バッテリー残量が10%を下回りました。", vbExclamation

End Sub

vbRetryCancel + vbInformation

Sub test8()

    MsgBox "接続に失敗しました。", vbRetryCancel + vbInformation

End Sub

vbRetryCancel + vbInformation (値ver.)

Sub test9()

    MsgBox "接続に失敗しました。", 5 + 64

End Sub

vbRetryCancel + vbInformation (値ver.) メッセージボックスのタイトル設定

Sub test10()

    MsgBox "接続に失敗しました。", 5 + 64, "接続確認"

End Sub

「x」が押された時の処理

メッセージボックスで「x」が押されたときは、If文でvbCancelを指定してあげることで、キャンセル時の処理を設定することができます。

Sub test11()

    Dim reply As Long
    
    reply = MsgBox("接続に失敗しました。", _
                vbRetryCancel + vbInformation)
    
    If reply = vbCancel Then
        MsgBox "キャンセルされました。"
    End If

End Sub

【メッセージボックス】

【「x」が押されたときの実行結果】

ボタンが押されたときの処理

ユーザーがボタンを選択したときに、選択したボタンによって異なる処理をすることができます。

Sub test12()

    Dim reply As Long
    
    reply = MsgBox("この記事を評価しますか?", _
                vbYesNo + vbQuestion, "評価アンケート")
    
    If reply = vbYes Then
        MsgBox "この記事は評価されました。", , "評価結果"
    Else
        MsgBox "この記事は評価されませんでした。", , "評価結果"
    End If

End Sub

【メッセージボックス】

【「Yes」が押された時の実行結果】

【「No」が押された時の実行結果】

標準(初期選択)ボタンを指定

メッセージボックスが表示されたとき、Enterを押すと標準ボタンが押されたことになります。
初期値は、
  ボタンが1つの場合・・・そのボタン
  複数個の場合・・・一番左のボタン
となっています。

「Yes」、「No」の選択肢でユーザーが間違ってEnterを押したときに「Yes」になると困る場合などに、「No」を標準ボタンにしてあげるとそのリスクを回避することができます。

Sub test13()

    Dim reply As Long
    
    reply = MsgBox("この記事を評価しますか?", _
                vbYesNo + vbDefaultButton2, "評価アンケート")
    
    If reply = vbYes Then
        MsgBox "この記事は評価されました。", , "評価結果"
    Else
        MsgBox "この記事は評価されませんでした。", , "評価結果"
    End If

End Sub

まとめ

ここまで、メッセージボックスの表示方法について解説しました。

Excel VBAで必ずと言っていいほどメッセージボックスは使うので、この機会にいろんな方法を習得しましょう。

If文については、下記の記事で解説していますので、ご参照ください。
>>【ExcelVBA】If文 条件分岐 超便利 & 簡単

Excelで作業効率をアップしたい方は、下記の記事もご参照ください。
>>Excelのショートカット一覧 覚えて作業効率アップ!!
>>Excelで覚えておくべき関数 作業効率アップ間違いなし

【Excelについて学びたい方】
Excel 最強の教科書[完全版]

【Excel VBAについて学びたい方】
Excel VBA 脱初心者のための集中講座