メッセージボックスを表示（MsgBox関数）

2015/02/27 2015/03/22

MsgBox関数

【書式】
result = MsgBox ( Prompt [ , Buttons, Title, Helpfile, Context ] )

【引数】

Prompt ・・・表示する文字列
Buttons ・・・ボタンの種類・個数・アイコンのスタイル等（省略可）
Title ・・・ダイアログボックスのタイトルバーに表示する文字列（省略可）
Helpfile ・・・ヘルプファイルのファイル名（省略可）
Context ・・・ヘルプトピックに指定したコンテキスト番号（省略可）

【戻値】

result ・・・ユーザーが選択したボタンに対応する定数

引数 Prompt に複数行を指定する場合は、キャリッジリターン（Chr(13)）、ラインフィード (Chr(10))、またはキャリッジリターンとラインフィードの組み合わせ (Chr(13) & Chr(10)) を改行位置に挿入します。

引数 Buttons を省略すると、既定値 vbOKOnly(0) になり、「OK」ボタンのみ表示されます。

引数 Title を省略すると、「Microsoft Excel」となります。

引数 Helpfile に、使用するヘルプファイルの名前を使用することで [F1] キーを押してヘルプを参照できるようになります。このとき引数 Context も指定する必要があります。

ボタンの種類・個数・スタイルを示す定数の一覧（Bottons）

表示するボタン

定数	値	表示するボタン
vbOKOnly 【規定値】	0	[OK] ボタンのみ
vbOKCancel	1	[OK] ボタンと [キャンセル] ボタン
vbAbortRetryIgnore	2	[中止] [再試行] [無視] の 3 つのボタン
vbYesNoCancel	3	[はい] [いいえ] [キャンセル] の 3 つのボタン
vbYesNo	4	[はい] ボタンと [いいえ] ボタン
vbRetryCancel	5	[再試行] ボタンと [キャンセル] ボタン

アイコンの種類

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

デフォルトのボタン

定数	値	デフォルトのボタン
vbDefaultButton1 【規定値】	0	第 1 ボタン
vbDefaultButton2	256	第 2 ボタン
vbDefaultButton3	512	第 3 ボタン
vbDefaultButton4	768	第 4 ボタン

その他

定数	値	内容
vbApplicationModal【規定値】	0	アプリケーションモーダルに設定
vbSystemModal	4096	システムモーダルに設定
vbMsgBoxHelpButton	16384	ヘルプボタンを表示
VbMsgBoxSetForeground	65536	最前面のウィンドウとして表示
vbMsgBoxRight	524288	テキストを右寄せで表示
vbMsgBoxRtlReading	1048576	テキストを、右から左の方向で表示

MsgBox関数の戻り値（result）

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

MsgBox関数の使用例

VBAソース

　
Sub sample_msgbox()

    
    Dim Result, Prompt, Buttons, Title
    
    Prompt = "メッセージボックスの使用例です。" & Chr(13) & "続行しますか？"
    Buttons = vbYesNoCancel + vbInformation + vbDefaultButton2
    Title = "メッセージボックス使用例"
    
    Result = MsgBox(Prompt, Buttons, Title)

    If Result = vbYes Then
        MsgBox "YES"
    ElseIf Result = vbNo Then
        MsgBox "NO"
    Else
        MsgBox "CANCEL"
    End If


End Sub