Excel VBAでメッセージボックスを表示する：MsgBox

VBAのメッセージボックスについて説明します。

MsgBox関数

画面上に、メッセージ付きのウインドウを表示します。

Msgbox（[メッセージ]）

メッセージが表示されるだけでよければ、これだけで十分ですが、より正確な構文は下記です。

Msgbox（[メッセージ], [ボタン形態], [タイトル], [ヘルプファイル], [コンテキスト]）

[メッセージ]のみ必須で、他は省略可能ですが、[ボタン形態][タイトル]はよく使いますので追って説明します。[ヘルプファイル][コンテキスト]はヘルプ表示を設定するときに使用します。

引数の説明

[メッセージ], [ボタン形態], [タイトル]まで紹介します。

[メッセージ]：メッセージボックスに表示される文字です。文字列で指定します。

[ボタン形態] ：メッセージボックスに表示されるボタンやアイコンを指定できます。数が多いので主なもののみを紹介します。下表（１）および（２）を足し算の形で組み合わせて設定できます。

（例）OKボタンのみで警告アイコン→vbOKOnly＋vbCritical

なお、（１）同士や（２）同士の設定はできません。

[タイトル]：タイトルとして表示される文字です。

使用例１

ＯＫボタンのみ＋各種アイコンの組み合わせを確認してみます。アイコン付のものはキャプションも設定しています（×ボタンの左隣）のでご確認ください。

'必須引数のみ
MsgBox "テスト"
'アイコンと組み合わせる
MsgBox "テスト", vbCritical + vbOKOnly, "警告アイコン"
MsgBox "テスト", vbExclamation + vbOKOnly, "注意アイコン"
MsgBox "テスト", vbInformation + vbOKOnly, "情報アイコン"
MsgBox "テスト", vbQuestion + vbOKOnly, "問合せアイコン"

[実行結果]

使用例２　戻り値を活用する

MsgBox関数は、押されたボタンの種類に依存した戻り値（数値／整数型）を持ちます。

下記例は、【１】のメッセージボックスで「はい」、「いいえ」、「キャンセル」の中でどのボタンが押されたのか調べ、【２】のボックスでその結果に合わせた戻り値を表示するものです。

なお、【１】のように戻り値を使用する場合は、Integer（整数）型の変数（Ans）に代入する形で記述します。また、引数は（）で括ります。戻り値を使わない場合、（）は要りません。

Dim Ans As Integer, Reply As String

'【1】戻り値を使うときは引数を()で括ります。
Ans = MsgBox("どれか押してください", vbYesNoCancel, "戻り値を表示します")

Select Case Ans
    Case Is = 6
        Reply = "はい"
    Case Is = 7
        Reply = "いいえ"
    Case Is = 2
        Reply = "キャンセル"
End Select

    '【2】戻り値を使わないときは[関数名](スペース)[引数]を()で括りません。
    MsgBox Reply & "が押されました(戻り値" & Ans & ")", vbInformation, "押したボタンは"

[実行結果]