VBA MsgBoxの使い方｜ボタン・戻り値一覧とInputBox判定

MsgBox は、メッセージとボタンを表示し、押されたボタンを数値で返す VBA の関数です。 2番目の引数に「ボタンの種類＋アイコン＋既定ボタン」の定数を足して渡し、戻り値を vbYes や vbCancel と比べて処理を分けます。

この記事では、足し算に使う定数と戻り値を1枚の早見表にまとめ、はい・いいえの分岐、改行の入れ方、入力を受け取る InputBox のキャンセル判定までを、コピーして使えるコードで説明します。InputBox 関数と Application.InputBox メソッドの違いと選び方も比較表にしました。

確認環境：構文・定数の値・戻り値は、Microsoft Learn の Office VBA リファレンス（英語版）の MsgBox 関数、InputBox 関数、Application.InputBox メソッド、Miscellaneous constants、VarType 関数の各ページを 2026-10-06 に開いて照合しました。定数を足した合計値は Python 3.11 で検算しています。

この記事の結論

はい・いいえで分岐する形です。

If MsgBox("保存しますか？", vbYesNo + vbQuestion, "確認") = vbYes Then
    ' はい のときの処理
Else
    ' いいえ のときの処理
End If

InputBox 関数のキャンセルを見分ける形です。

Dim ans As String
ans = InputBox("名前を入力してください", "入力")
If StrPtr(ans) = 0 Then
    ' キャンセル
ElseIf ans = "" Then
    ' 何も入力せずに OK
Else
    ' 入力あり
End If

Application.InputBox メソッドなら、キャンセルのとき戻り値が False になります。

Dim v As Variant
v = Application.InputBox("数量を入力してください", "入力", Type:=1)
If VarType(v) = vbBoolean Then
    ' キャンセル（False が返っている）
Else
    ' v に数値が入っている
End If

• ボタン・アイコン・既定ボタンは、各グループから1つずつ選んで + で足します。
• 戻り値は vbOK=1、vbCancel=2、vbAbort=3、vbRetry=4、vbIgnore=5、vbYes=6、vbNo=7 です。数値ではなく定数名で比べます。
• 数値やセル範囲を受け取りたいとき、キャンセルを公式の記載どおりに判定したいときは Application.InputBox を選びます。

MsgBoxのボタン・アイコン・戻り値早見表

値は Microsoft Learn の MsgBox 関数のページの記載です。A・B・C の各グループから1つずつ選び、値を足したものが buttons 引数になります。

MsgBoxの構文と引数

MsgBox(prompt, [buttons], [title], [helpfile, context])

表示するだけなら、かっこなしで1行書けば済みます。押されたボタンで処理を分けるときは、かっこを付けて戻り値を受け取ります。

Sub MsgBoxBasic()
    Dim r As Long

    ' 表示するだけ（戻り値は使わない）
    MsgBox "処理が終わりました。", vbInformation, "完了"

    ' 戻り値を受け取る（かっこを付ける）
    r = MsgBox("処理を続けますか？", vbOKCancel + vbQuestion, "確認")
    If r = vbOK Then
        MsgBox "続けます。"
    Else
        MsgBox "中止しました。"
    End If
End Sub

ボタンとアイコンを足し算で指定する

よく使う組み合わせと、その合計値です。合計の数値を直接書いても動きますが、定数を + でつないで書くと、何を表示するのかが読み取れます。

既定ボタンを「いいえ」にする

既定ボタンは、Enter キーを押したときに選ばれるボタンです。削除のように取り消しにくい操作の確認では、2番目の「いいえ」を既定にしておくと、Enter を続けて押しても処理が進みません。

Sub ConfirmDelete()
    If MsgBox("選択した行を削除します。よろしいですか？", _
              vbYesNo + vbExclamation + vbDefaultButton2, "削除の確認") = vbYes Then
        MsgBox "削除の処理をここに書きます。"
    End If
End Sub

3つのボタンを Select Case で分ける

Sub ConfirmSave()
    Select Case MsgBox("変更を保存しますか？", vbYesNoCancel + vbQuestion, "確認")
        Case vbYes
            ' 保存の処理をここに書く
        Case vbNo
            ' 保存しないで先へ進む
        Case vbCancel
            Exit Sub
    End Select
    MsgBox "次の処理へ進みます。"
End Sub

MsgBox 関数のページには、キャンセルボタンがあるダイアログでは、Esc キーを押すとキャンセルを押したのと同じ結果になると書かれています。vbOKCancel・vbYesNoCancel・vbRetryCancel を使うときは、vbCancel の分岐を必ず用意します。

そのほかの buttons の定数

メッセージを改行する（vbCrLf・vbNewLine・vbLf）

