MsgBox関数

MsgBox 関数はマクロ実行中にダイアログボックスを画面に表示し、ユーザーからのボタン操作を受け付けます。ダイアログボックス上の何かしらボタンを押下すると、押されたボタンに対応する定数を返却します。

MsgBox関数の使用方法

MsgBox(Prompt [, Buttons] [, Title] [, HelpFile] [, Context])

【戻り値】 MsgBoxからの戻り値を参照

引数Buttonsに指定可能な定数

引数Buttonsに指定可能な定数は5つのグループからなり、第1～4グループについてはグループ内から1つずつ、第5グループについては必要に応じた定数を合算して指定することが可能です。

• 第1グループ　・・・　ボタンの種類と個数（グループ内で1つ指定可能）
• 第2グループ　・・・　アイコンの種類（グループ内で1つ指定可能）
• 第3グループ　・・・　標準ボタン（グループ内で1つ指定可能）
• 第4グループ　・・・　メッセージボックスがモーダルか（グループ内で1つ指定可能）
• 第5グループ　・・・　その他（すべて指定可能）

第1グループ

第1グループ・・・ボタンの種類と個数

定数	値	説明
vbOKOnly	0	[OK] ボタンのみを表示します。（既定値）
vbOKCancel	1	[OK] ボタンと [キャンセル] ボタンを表示します。
vbAbortRetryIgnore	2	[中止]、[再試行]、および [無視] の 3 つのボタンを表示します。
vbYesNoCancel	3	[はい]、[いいえ]、および [キャンセル] の 3 つのボタンを表示します。
vbYesNo	4	[はい] ボタンと [いいえ] ボタンを表示します。
vbRetryCancel	5	[再試行] ボタンと [キャンセル] ボタンを表示します。

第2グループ

第2グループ　・・・　アイコンの種類

定数	値	説明
vbCritical	16	警告メッセージ アイコンを表示します。
vbQuestion	32	問い合わせメッセージ アイコンを表示します。
vbExclamation	48	注意メッセージ アイコンを表示します。
vbInformation	64	情報メッセージ アイコンを表示します。

第3グループ

第4グループ

第5グループ

MsgBoxからの戻り値

MsgBoxからは以下の表のとおりボタンに対応した数値が返ってきます。

MsgBox関数の使用例

マクロの実行に処理時間のかかることが分かっている場合にその注意メッセージを表示する例です。ボタンは OK ボタンと キャンセル ボタンを表示して キャンセル ボタンを標準ボタンに設定し、さらに、注意メッセージアイコンを表示するように設定します。

Sub sample_ef013_01()
    Dim intRtn      As Integer

    '[OK][キャンセル]ボタンを表示し、[キャンセル]を標準ボタンにする。
    intRtn = MsgBox("この処理には時間がかかります。" & vbLf & _
                    "実行してもよろしいですか？", _
                    vbOKCancel + vbExclamation + vbDefaultButton2, _
                    "処理実行確認")

    '[OK]ボタン以外が押下されたら処理を終了する。
    If intRtn <> vbOK Then
        MsgBox "処理をキャンセルしました。"
        End     '処理を終了
    End If

    '-----------------------------
    'ここに時間のかかる処理を記述
    '-----------------------------

    MsgBox "正常に処理が終了しました。", vbInformation

End Sub

 Endステートメント

上記サンプルマクロを実行すると、以下の確認ダイアログが表示されます。2番目のボタンである キャンセル ボタンにフォーカスがあたっているため、間違って Enter キーなどを押してしまっても、キャンセルされるようになっています。

キャンセル または 右上の x ボタンを押下すると処理がキャンセルされます。

OK ボタンを押下すると処理が進みます。