[ExcelVBA] MsgBox関数

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧

■構文
MsgBox(prompt[, buttons] [, title] [, helpfile, context])

■説明
ダイアログボックスにメッセージを表示します。戻り値としどのボタンがクリックされたのか整数値を返します。
第一引数：ダイアログボックス内に表示する文字列を指定します。
第二引数：(省略可能)表示されるボタンの種類、アイコンのスタイルなどのダイアログボックスの仕様を指定します。
・第１グループ：ボタンの種類

定数	値	内容
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	テキストを、右から左の方向で表示します。

第三引数：(省略可能)ダイアログボックスのタイトルを指定します。
第四引数：(省略可能)ヘルプファイルの名前を示す文字列を指定。この引数を指定する場合、第七引数(context)の指定も必要となる。
第五引数：(省略可能)ヘルプ トピックに指定したコンテキスト番号を表す数式を指定。この引数を指定する場合、第六引数(helpfile)の指定も必要となる。

戻り値

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

■サンプルコード

Option Explicit

Sub SampleCode()
    '第一引数のみ指定
    MsgBox ("表示する文字列")
    
    Dim Result As Integer
    'ボタンの種類を指定
    Result = MsgBox("表示する文字列", vbOKCancel)

    'ボタンの種類＋アイコンの種類
    Result = MsgBox("表示する文字列", vbOKCancel + vbInformation)
    
    'ボタンの種類＋アイコンの種類＋デフォルトボタンの指定
    Result = MsgBox("表示する文字列", vbOKCancel + vbInformation + vbDefaultButton2)
End Sub

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