VBA メッセージボックス (MsgBox関数)

基本構文
buttonsの定数
戻り値

基本構文

MsgBox(prompt[, buttons] [, title])

prompt	必須ダイアログボックス内にメッセージとして表示する文字列を指定最大文字数は、1 バイト文字で約 1,024 文字改行時は、ラインフィード (Chr(10))：「VbLf」私は、いつも「vbNewLine」を使っている
buttons	省略可能表示されるボタンの種類と個数、使用するアイコンのスタイル、標準ボタン、メッセージボックスがモーダルかどうかなどを表す値の合計値を指定省略すると、既定値は「 0 」
title	省略可能ダイアログボックスのタイトルバーに表示する文字列を指定省略すると、タイトルバーにはアプリケーション名が表示される

Sub msgBoxSample01()
    MsgBox "メッセージテスト", vbExclamation, "確認だよ"
End Sub

Sub msgBoxSample04()
    MsgBox "メッセージテスト" & vbNewLine & "改行したよ", vbInformation, "確認 (^^♪"
End Sub

buttonsの定数

種類	定数	値	内容
ボタンの種類	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 ボタンをデフォルトボタン

Sub msgBoxSample02()
    MsgBox "メッセージテストしても良い？", vbYesNo + vbQuestion + vbDefaultButton2, "確認だよ"
End Sub

戻り値

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

Sub msgBoxSample03()
    Dim res As Long
    res = MsgBox("焼肉は好きですか？", vbYesNoCancel + vbQuestion, "嗜好確認")
    
    If res = vbYes Then
        MsgBox "私も焼肉が好き！"
    ElseIf res = vbNo Then
        MsgBox "焼肉は嫌いなんだ～"
    Else
        MsgBox "え～、教えてくれないんだ　((+_+))"
    End If
End Sub