VBAでMsgBoxやInputBoxを使ったらキャンセル時にエラーが出る原因と対処法

VBA/マクロ//

目次

はじめに：ダイアログボックスの「キャンセル」が引き起こすエラーの背景

Excel VBAにおいて、ユーザーと対話しながらマクロを進行させるために不可欠な機能が、メッセージを表示する MsgBox と、ユーザーにテキストやセル範囲の入力を求める InputBox です。これらを活用することで、「本当に処理を実行しますか？」という確認や、「処理対象の年月を入力してください」といった柔軟なマクロを構築することができます。

しかし、これらのダイアログボックスを実装した際、開発者が「ユーザーが素直に値を入力してOKを押すこと」だけを想定してコードを書いていると、ユーザーが途中で処理をやめようとして「キャンセル」ボタンを押した瞬間、または右上の「×」ボタンを押して閉じた瞬間に、マクロが「実行時エラー」を起こして強制停止してしまうトラブルが頻発します。

これはVBAの不具合ではありません。ユーザーがキャンセルを押した際、VBAは「キャンセルされた」という特別な値（戻り値）をプログラム側に返却します。プログラム側でこの「キャンセルの戻り値」を正しく受け取るための変数の型（データ型）が用意されていなかったり、キャンセル時の条件分岐が記述されていなかったりすると、データの不整合（型の不一致など）が発生し、エラーとなってしまうのです。

本記事では、MsgBoxと2種類のInputBox（VBA関数とApplicationメソッド）において、キャンセルボタンが押された際に具体的にどのような値が返ってくるのかという内部のメカニズムを解き明かし、実行時エラー（エラー13やエラー424など）を完全に防ぐための正しい対処法とコードの書き方を網羅的に解説します。

MsgBoxにおけるキャンセルの処理とエラー回避

まずは MsgBox のキャンセル処理について解説します。MsgBoxでエラーが出る場合、実行時エラーよりも「コンパイルエラー（構文エラー）」になるケースが大半です。

原因：戻り値を受け取る構文（括弧の有無）の勘違い

MsgBoxは、単にメッセージを表示するだけであれば MsgBox "処理が完了しました" のように記述します。しかし、「OK / キャンセル」や「はい / いいえ」などの複数のボタンを表示し、ユーザーがどちらを押したかによって処理を分岐させる場合は、押されたボタンの結果（戻り値）を変数で受け取る必要があります。

この時、戻り値を受け取る構造にしていないのに、引数を括弧 () で囲んでしまうと構文エラーになります。

' 【エラーになる書き方】戻り値を受け取らないのに括弧を使っている
MsgBox("処理を実行しますか？", vbOKCancel)

対処法：戻り値を変数で受け取り、条件分岐を行う正しい書き方

キャンセルが押されたことを検知してマクロを終了させるには、戻り値を受け取るための変数（通常は VbMsgBoxResult 型、または Integer 型）を用意し、関数の結果として代入する形をとります。この場合は引数を括弧で囲む必要があります。

Sub CheckMsgBoxCancel()
    Dim result As VbMsgBoxResult

    ' 戻り値を変数に代入するため、引数を()で囲む
    result = MsgBox("処理を実行しますか？", vbOKCancel + vbQuestion, "確認")

    ' 戻り値が vbCancel（キャンセルボタンが押された）場合の処理
    If result = vbCancel Then
        MsgBox "処理をキャンセルしました。"
        Exit Sub ' マクロをここで終了する
    End If

    ' OKが押された場合の処理がここから続く
    MsgBox "処理を開始します。"
End Sub

このように、MsgBoxに関しては戻り値と変数の型が明確であるため、基本的なIf文による分岐さえ記述しておけば、実行時エラーで落ちることはありません。

【重要】InputBoxでエラーが起きる最大の原因：2種類のInputBoxの違い

