メッセージの表示関数

メッセージを表示するためのMsgBox関数は今までもよくでてきました。ユーザに注意を促したり、エラーの表示をしたりと、とてもよく使用されます。改めて、MsgBox関数を見ていきましょう。

MsgBox関数

以下構文です。

［構文］MsgBox関数

MsgBox（prompt[,buttons][,title][,helpfile,context]）
    prompt：表示するメッセージ
    buttons：（省略可）ボタンの種類と個数
    title：（省略可）ダイアログボックスのタイトルバーに表示する文字列
    helpfile：（省略可）指定したヘルプファイルの名前を指定
    context：（省略可）指定したヘルプファイルのコンテキスト番号を指定

構文のカッコにカンマ区切りで表しているのが引数です。[]で囲まれているものは省略可能であることを表します。

ヘルプファイルについては、組み込み関数編（文字列関数2）のInputBox関数で補足しています。

引数buttonsについて5個の表を示します。ボタンの種類と個数を指定するグループと、アイコンの種類を指定するグループ、どのボタンが標準ボタンになるかの指定をするグループ、メッセージボックスの動作方法を指定するグループ、その他指定グループの5種です。buttonsを指定するには5種のグループから必要な値を選択して加算した合計値を指定します。

定数 値 内容
vbOKOnly 0（&H000） [OK]ボタンのみを表示
vbOKCancel 1（&H001） [OK]ボタンと[キャンセル]ボタンを表示
vbAbortRetryIgnore 2（&H002） [中止]、[再試行]および[無視]のボタンを表示
vbYesNoCancel 3（&H003） [はい]、[いいえ]および[キャンセル]のボタンを表示
vbYesNo 4（&H004） [はい]ボタンと[いいえ]ボタンを表示
vbRetryCalcel 5（&H005） [再試行]ボタンと[キャンセル]ボタンを表示

ボタンの種類と個数を指定

定数 値 内容
vbCritical 16（&H010） 警告メッセージアイコンを表示
vbQuestion 32（&H020） 問い合わせメッセージアイコンを表示
vbExclamation 48（&H030） 注意メッセージアイコンを表示
vbInformation 64（&H040） 情報メッセージアイコンを表示

アイコンの種類を指定

定数 値 内容
vbDefaultButton1 0（&H000） 第一ボタンを標準ボタンとする
vbDefaultButton2 256（&H100） 第二ボタンを標準ボタンとする
vbDefaultButton3 512（&H200） 第三ボタンを標準ボタンとする
vbDefaultButton4 768（&H300） 第四ボタンを標準ボタンとする

標準ボタンの設定

定数 値 内容
vbApplicationModai 0（&H0000） メッセージボックスに応答するまで、現在選択中のアプリケーションの実行は待機します。
vbSysyemModal 4096(&H1000） メッセージボックスに応答するまで、現在実行中のすべてのアプリケーションが待機します。

メッセージボックスの動作方法の指定

定数 値 内容
vbMsgBoxHelpButton 16384（&H4000） ヘルプボタンを追加
vbMsgBoxSetForeground 65536（&H10000） 最前面のウインドウとして表示
vbMsgBoxRight 524288（&H80000） テキストを右寄せに表示
vbMsgBoxRtlReading 1048576（&H100000） テキストを右から左の方向に表示

その他の設定

ボタンの表示部分とアイコンの種類を図示します。

ボタンの種類と個数

ボタンの種類と個数

図4：アイコンの種類

必要により使い分けてください。

MsgBox関数でどのボタンを押したかは、戻り値として返されます。「a=MsgBox(・・・)」と書いた時、変数aに設定されます。戻り値の内容も表にしました。

MsgBox関数の戻り値

定数 値 内容
vbOK 1 [OK]
vbCancel 2 [キャンセル]
vbAbort 3 [中止]
vbRetry 4 [再試行]
vbIgnore 5 [無視]
vbYes 6 [はい]
vbNo 7 [いいえ]

以下例題です。

［リスト3］Rei_MsgBox（その他の関数.xlsm）

Sub Rei_MsgBox()
    a = MsgBox("あなたは男性ですか？「はい」か「いいえ」のボタンを押してください。",     vbYesNo, "MsgBox例題")
    If a = vbYes Then
        MsgBox ("はいが押されました")
    Else
        MsgBox ("いいえが押されました")
    End If
End Sub

ボタンは「はい」と「いいえ」を表示させ、戻り値をみて、どちらを押したかを表示しています。

［コラム］MsgBoxの引数Buttonsについて

Buttonsの引数はたくさんあり、指定グループも5種あります。「はい」「いいえ」と警告メッセージアイコンを表示したいときは、vbYesNo+vbCriticalのように書いて、値を加算して指定します。パソコンのなかではどうなっているのでしょうか？。 vbYeｓNoが4（&H004）、vbCriticalが16（&H010）加算して20です。10進数でみると、どうやって見分けてよいのかわかりません。16進数に直してみましょう。＆H014となります。1桁目にボタンの種類と個数、2桁目にアイコンの種類を指定しています。パソコンは2進数で動いています。16進表示は2進数を、人にわかりやすく表現したものでした（組み込み関数編の数値関数で説明しています）。 ボタンの種類と個数の設定値を知りたいときは、1桁目（4ビット）のみ確認すれば良いことになります。各桁に各グループは割り当てられていますので、パソコンは迷わず指定値を見つけることができるのです。