VBA-メッセージボックス

MsgBox関数*は、メッセージボックスを表示し、ユーザーがボタンをクリックするのを待ちます。その後、ユーザーがクリックしたボタンに基づいてアクションが実行されます。

構文

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

パラメータ説明

プロンプト-必須パラメーター。ダイアログボックスにメッセージとして表示される文字列。プロンプトの最大長は約1024文字です。メッセージが1行を超える場合は、各行の間にキャリッジリターン文字（Chr（13））または改行文字（Chr（10））を使用して行を区切ることができます。
ボタン-オプションのパラメータ。表示するボタンのタイプ、使用するアイコンスタイル、デフォルトボタンのID、およびメッセージボックスのモダリティを指定する数値式。空白のままにすると、ボタンのデフォルト値は0です。
タイトル-オプションのパラメーター。ダイアログボックスのタイトルバーに表示される文字列式。タイトルを空白のままにすると、アプリケーション名がタイトルバーに配置されます。
Helpfile -オプションのパラメーター。ダイアログボックスの状況依存ヘルプを提供するために使用するヘルプファイルを識別する文字列式。
コンテキスト-オプションのパラメータ。ヘルプ作成者が適切なヘルプトピックに割り当てたヘルプコンテキスト番号を識別する数値式。コンテキストが提供される場合、ヘルプファイルも提供する必要があります。

ボタン*パラメータは、次の値のいずれかを取ることができます-

0 vbOKOnly-OKボタンのみを表示します。
1 vbOKCancel-[OK]ボタンと[キャンセル]ボタンを表示します。
2 vbAbortRetryIgnore-中止、再試行、および無視ボタンを表示します。
3 vbYesNoCancel-[はい]、[いいえ]、および[キャンセル]ボタンを表示します。
4 vbYesNo-[はい]および[いいえ]ボタンを表示します。
5 vbRetryCancel-[再試行]および[キャンセル]ボタンを表示します。
16 vbCritical-クリティカルメッセージアイコンを表示します。
32 vbQuestion-警告クエリアイコンを表示します。
48 vbExclamation-警告メッセージアイコンを表示します。
64 vbInformation-情報メッセージアイコンを表示します。
0 vbDefaultButton1-最初のボタンはデフォルトです。
256 vbDefaultButton2-2番目のボタンはデフォルトです。
512 vbDefaultButton3-3番目のボタンがデフォルトです。
768 vbDefaultButton4-4番目のボタンがデフォルトです。
0 vbApplicationModalアプリケーションモーダル-ユーザーがメッセージボックスに応答するまで、現在のアプリケーションは動作しません。
4096 vbSystemModalシステムモーダル-ユーザーがメッセージボックスに応答するまで、すべてのアプリケーションは動作しません。

上記の値は、論理的に4つのグループに分けられます。最初のグループ（0〜5）は、メッセージボックスに表示されるボタンを示します。 * 2番目のグループ*（16、32、48、64）は表示されるアイコンのスタイルを記述し、* 3番目のグループ*（0、256、512、768）はどのボタンがデフォルトでなければならないかを示し、 4番目はgroup （0、4096）は、メッセージボックスのモダリティを決定します。

戻り値

MsgBox関数は、ユーザーがメッセージボックスでクリックしたボタンを識別するために使用できる次の値のいずれかを返すことができます。

1-vbOK-[OK]がクリックされた
2-vbCancel-キャンセルがクリックされた
3-vbAbort-中止がクリックされた
4-vbRetry-再試行がクリックされた
5-vbIgnore-無視がクリックされた
6-vbはい-はいがクリックされました
7-vbNo-いいえがクリックされました

例

Function MessageBox_Demo()
   'Message Box with just prompt message
   MsgBox("Welcome")

   'Message Box with title, yes no and cancel Butttons
   int a = MsgBox("Do you like blue color?",3,"Choose options")
   ' Assume that you press No Button
   msgbox ("The Value of a is " & a)
End Function