VBAにおいてキャンセル処理が非常に難解で、エラーの温床となるのが InputBox です。その最大の理由は、VBAには「名前は同じだが、仕様も戻り値も全く異なる2つのInputBoxが存在する」という事実にあります。

  • VBA関数の InputBox： InputBox("メッセージ")
    VBAに標準で備わっている機能。戻り値は常に「文字列（String型）」。
  • Excelメソッドの Application.InputBox： Application.InputBox("メッセージ")
    Excelオブジェクト特有の機能。「セル範囲の選択」などが可能。戻り値は「Variant型（文字列、数値、論理値、Rangeオブジェクトなど）」に変化する。

どちらのInputBoxを使用しているかによって、キャンセル時に返ってくる値が異なります。これを混同して受け取ろうとすると、致命的な実行時エラーが発生します。

1. VBA標準関数「InputBox」のキャンセル処理とエラー13

まずは単なる InputBox 関数を使用した場合のメカニズムです。

原因：「型が一致しません（エラー13）」が発生するメカニズム

ユーザーに数値を入力させたい場合、受け取る変数を Long 型（長整数型）などで宣言することがよくあります。

' 【エラーになる危険なコード】
Dim targetMonth As Long
targetMonth = InputBox("処理する月を数値（1～12）で入力してください")

ユーザーが「8」と入力してOKを押せば、VBAは文字列の “8” を自動的に数値の 8 に変換して代入してくれるため、正常に動きます。しかし、ユーザーが「キャンセル」ボタンを押した場合、VBA標準のInputBoxは「長さゼロの空文字列（””）」を返します。
この空文字列 "" を、数値専用の箱である Long 型の変数 targetMonth に無理やり代入しようとするため、データ型が矛盾し、「実行時エラー ’13’: 型が一致しません。」が発生してマクロが強制停止するのです。

対処法：戻り値をString型で受け取り、空文字を判定する

このエラーを防ぐための鉄則は、「InputBox関数の戻り値は、数値を入れたい場合であっても、最初は必ず String 型（文字列型）の変数で受け取る」ことです。

Sub SafeVBAInputBox()
    Dim userInput As String
    Dim targetMonth As Long

    ' 必ず文字列型の変数で受け取る
    userInput = InputBox("処理する月を数値（1～12）で入力してください")

    ' キャンセル判定（空文字かどうか）
    If userInput = "" Then
        MsgBox "キャンセルされました。"
        Exit Sub
    End If

    ' 数値かどうかのチェック（ユーザーが「あ」などを入力した場合の対策）
    If IsNumeric(userInput) = False Then
        MsgBox "数値を入力してください。"
        Exit Sub
    End If

    ' 安全が確認できたら数値型に変換して代入する
    targetMonth = CLng(userInput)
    MsgBox targetMonth & "月の処理を開始します。"
End Sub

【高度な手法】「未入力でOK」と「キャンセル」を厳密に区別するStrPtr関数

上記のコードには一つだけ弱点があります。ユーザーが「何も入力せずに（空欄のまま）OKボタンを押した」場合も、戻り値は空文字列 "" となるため、キャンセルの処理と同じ扱いになってしまいます。業務要件として「未入力のままOKを押すことを許可したい」場合には不都合です。

VBAにおいて「空欄でOKを押した（有効な空文字列）」と「キャンセルを押した（未割り当てのポインタ）」を厳密に区別するには、裏技的なポインタ取得関数である StrPtr 関数を使用します。キャンセルが押された場合、StrPtr は 0 を返します。

Sub StrictCancelCheck()
    Dim userInput As String
    userInput = InputBox("任意の文字を入力してください（空欄OK）")

    ' StrPtr関数を用いた厳密なキャンセル判定
    If StrPtr(userInput) = 0 Then
        MsgBox "キャンセルボタンが押されました。"
        Exit Sub
    End If

    If userInput = "" Then
        MsgBox "空欄のままOKが押されました。"
    Else
        MsgBox "入力された文字: " & userInput
    End If
End Sub

2. Excelメソッド「Application.InputBox」のキャンセル処理とエラー

