Excel VBA MsgBox 関数の使い方をマスターしよう

Option Explicit
'MsgBox関数の使用例サンプル
Sub MsgBoxSample()

    Dim re As Long
    Dim MsgString As String
    
    MsgString = "メッセージボックス（MsgBox関数）の戻り値を" & vbCrLf & _
                "確認するテストを実行します！" & vbCrLf & _
                "ボタンを押してみてください！"
    
    'vbOKOnly + vbInformation のTEST
    re = MsgBox(MsgString, vbOKOnly + vbInformation)
    If re = 1 Then
        MsgBox "「OK」ボタンが押されました! 戻り値は [" & re & "] です！"
    End If
    
    'vbOKCancel + vbInformation のTEST
    re = MsgBox(MsgString, vbOKCancel + vbInformation)
    If re = 1 Then
       MsgBox "「OK」ボタンが押されました! 戻り値は [" & re & "] です！"
    ElseIf re = 2 Then
       MsgBox "「キャンセル」ボタンが押されました! 戻り値は [" & re & "] です！"
    Else
       MsgBox "その他ボタンが押されました! 戻り値は [" & re & "] です！"
    End If
    
    'vbAbortRetryIgnore + vbCritical のTEST
    re = MsgBox(MsgString, vbAbortRetryIgnore + vbCritical)
    Select Case re
        Case 3
            MsgBox "「中止」ボタンが押されました! 戻り値は [" & re & "] です！"
        Case 4
            MsgBox "「再試行」ボタンが押されました! 戻り値は [" & re & "] です！"
        Case 5
            MsgBox "「無視」ボタンが押されました! 戻り値は [" & re & "] です！"
        Case Else
            MsgBox "その他ボタンが押されました! 戻り値は [" & re & "] です！"
    End Select
    
    'vbYesNoCancel + vbExclamation のTEST
    re = MsgBox(MsgString, vbYesNoCancel + vbExclamation)
    If re = 6 Then
       MsgBox "「はい」ボタンが押されました! 戻り値は [" & re & "] です！"
    ElseIf re = 7 Then
       MsgBox "「いいえ」ボタンが押されました! 戻り値は [" & re & "] です！"
    ElseIf re = 2 Then
       MsgBox "「キャンセルボタン」が押されました! 戻り値は [" & re & "] です！"
    Else
       MsgBox "その他ボタンが押されました! 戻り値は [" & re & "] です！"
    End If
    
    'vbYesNo + vbInformation のTEST
    re = MsgBox(MsgString, vbYesNo + vbInformation)
    If re = 6 Then
       MsgBox "「はい」ボタンが押されました! 戻り値は [" & re & "] です！"
    ElseIf re = 7 Then
       MsgBox "「いいえ」ボタンが押されました! 戻り値は [" & re & "] です！"
    Else
       MsgBox "その他ボタンが押されました! 戻り値は [" & re & "] です！"
    End If
    
    'vbRetryCancel + vbQuestion のTEST
    re = MsgBox(MsgString, vbRetryCancel + vbQuestion)
   If re = 4 Then
       MsgBox "「再試行」ボタンが押されました! 戻り値は [" & re & "] です！"
    ElseIf re = 2 Then
       MsgBox "「キャンセル」ボタンが押されました! 戻り値は [" & re & "] です！"
    Else
       MsgBox "その他ボタンが押されました! 戻り値は [" & re & "] です！"
    End If

End Sub