Excel VBA MsgBoxメッセージボックスのサンプル

Excel VBAの(MsgBox)メッセージボックスのサンプルです。

アイコン	☓(ばつ印)のアイコン(vbCritical)
	？(はてな)のアイコン(vbQuestion)
	！(びっくりマーク)のアイコン(vbExclamation)
	i(information)のアイコン(vbInformation)
ボタン複数	「OK」と「キャンセル」ボタン(vbOKCancel)
	「中止」と「再試行」と「無視」ボタン(vbAbortRetryIgnore)
	「はい」と「いいえ」と「キャンセル」ボタン(vbYesNoCancel)
	「はい」と「いいえ」ボタン(vbYesNo)
	「再試行」と「キャンセル」ボタン(vbRetryCancel)
	メッセージボックスのタイトル

MsgBoxの引数に定数を指定するとアイコンやボタンを制御できます。
「はい」または「いいえ」のどちらを押されたかも戻り値で判定できます。

Sub test1()
      MsgBox "こんにちは", vbCritical
End Sub

Sub test1()
      MsgBox "こんにちは", vbQuestion
End Sub

Sub test1()
      MsgBox "こんにちは", vbExclamation
End Sub

Sub test1()
      MsgBox "こんにちは", vbInformation
End Sub

Sub test1()
    Dim num1 As Integer
    num1 = MsgBox("こんにちは", vbOKCancel + vbInformation)
    Debug.Print num1 ' 1 or 2
End Sub

iのアイコンが不要な場合は、MsgBoxの引数のvbInformationを削除します。
OKは1、キャンセルは2を返します。

Sub test1()
    Dim num1 As Integer
    num1 = MsgBox("こんにちは", vbAbortRetryIgnore + vbInformation)
    Debug.Print num1 ' 3 or 4 or 5
End Sub

中止は3、再試行は4、無視は5を返します。

Sub test1()
    Dim num1 As Integer
    num1 = MsgBox("こんにちは", vbYesNoCancel + vbInformation)
    Debug.Print num1 ' 6 or 7 or 2
End Sub

はいは6、いいえは7、キャセルは2を返します。

Sub test1()
    Dim num1 As Integer
    num1 = MsgBox("こんにちは", vbYesNo + vbInformation)
    Debug.Print num1 ' 6 or 7
End Sub

はいは6、いいえは7を返します。

Sub test1()
    Dim num1 As Integer
    num1 = MsgBox("こんにちは", vbRetryCancel + vbInformation)
    Debug.Print num1 ' 4 or 2
End Sub

再試行は4、キャンセルは2を返します。

Sub test1()
    MsgBox("こんにちは", vbOKCancel + vbInformation, "テストタイトル")
End Sub

メッセージボックスのタイトルは、MsgBoxの3つめの引数に指定します。