Excel VBA メッセージを表示する-MsgBox関数｜リリアのパソコン学習記

Excel VBA　ダイアログボックスでメッセージを表示させるには「MsgBox」関数を使います

「MsgBox」関数は、ダイアログボックスにメッセージを表示し、どのボタンがクリックされたかを示す値を返します

< スポンサーリンク >

「MsgBox」関数の構文

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

prompt ＝メッセージの文字
buttons ＝ボタンの種類
title ＝ダイアログボックスのタイトル
helpfile と context は私は使いません

msgbox

buttonsの設定値

第１のグループはボタンの種類です

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

第２のグループはアイコンの種類です

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

第３のグループはどのボタンを選択状態にするかです

定　　数	値	ボタンの選択状態
vbDefaultButton1	0	第１ボタンを選択
vbDefaultButton2	256	第２ボタンを選択
vbDefaultButton3	512	第３ボタンを選択
vbDefaultButton4	768	第４ボタンを選択

第４のグループはボックスがモーダルかどうかを指定します

定　　数	値	モーダルの状態
vbApplicationModal	0	アプリケーションモーダルに設定
vbSystemModal	4096	システムモーダルに設定

その他のグループ

定　　数	値	内　　容
vbMsgBoxHelpButton	16384	ヘルプボタンを追加
VbMsgBoxSetForeground	65536	最前面のウィンドウとして表示
vbMsgBoxRight	524288	テキストを右寄せで表示
vbMsgBoxRtlReading	1048576	テキストを右から左の方向で表示

上記の各グループから値を１つずつ選択して加算した合計値を指定します

「MsgBox」関数例

ダイアログボックスのタイトルは「MSGタイトル」
メッセージの内容は、「メッセージを右寄せで表示」
ボタンの種類は、vbYesNoCancel　[はい]　[いいえ]　[キャンセル]
アイコンの種類は、vbQuestion　問い合わせメッセージアイコン
ボタンの選択状態は、vbDefaultButton3　３番目のボタンを選択
モーダルの状態は、vbSystemModal　システムモーダルの状態
その他のグループから、vbMsgBoxRight　文字を右寄せ

これを設定してみると

Sub test()
    Dim msg As Integer
    msg = MsgBox(“メッセージを右寄せで表示”, _
        vbYesNoCancel + _
        vbQuestion + _
        vbDefaultButton3 + _
        vbSystemModal + _
        vbMsgBoxRight, “MSGタイトル”)
End Sub

これを実行してみると下図のようになります

msgbox

ちなみに、定数の値を指定しみてたらどうなるのかな？と思い試してみました

vbYesNoCancel の値は 3
vbQuestion の値は 32
vbDefaultButton3 の値は 512
vbSystemModal の値は 4096
vbMsgBoxRight の値は 524288

3 + 32 + 512 + 4096 + 524288 = 528931 なので

Sub test()
Dim msg As Integer
msg = MsgBox(“メッセージを右寄せで表示”, 528931, “MSGタイトル”)
End Sub

結果は、定数と同じでした

msgbox

戻り値

どのボタンをがクリックされたかを示す値が返されます

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

先ほどのプロシージャに追加してみます

Sub test()
    Dim msg As Integer
    msg = MsgBox(“メッセージを右寄せで表示”, ?
        vbYesNoCancel + _
        vbQuestion + _
        vbDefaultButton3 + _
        vbSystemModal + _
        vbMsgBoxRight, “MSGタイトル”)

    If msg = vbYes Then
        MsgBox “[はい] がクリックされました”
    ElseIf msg = vbNo Then
        MsgBox “[いいえ] がクリックされました”
    ElseIf msg = vbCancel Then
        MsgBox “[キャンセル] がクリックされました”
    End If
End Sub

[はい] がクリックされると

vbyes