サイトについて      連絡先   検索

VBA MsgBox 関数

はじめに

Excel VBA マクロの MsgBox 関数を紹介します。

MsgBox 関数は、メッセージボックスを表示しその結果を返します。

処理の実行を確認したいときなどに使用します。

  • 目次
    • 構文
    • 解説
    • 使用例

構文

MsgBox(メッセージ)
ダイアログの説明をメッセージに指定します。OK ボタンが表示されます。

MsgBox(メッセージ, ボタン, タイトル)
ダイアログのボタンタイトルを指定できます。

引数「メッセージ」画面の説明を指定します。
引数「ボタン」省略できます。「ボタンの種類」、「アイコン」、「モーダル」を組み合わせて指定します。
引数「タイトル」省略できます。ダイアログのタイトルを指定します。
戻り値の型数値型 (Integer)

引数「ボタン」

ボタンの種類:

名前 ボタン
vbOKOnly0[OK]
vbOKCancel1[OK]、[キャンセル]
vbAbortRetryIgnore2[中止]、[再試行]、[無視]
vbYesNoCancel3[はい]、[いいえ]、[キャンセル]
vbYesNo4[はい]、[いいえ]
vbRetryCancel5[再試行]、[キャンセル]

アイコン:

名前 アイコン
vbCritical16警告メッセージ
vbQuestion32質問メッセージ
vbExclamation48注意メッセージ
vbInformation64情報メッセージ

モーダル:

名前 表示
vbApplicationModal0メッセージのボタンをクリックするまで、Excel の操作ができなくなります。
vbSystemModal4096メッセージのボタンをクリックするまで、全てのアプリケーションの操作ができなくなります。

戻り値

名前 ボタン
vbOK1[OK]
vbCancel2[キャンセル]
vbAbort3[中止]
vbRetry4[再試行]
vbIgnore5[無視]
vbYes6[はい]
vbNo7[いいえ]

解説

クリックしたボタンの値が返ります。値は VbMsgBoxResult 列挙型で定義されています。

引数「メッセージ」に改行コードを含む文字列を入力すると改行できます。

引数「ボタン」には vbOKOnly + vbCritical + vbApplicationModalのように、ボタンの種類とアイコンとモーダルを組み合わせて指定します。

モーダルのvbSystemModalは操作性が悪いので使いません。

引数「ボタン」を省略すると、vbOKOnlyアイコンなしvbApplicationModalで表示されます。

引数「タイトル」を省略すると、タイトルにアプリケーション名 (Microsoft Excel など) が表示されます。

使用例


Dim i As Integer
i = MsgBox("Tipsfound へようこそ" & vbCrLf & "このページは役に立ちましたか?")
Debug.Print(i) ' 1 (vbOK)
1

ボタンとタイトルを指定する。


Dim i As Integer
i = MsgBox("メッセージ", vbYesNo + vbInformation + vbApplicationModal, "タイトル")
Debug.Print(i) ' 6: vbYes、7: vbNo
2
  • 目次
    • 構文
    • 解説
    • 使用例