■メッセージボックス
ユーザ（使用者）へ情報または確認操作を行ってもらうために、
メッセージボックスを利用する場合がある。
今回は、MsgBox関数のサンプルを示す。
▼ボタンの種類
OKボタン
MsgBox "OKボタン", vbOKOnly
▼サンプルコード（戻り値を取得）
Public Sub main()
ReturnCode = MsgBox("OKボタン", vbOKOnly)
' 戻り値を表示
Debug.Print ReturnCode
End Sub
▼実行結果（OKボタン押下）
vbOKOnly はOKボタン押下時、「1」を返す。
| ボタン押下 | 戻り値 |
|---|---|
| OK | 1 |
OK/キャンセルボタン
MsgBox "OK/キャンセルボタン", vbOKCancel
▼サンプルコード（戻り値を取得）
Public Sub main()
ReturnCode = MsgBox("OK/キャンセルボタン", vbOKCancel)
' 戻り値を表示
Debug.Print ReturnCode
End Sub
▼実行結果（ OK/キャンセルボタン 押下）
OKボタン押下時は「1」を返し、キャンセルボタン押下時は「2」を返す。
| ボタン押下 | 戻り値 |
|---|---|
| OK | 1 |
| キャンセル | 2 |
はい/いいえボタン
MsgBox "はい/いいえボタン", vbYesNo
▼サンプルコード（戻り値を取得）
Public Sub main()
ReturnCode = MsgBox("はい/いいえボタン", vbYesNo)
' 戻り値を表示
Debug.Print ReturnCode
End Sub
▼実行結果
はいボタン押下時は「6」、いいえボタン押下時は「7」を返す。
| ボタン押下 | 戻り値 |
|---|---|
| はい | 6 |
| いいえ | 7 |
はい/いいえ/キャンセルボタン
MsgBox "はい/いいえ/キャンセルボタン", vbYesNoCancel
▼サンプルコード（戻り値の取得）
Public Sub main()
ReturnCode = MsgBox("はい/いいえ/キャンセルボタン", vbYesNoCancel)
' 戻り値を表示
Debug.Print ReturnCode
End Sub
▼実行結果
はいボタン押下時は「6」、いいえボタン押下時は「7」、キャンセルボタン押下時は「2」を返す。
| ボタン押下 | 戻り値 |
|---|---|
| はい | 6 |
| いいえ | 7 |
| キャンセル | 2 |
再試行/キャンセルボタン
MsgBox "再試行/キャンセルボタン", vbRetryCancel
▼サンプルコード（戻り値の取得）
Public Sub main()
ReturnCode = MsgBox("再試行/キャンセルボタン", vbRetryCancel)
' 戻り値を表示
Debug.Print ReturnCode
End Sub
▼実行結果
再試行ボタン押下時は「4」、キャンセルボタン押下時は「2」を返す。
| ボタン押下 | 戻り値 |
|---|---|
| 再試行 | 4 |
| キャンセル | 2 |
中止/再試行/無視ボタン
MsgBox "中止/再試行/無視ボタン", vbAbortRetryIgnore
▼サンプルコード（戻り値の取得）
Public Sub main()
ReturnCode = MsgBox("中止/再試行/無視ボタン", vbAbortRetryIgnore)
' 戻り値を表示
Debug.Print ReturnCode
End Sub
▼実行結果
中止ボタン押下時は「3」、再試行ボタン押下時は「4」、無視ボタン押下時は「5」を返す。
| ボタン押下 | 戻り値 |
|---|---|
| 中止 | 3 |
| 再試行 | 4 |
| 無視 | 5 |
▼ボタン押下時の戻り値一覧
メッセージを出力時のボタン押下処理による戻り値の一覧を表に示す。
| ボタン | 戻り値 |
|---|---|
| OK | 1 |
| キャンセル | 2 |
| 中止 | 3 |
| 再試行 | 4 |
| 無視 | 5 |
| はい | 6 |
| いいえ | 7 |
▼アイコンの種類
メッセージを出力する際、ボタンの種類（vbOKOnlyなど）にアイコン情報（vbInformationなど）を付与することでアイコン付きのメッセージを出力することができる。
情報アイコン
MsgBox "情報アイコン", vbOKOnly + vbInformation
注意アイコン
MsgBox "注意アイコン", vbOKOnly + vbExclamation
問い合わせアイコン
MsgBox "問い合わせアイコン", vbOKOnly + vbQuestion
警告アイコン
MsgBox "警告アイコン", vbOKOnly + vbCritical
コメント