メッセージの途中に改行の定数を & でつなぎます。

Sub MsgBoxNewLine()
    MsgBox "取り込みが終わりました。" & vbCrLf & _
           "件数：120 件" & vbCrLf & vbCrLf & _
           "続けて集計しますか？", vbYesNo + vbQuestion, "確認"
End Sub

MsgBox 関数のページでは、prompt の行は Chr(13)、Chr(10)、Chr(13) & Chr(10) のどれでも区切れると説明されています。つまり MsgBox の改行は、4つのどの定数でも書けます。

1つのブックの中では、どれか1つに決めておくと読みやすくなります。

InputBoxで入力を受け取り、キャンセルを判定する

InputBox 関数は、入力欄のあるダイアログを表示し、入力された文字列を返します。

InputBox(prompt, [title], [default], [xpos], [ypos], [helpfile, context])

InputBox 関数のページには、OK を押すと入力欄の内容が返り、キャンセルを押すと長さ0の文字列（""）が返ると書かれています。つまり、戻り値を "" と比べるだけでは、「キャンセル」と「何も入力せずに OK」が同じ結果になります。

2つを同じ扱いにしてよい場合

「空なら何もしない」で足りる処理は、この形で十分です。

Sub AskName()
    Dim ans As String
    ans = InputBox("シート名を入力してください", "シートの追加", "集計")
    If ans = "" Then Exit Sub        ' キャンセル、または空のまま OK
    MsgBox "シート名：" & ans      ' ここにシートを追加する処理を書く
End Sub

キャンセルと「空で OK」を見分ける場合

広く使われているのが、文字列変数に受けてから StrPtr 関数で調べる書き方です。キャンセルのときは 0、空のまま OK を押したときは 0 以外になることを利用します。

Sub AskMemo()
    Dim ans As String
    ans = InputBox("メモを入力してください（空欄も可）", "メモ")
    If StrPtr(ans) = 0 Then
        MsgBox "キャンセルされました。"
        Exit Sub
    End If
    If ans = "" Then
        MsgBox "空欄で登録します。"
    Else
        MsgBox "入力内容：" & ans
    End If
End Sub

StrPtr は InputBox 関数のページには出てこない関数です。Microsoft Learn に書かれている内容だけで組みたい場合は、次の Application.InputBox メソッドを使うと、キャンセルを False で受け取れます。

InputBox関数とApplication.InputBoxメソッドの違いと選び方

Excel には、VBA の InputBox 関数とは別に、Application オブジェクトの InputBox メソッドがあります。InputBox(...) と書けば関数、Application.InputBox(...) と書けばメソッドが呼ばれます。

Application.InputBox(Prompt, Title, Default, Left, Top, HelpFile, HelpContextID, Type)

Type 引数に指定できる値です。

Type を省略すると文字列が返ります。数値と文字列の両方を受け付けたいときは Type:=1 + 2 と足して指定します。

数値を受け取る

Sub AskQuantity()
    Dim v As Variant
    v = Application.InputBox("数量を入力してください", "数量", 1, Type:=1)
    If VarType(v) = vbBoolean Then
        MsgBox "キャンセルされました。"
        Exit Sub
    End If
    MsgBox "数量：" & v
End Sub

キャンセルの判定は、値を False と比べるのではなく、VarType で型を調べています。 数量に 0 が入力される場合もあるので、「Boolean 型かどうか」で見分けると、0 とキャンセルを取り違えません。VarType 関数は Boolean 型のとき vbBoolean（11）を返します。

文字列を受け取り、空のまま OK と見分ける

Sub AskComment()
    Dim v As Variant
    v = Application.InputBox("コメントを入力してください（空欄も可）", "コメント", Type:=2)
    If VarType(v) = vbBoolean Then
        MsgBox "キャンセルされました。"
    ElseIf v = "" Then
        MsgBox "空欄で登録します。"
    Else
        MsgBox "コメント：" & v
    End If
End Sub

セル範囲を選んでもらう

Application.InputBox メソッドのページには、Type が 8 のときは Range オブジェクトが返るので、Set ステートメントで代入すると書かれています。キャンセルのときは False が返り Range オブジェクトにならないため、代入の行を On Error で囲み、範囲が入ったかどうかを Nothing で確かめます。

Sub AskRange()
    Dim rng As Range

    On Error Resume Next
    Set rng = Application.InputBox("集計する範囲を選択してください", "範囲の選択", Type:=8)
    On Error GoTo 0

    If rng Is Nothing Then
        MsgBox "キャンセルされました。"
        Exit Sub
    End If
    MsgBox "選択されたセルの数：" & rng.Cells.Count
End Sub

入力されるまで繰り返す例

MsgBox と Application.InputBox を組み合わせた、1以上の数値が入るまで聞き直す例です。