次に、Application.InputBox メソッドを使用した場合のキャンセル処理です。こちらは引数 Type を指定することで、入力できるデータの種類を制限できる（例えば Type:=1 とすると数値以外を入力させない）非常に便利な機能ですが、キャンセルの挙動が極めて特殊です。

原因：キャンセル時に「False（論理値）」が返るという特異な仕様

Application.InputBox では、ユーザーがキャンセルボタンを押すと、空文字列ではなく 論理値の False（ブール型） が返却されます。

' 【エラーになる危険なコード】
Dim userInput As String
userInput = Application.InputBox("数値を入力", Type:=1)

このコードでキャンセルを押すと、返ってきた論理値の False が、文字列型の変数 userInput に代入される過程で、文字列の "False" という文字に勝手に変換されてしまいます。結果としてエラーにはならず「Falseという文字が入力された」と誤認識されたまま処理が進み、後続の計算処理でシステムエラーを引き起こすという非常に厄介なバグを生み出します。

対処法：戻り値を必ずVariant型で受け取り、Falseを判定する

Application.InputBox を使用する場合の絶対の鉄則は、戻り値を受け取る変数を Variant 型（すべてのデータ型を許容する型）で宣言することです。その上で、値が論理値の False かどうかを判定します。

Sub SafeAppInputBox()
    Dim userInput As Variant ' 必ずVariant型を使用する

    ' Type:=1 により数値のみ許可（文字を入れるとExcelが弾いてくれる）
    userInput = Application.InputBox("数値を入力してください", Type:=1)

    ' キャンセル判定：VarType関数でデータ型がブール型(Boolean)か確認し、かつ値がFalseか判定する
    If VarType(userInput) = vbBoolean And userInput = False Then
        MsgBox "キャンセルされました。"
        Exit Sub
    End If

    MsgBox "入力された数値は " & userInput & " です。"
End Sub

単純に If userInput = False Then と書いてしまうと、ユーザーが数値の「0」を入力してOKを押した場合に、VBAの仕様上「0 = False」と同義とみなされてキャンセル扱いになってしまう罠があるため、VarType(userInput) = vbBoolean（データ型が論理値であること）の確認を挟むのが最も安全です。

【鬼門】Application.InputBox (Type:=8) でセル選択をキャンセルした時のエラー424

VBA開発者が最も多く挫折し、ネット上に質問が溢れているのが、Application.InputBox で Type:=8 を指定し、ユーザーにマウスでセル範囲（Rangeオブジェクト）を選択させる処理を実装した際のエラーです。

原因：オブジェクト変数にFalseを代入しようとして起きる「オブジェクトが必要です」

Type:=8 を指定した場合、戻り値はセルの情報を持つ「Rangeオブジェクト」になるため、受け取る変数は Range 型で宣言し、代入には Set ステートメントを使用する必要があります。

' 【エラーになる危険なコード】
Dim targetRange As Range
Set targetRange = Application.InputBox("セルを選択してください", Type:=8)

ここでキャンセルボタンを押すとどうなるでしょうか。先述の通り、キャンセル時は論理値の False が返ってきます。
コードは Set targetRange = False という状態になります。Set は「オブジェクト（物体）」を格納するための専用の命令ですが、そこへ「False（論理値）」という単なる情報を入れようとしたため、VBAは「そこにはオブジェクトを入れなければならない（オブジェクトが必要です）」と判断し、「実行時エラー ‘424’: オブジェクトが必要です。」を発生させて強制停止します。Variant型にしていないため発生するエラーですが、オブジェクトを受け取る以上、Variant型ではなくRange型を使わざるを得ないというジレンマに陥ります。

対処法：On Error Resume Nextを用いたエラーハンドリングの必須化

この「エラー424」は、構造上どうしても回避できません。そのため、「エラーが発生することを前提として、エラーを無視（補足）する処理を記述する」というアプローチをとります。VBAの On Error Resume Next ステートメントを利用します。

