メッセージボックスを表示(MsgBox関数)
2015/03/22
MsgBox関数
result = MsgBox ( Prompt [ , Buttons, Title, Helpfile, Context ] )
【引数】
- Prompt ・・・ 表示する文字列
- Buttons ・・・ ボタンの種類・個数・アイコンのスタイル等(省略可)
- Title ・・・ ダイアログボックスのタイトルバーに表示する文字列(省略可)
- Helpfile ・・・ ヘルプファイルのファイル名(省略可)
- Context ・・・ ヘルプトピックに指定したコンテキスト番号(省略可)
【戻値】
- result ・・・ ユーザーが選択したボタンに対応する定数
引数 Prompt に複数行を指定する場合は、キャリッジリターン(Chr(13))、ライン フィード (Chr(10))、またはキャリッジ リターンとライン フィードの組み合わせ (Chr(13) & Chr(10)) を改行位置に挿入します。
引数 Buttons を省略すると、既定値 vbOKOnly(0) になり、「OK」ボタンのみ表示されます。
引数 Title を省略すると、「Microsoft Excel」となります。
引数 Helpfile に、使用するヘルプファイルの名前を使用することで [F1] キーを押してヘルプを参照できるようになります。このとき 引数 Context も指定する必要があります。
ボタンの種類・個数・スタイルを示す定数の一覧(Bottons)
表示するボタン
定数 | 値 | 表示するボタン |
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 | テキストを、右から左の方向で表示 |
MsgBox関数の戻り値(result)
定数 | 値 | 内容 |
vbOK | 1 | [OK] |
vbCancel | 2 | [キャンセル] |
vbAbort | 3 | [中止] |
vbRetry | 4 | [再試行] |
vbIgnore | 5 | [無視] |
vbYes | 6 | [はい] |
vbNo | 7 | [いいえ] |
MsgBox関数の使用例
VBAソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
Sub sample_msgbox() Dim Result, Prompt, Buttons, Title Prompt = "メッセージボックスの使用例です。" & Chr(13) & "続行しますか?" Buttons = vbYesNoCancel + vbInformation + vbDefaultButton2 Title = "メッセージボックス使用例" Result = MsgBox(Prompt, Buttons, Title) If Result = vbYes Then MsgBox "YES" ElseIf Result = vbNo Then MsgBox "NO" Else MsgBox "CANCEL" End If End Sub |
MsgBox関数のマクロ実行例
関連記事
-
-
フォント 太字・斜体(Bold, Italic, FontStyle プロパティ)
太字の設定(Bold プロパティ) Bold プロパティは、フォントを太字にする …
-
-
変数のデータ型・宣言(Dim ステートメント)
変数の宣言 一般的な方法 【書式】 Dim varname [ As type, …
-
-
日付時刻:数値から日付・時刻データを取得( DateSerial 関数、TimeSerial 関数 )
DateSerial 関数(数値を使って日付データを取得) 【書式】 date …
-
-
変数がNull 値かどうかをチェックする( IsNull 関数 )
IsNull 関数の使い方 【書式】 result = IsNull ( exp …
-
-
文字列:指定した数の空白(スペース)からなる文字列を返す(Space 関数)
Space 関数 【書式】 result = Space ( number ) …
-
-
指定した文字列を数値に変換する(Val 関数)
Val 関数 の使い方 Val 関数は、指定した文字列に含まれる数字を数値として …
-
-
日付時刻:日付時刻から情報取得( DatePart 関数 )
DatePart 関数(日付・時刻の値から情報を取得) 【書式】 result …
-
-
変数がEmpty 値かどうかをチェックする( IsEmpty 関数 )
IsEmpty 関数の使い方 【書式】 result = IsEmpty ( e …
-
-
VBA の演算子(算術演算子)
算術演算子 算術演算を行うときに使用する演算子です。 ^(べき乗)、*(積)、/ …
-
-
オートシェイプの種類を表す定数(MsoAutoShapeType 列挙型)
MsoAutoShapeType 列挙型 オートシェイプオブジェクトの図形の種類 …