Sub AskUntilValid()
    Dim v As Variant

    Do
        v = Application.InputBox("1 以上の数量を入力してください", "数量", Type:=1)
        If VarType(v) = vbBoolean Then
            MsgBox "入力を中止しました。", vbInformation, "数量"
            Exit Sub
        End If
        If v >= 1 Then Exit Do
        If MsgBox("1 以上の値が必要です。入力し直しますか？", _
                  vbRetryCancel + vbExclamation, "数量") = vbCancel Then Exit Sub
    Loop

    MsgBox "数量 " & v & " で登録します。", vbInformation, "数量"
End Sub

つまずきやすい点と直し方

確かめて分かったこと

Microsoft Learn の各ページを読み比べて分かった、見落としやすい点です。

1. InputBox 関数のキャンセルは、公式の記載では「長さ0の文字列を返す」までです。 空のまま OK を押した場合と戻り値の内容は同じになります。
2. Application.InputBox のタイトルを省略すると「Input」になります。 InputBox 関数と MsgBox はアプリケーション名です。タイトルは省略せずに書くと表示がそろいます。
3. 位置の単位が違います。 InputBox 関数の xpos・ypos は twip、Application.InputBox の Left・Top はポイントです。同じ数値を渡しても同じ位置にはなりません。
4. Application.InputBox の Prompt は 255 文字までです。 MsgBox と InputBox 関数のおよそ 1024 文字より短いので、長い説明を移すときに気をつけます。
5. InputBox 関数の入力欄は 255 文字まで受け付け、戻り値は 254 文字に切り詰められます。 改行も入力できません。長い文章の入力には向かないので、セルやユーザーフォームに入力してもらう形にします。
6. 同じグループの定数を足すと、別の定数と同じ値になります。 vbCritical（16）と vbQuestion（32）を足すと 48 で、vbExclamation と同じ値です。vbOKCancel（1）と vbAbortRetryIgnore（2）を足すと 3 で、vbYesNoCancel と同じ値になります。

よくある質問

Q. MsgBox の戻り値とは？ A. 押されたボタンを表す 1〜7 の数値です。vbOK=1、vbCancel=2、vbAbort=3、vbRetry=4、vbIgnore=5、vbYes=6、vbNo=7 で、If MsgBox(...) = vbYes Then のように定数名で比べます。

Q. MsgBox で改行するには？ A. メッセージの途中に & vbCrLf & を入れます。MsgBox は vbCrLf・vbNewLine・vbCr・vbLf のどれでも改行として扱うので、ブックの中で1つに決めて使います。

Q. InputBox でキャンセルされたか判定するには？ A. InputBox 関数は "" が返るので、空欄と同じ扱いでよければ If ans = "" Then Exit Sub と書きます。空のまま OK と分けたいときは、Application.InputBox を使い、VarType(v) = vbBoolean ならキャンセルと判定します。

Q. InputBox 関数と Application.InputBox の違いは？ A. Application.InputBox は Excel 専用のメソッドで、Type 引数で数値やセル範囲を受け取れ、キャンセルのとき False を返します。InputBox 関数は常に文字列を返し、キャンセルのときは長さ0の文字列を返します。

Q. 「いいえ」を最初から選ばれた状態にするには？ A. buttons に vbDefaultButton2 を足します。vbYesNo + vbQuestion + vbDefaultButton2（合計 292）と書くと、2番目の「いいえ」が既定ボタンになります。

まとめ

• MsgBox の buttons は「ボタン＋アイコン＋既定ボタン」を各グループから1つずつ足す。はい・いいえの確認は vbYesNo + vbQuestion。
• 戻り値は vbOK=1〜vbNo=7。 戻り値を使うときは、かっこを付けて If MsgBox(...) = vbYes Then と書く。
• 取り消しにくい操作の確認は vbDefaultButton2 で「いいえ」を既定にする。
• 改行は & vbCrLf &。 Windows と Mac の両方で使うコードは vbNewLine。
• InputBox 関数はキャンセルで "" を返す。 空欄と同じ扱いでよければ If ans = "" Then Exit Sub。
• 数値・セル範囲の入力と、キャンセルの確実な判定は Application.InputBox。 キャンセルは VarType(v) = vbBoolean、Type:=8 は Set と Is Nothing で受ける。

参考・出典

• Microsoft Learn「MsgBox function」「InputBox function」「Miscellaneous constants」「VarType function」（Office VBA Reference、learn.microsoft.com、2026-10-06 に確認）
• Microsoft Learn「Application.InputBox method (Excel)」（2026-10-06 に確認）

株式会社RJC ― SI事業・SES事業・AI駆動開発。RJCは一緒に成長を楽しめる会社です。