Sub SelectRangeWithInputBox()
    Dim targetRange As Range

    ' エラーが発生してもマクロを止めずに次の行へ進むよう指示
    On Error Resume Next

    ' ユーザーにセル範囲を選択させる
    ' キャンセルが押されるとここで内部的にエラー424が起きるが、無視される
    Set targetRange = Application.InputBox("処理対象のセル範囲を選択してください", Type:=8)

    ' エラーの無視設定を解除する（これ以降は通常のエラー検知に戻す。超重要）
    On Error GoTo 0

    ' キャンセルされたかどうかの判定
    ' Setが失敗した場合、targetRange は空っぽ（Nothing）のままになる
    If targetRange Is Nothing Then
        MsgBox "セル選択がキャンセルされました。"
        Exit Sub
    End If

    ' 正常に選択された場合の処理
    MsgBox "選択されたセルアドレス: " & targetRange.Address
End Sub

この書き方が、セル選択InputBoxにおける世界標準のベストプラクティスです。キャンセルされた場合、targetRange には何も代入されず初期状態の Nothing（空っぽ）となる性質を利用し、If targetRange Is Nothing Then でキャンセル判定を行っています。

実務でコピペして使える！キャンセル処理の完全版テンプレート集

ここまで解説した仕様を踏まえ、実務のコードにそのままコピー＆ペーストして使用できる、最も安全なダイアログボックスのテンプレートを3つ紹介します。

テンプレート1：MsgBox（はい / いいえ / キャンセル）

Sub Template_MsgBox()
    Dim result As VbMsgBoxResult

    result = MsgBox("処理を実行しますか？", vbYesNoCancel + vbQuestion, "最終確認")

    Select Case result
        Case vbYes
            ' 「はい」の処理
        Case vbNo
            MsgBox "処理を見送りました。"
            Exit Sub
        Case vbCancel
            MsgBox "キャンセルしました。"
            Exit Sub
    End Select
End Sub

テンプレート2：InputBox（文字列・数値の安全な入力）

Sub Template_InputBox()
    Dim userInput As String

    userInput = InputBox("データを入力してください")

    ' キャンセルまたは×ボタンの検知
    If StrPtr(userInput) = 0 Then
        Exit Sub
    End If

    ' 未入力でOKを押した際の検知
    If userInput = "" Then
        MsgBox "値が入力されていません。"
        Exit Sub
    End If

    ' 正常入力時の処理
    MsgBox "入力値: " & userInput
End Sub

テンプレート3：Application.InputBox（セル範囲の安全な選択）

Sub Template_AppInputBox_Range()
    Dim selectedRange As Range

    On Error Resume Next
    Set selectedRange = Application.InputBox("出力先のセルをクリックしてください", "出力先選択", Type:=8)
    On Error GoTo 0

    If selectedRange Is Nothing Then
        MsgBox "出力先が指定されなかったため、処理を中止します。", vbExclamation
        Exit Sub
    End If

    ' 正常に選択された場合の処理
    selectedRange.Value = "ここにデータを出力"
End Sub

まとめ：ユーザーの「キャンセル」を予測した堅牢な設計を

VBAにおいて MsgBox や InputBox を使用した際に発生するエラーの根本原因は、「ユーザーは常に正しい操作をするとは限らない」「途中で気が変わってキャンセルを押すかもしれない」という、イレギュラーな状況を想定したデータ型の受け口や条件分岐（エラーハンドリング）がコード内に実装されていないことにあります。

特に InputBox に関しては、VBA標準関数とApplicationメソッドで仕様が全く異なり、空文字列（””）が返るのか、論理値（False）が返るのかというトラップが存在します。これらを正確に理解し、String、Variant、Range といった変数のデータ型を適切に使い分け、時には StrPtr 関数や On Error Resume Next といった高度な技術を併用することが、プロフェッショナルなマクロ開発には求められます。

本記事で提供した仕組みの理解とテンプレートコードを活用し、誰が操作して途中でキャンセルボタンを押しても、決してエラーでクラッシュすることなく、静かに安全に処理を終了できる堅牢なVBAマクロを構築してください。