メッセージボックスの表示

VBA処理中に、操作者の判断が必要になることがあります。
メッセージボックスを表示させることで、簡単に確認することができます。

【01：シンプルなメッセージボックス】

MsgBox "シンプルなメッセージボックス"

【02：情報(！)アイコンのメッセージボックス】

MsgBox "情報(！)アイコンのメッセージボックス", vbInformation, "タイトル"

【03：警告(△)アイコンのメッセージボックス】

MsgBox "警告(△)アイコンのメッセージボックス", vbExclamation, "タイトル"

【04：確認(？)アイコンのメッセージボックス】

MsgBox "確認(？)アイコンのメッセージボックス", vbQuestion, "タイトル"

【05：重大なメッセージ(ｘ)アイコンのメッセージボックス】

MsgBox "重大なメッセージ(ｘ)アイコンのメッセージボックス", vbCritical, "タイトル"

【06：「OK」と「キャンセル」のメッセージボックス】

result = MsgBox("「OK」と「キャンセル」のメッセージボックス", vbQuestion + vbOKCancel, "タイトル")
If result = vbOK Then
    MsgBox "「OK」が選択された"
ElseIf result = vbCancel Then
    MsgBox "「キャンセル」が選択された"
Else
End If

【07：「はい」と「いいえ」のメッセージボックス】

result = MsgBox("「はい」と「いいえ」のメッセージボックス", vbQuestion + vbYesNo, "タイトル")
If result = vbYes Then
    MsgBox "「はい」が選択された"
ElseIf result = vbNo Then
    MsgBox "「いいえ」が選択された"
Else
End If

【08：「はい」と「いいえ」と「キャンセル」のメッセージボックス】

result = MsgBox("「はい」と「いいえ」と「キャンセル」のメッセージボックス", vbQuestion + vbYesNoCancel, "タイトル")
If result = vbYes Then
    MsgBox "「はい」が選択された"
ElseIf result = vbNo Then
    MsgBox "「いいえ」が選択された"
ElseIf result = vbCancel Then
    MsgBox "「キャンセル」が選択された"
Else
End If

【09：「はい」と「いいえ」と「キャンセル」のメッセージボックスで「キャンセル」を既定にする】

result = MsgBox("「はい」と「いいえ」と「キャンセル」のメッセージボックスで「キャンセル」を既定にする", vbQuestion + vbYesNoCancel + vbDefaultButton3, "タイトル")
If result = vbYes Then
    MsgBox "「はい」が選択された"
ElseIf result = vbNo Then
    MsgBox "「いいえ」が選択された"
ElseIf result = vbCancel Then
    MsgBox "「キャンセル」が選択された"
Else
End If

【10：「再試行」と「キャンセル」のメッセージボックス】

result = MsgBox("「再試行」と「キャンセル」のメッセージボックス", vbQuestion + vbRetryCancel, "タイトル")
If result = vbRetry Then
    MsgBox "「再試行」が選択された"
ElseIf result = vbCancel Then
    MsgBox "「キャンセル」が選択された"
Else
End If

【11：「中止」と「再試行」と「無視」のメッセージボックス】

result = MsgBox("「中止」と「再試行」と「無視」のメッセージボックス", vbQuestion + vbAbortRetryIgnore + vbDefaultButton4, "タイトル")
If result = vbAbort Then
    MsgBox "「中止」が選択された"
ElseIf result = vbRetry Then
    MsgBox "「再試行」が選択された"
ElseIf result = vbIgnore Then
    MsgBox "「無視」が選択された"
Else
End If

【12：メッセージボックスに表示する文字列を改行する】

result = MsgBox("「はい」と「いいえ」と「キャンセル」のメッセージボックスで" & vbCrLf & _
                "「キャンセル」を既定にするなど、長い文章を表示したい場合に" & vbCrLf & _
                "改行をすると見やすくなりますj", vbQuestion + vbYesNoCancel + vbDefaultButton3, "タイトル")
If result = vbYes Then
    MsgBox "「はい」が選択された"
ElseIf result = vbNo Then
    MsgBox "「いいえ」が選択された"
ElseIf result = vbCancel Then
    MsgBox "「キャンセル」が選択された"
Else
End If