VBA　MsgBoxの戻り値（VbMsgBoxResult）

✅ 基本的な仕組み

Dim result As VbMsgBoxResult
result = MsgBox("保存しますか？", vbYesNoCancel + vbQuestion, "確認")

Select Case result
    Case vbYes
        ' 保存処理
    Case vbNo
        ' 保存しない処理
    Case vbCancel
        ' キャンセル処理
End Select

このように、MsgBox の戻り値は VbMsgBoxResult 型の値となり、vbYes などの定数と比較して使います。

🧾 VbMsgBoxResult の定数一覧

※ これらの値は整数型（Integer）であり、比較や代入に使用されます。

🧪 使用例

1. ユーザーの応答で処理を分岐

Dim res As VbMsgBoxResult
res = MsgBox("上書き保存しますか？", vbYesNoCancel + vbQuestion, "確認")

If res = vbYes Then
    MsgBox "保存しました。", vbInformation
ElseIf res = vbNo Then
    MsgBox "保存しませんでした。"
ElseIf res = vbCancel Then
    MsgBox "操作をキャンセルしました。"
End If

2. 中止/再試行/無視

Dim res As VbMsgBoxResult
res = MsgBox("エラーが発生しました。どうしますか？", vbAbortRetryIgnore + vbCritical)

Select Case res
    Case vbAbort
        MsgBox "処理を中止します。"
    Case vbRetry
        MsgBox "もう一度実行します。"
    Case vbIgnore
        MsgBox "無視して続行します。"
End Select

🔄 MsgBox と VbMsgBoxResult の関係まとめ

🛑 注意点

🧠 応用：関数として汎用化するサンプル

Function UserConfirm(message As String) As Boolean
    Dim res As VbMsgBoxResult
    res = MsgBox(message, vbYesNo + vbQuestion, "確認")
    UserConfirm = (res = vbYes)
End Function

Sub Test()
    If UserConfirm("続けますか？") Then
        MsgBox "処理を続行します。"
    Else
        MsgBox "処理を中断しました。"
    End If
End Sub

📌 まとめ