エラーへの対処｜VBAエキスパート対策

最終更新日：2018-03-10

エラーへの対処

・On Error Goto
・On Error Resume Next
・Errorオブジェクトほか

【ここでのポイント】

公式テキストでは、文法エラーと論理エラーについて書かれていますが、
そこはベーシックの出題範囲なので、ここでは省略します。
もし、不安な部分があるようなら、デバッグの基礎 を復習しておいてください。

・デバッグとは・論理エラーと文法エラー・イミディエイトウィンドウ・ブレークポイント・ステップ実行【ここでのポイント】あまりにも範囲が広いためどこまでが出題範囲なのか悩ましいてころです。デバッグそのものを問う問題だとしても例文にVBAコードが存在する場合はそもそもVBAの基礎そのものが問われることになります。

エラーへの対処は、極めて簡単です。
On Error Goto
On Error Resume Next
どちらかを使います。
そして、
エラー発生の理由は、Errオブジェクトのプロパティを調べるだけです。

たったこれだけです、そして、これ以外には有りません。
にもかかわらず、大項目として試験範囲に列挙されているのには理由があります。

何の対策もしてなければ、マクロ実行でエラーが発生すればマクロは停止してしまいます。

マクロが停止しては困ります。
そもそもマクロは作業を自動化するものなのに、停止してしまってはどうしようもありません。
そこで、エラーへの対処が必要になります。
そしてVBAとしての対処は、上記のとおり難しいものではありません。

本当に難しいのは、エラー発生の可能性を事前に予測することです。
これには経験が必要です。

試験対策としては、
VBAのステートメントはそれほど難しくないのでしっかり覚えることは当然として、
いろいろなエラー発生パターンを実際のVBAコードで体験しておくことです。

On Error Goto

実行時エラーが発生した時に、制御を指定の行ラベルに移動させるものです。

エラーが発生すると、行ラベルの位置に制御が移ります。

このステートメント以降、On Error GoTo 0 が無い限り、プロシージャーの終わりまで有効となります。


  
    
      
      Sub Sample

      　　On Error GoTo Label01

      　　・・・

      　　'ここでエラー発生した場合、Label01に制御が移ります
　　・・・

      　　Exit Sub

      Label01:

      　　エラー時の処理

      End Sub

Label01:
これが、行ラベルです。

行ラベル

ラベル名:

と書きます。

GoToの行先として指定する場所になります。

On Error Resume Next

エラーが発生しても、エラーが発生したステートメントの次のステートメントから実行を継続します。

このステートメント以降、On Error GoTo 0 が無い限り、プロシージャーの終わりまで有効となります。

実行時エラーを発生させたステートメントの直後にあるステートメント、または On Error Resume Next ステートメントを含むプロシージャから最後に呼び出しを行った直後のステートメントを使って、実行を継続します。


  
    
      
      Dim i As Long

      On Error Resume Next

      i = "ABC"

      If Err.Number <> 
0 Then

      　　MsgBox Err.Description

      　　Err.Clear

      End If

この場合、メッセージボックスには、
「型が一致しません」と表示されます。

Err.Clearでエラー情報をクリアしています。
クリアしないと、エラー情報はそのまま残っています。

次のエラーが発生したことを判断できるように、エラー処理の後でクリアするようにします。

Errorオブジェクト

Err オブジェクトは、実行時に発生したエラーに関する情報を保有しています。

Errオブジェクトのプロパティとメソッド

Err.Clear	すべてのプロパティの設定値をクリアするメソッド
Err.Description	エラーに関する簡単な説明
Err.HelpContext	ヘルプファイルのトピックに対応するコンテキスト番号
Err.HelpFile	ヘルプファイルへの絶対バス
Err.LastDllError	最後にダイナミックリンクライブラリ (DLL) を呼び出したときのエラーコード
Err.Number	エラーを指定する数値。エラーではない場合は0
Err.Source	エラーの発生元のオブジェクトまたはアプリケーションの名前

Number プロパティの値でエラーの原因を判別します。

Err オブジェクトのプロパティの値には、最新のエラーだけが反映されます。

実行時にトラップ可能なエラー番号一覧と対処

VBA実行時に発生するエラーのうち以下の表にあるエラーはトラップ（捕捉）できるエラーになります。OnErrorステートメントおよびErrオブジェクトのNumberロパティを使用してエラーへの対処を行うことができます。VBAでのエラーとは Subsample() DimiAsLong OnErrorResumeNext i=_A_ IfErr.Number…

On Error Goto 0

現在のプロシージャに含まれる使用可能なエラー処理ルーチンを無効にします。

その時点で有効となっている、
On Error GoTo
または
On Error Resume Next
これらのエラー処理を無効にします。

On Error の有効範囲

On Error GoTo 行ラベル
と
On Error Resume Next

これらは、このステートメントが実行されて以降、
On Error GoTo 0が出てくるか、
そのプロシージャが終了するまでが有効範囲となります。

On Errorが有効な状態で別のプロシージャをCallし、
呼び出されたプロシージャ内でOn Error対応されていないエラーが発生した場合は、
呼び出されたプロシージャはその場で終了します。
呼び出し元のプロシージャに戻ってからは、On Errorの指定に従い動作します。

文章では理解しづらいので、以下のサンプルで確認してください。


  
    
      Sub test1()

      　　On Error GoTo Err_Exit

      　　Call test2 'この中でエラー発生しても、On Error Go Toは有効

      　　MsgBox "正常終了"

      　　Exit Sub

      Err_Exit:

      　　MsgBox "異常終了" & vbLf & Err.Description

      End Sub


      Sub test2()

      　　Dim i As Long

      　　On Error Resume Next

      　　i = "A" 'このエラーは無視

      　　On Error GoTo 0

      　　i = 0

      　　i = i / i 'ここでエラー発生→プロシージャを抜けます

      　　i = 1 'これは実行されません

      End Sub

上記の「test1」の実行結果は、

本来のエラー対応

エラー発生した時のエラー処理を記述する前に、
そもそもエラーが発生しないようにすることが本来のエラー対応です。

ブックの存在確認


  
    
      Sub sample1()

　　Dim sBook As String

　　sBook = InputBox("ブック名を入力してください。")

　　Workbooks.Open ThisWorkbook.Path & "\" & sBook

End Sub

存在しないブックを開いたときはエラーとなります。

このエラーへの対応は、以下のようにします。


  
    
      Sub sample2()

      　　Dim sBook As String

      　　On Error GoTo Err01

      　　sBook = InputBox("ブック名を入力してください。")

      　　Workbooks.Open ThisWorkbook.Path & "\" & sBook

      　　MsgBox sBook & "を開きました。"

      　　Exit Sub

      Err01:

      　　MsgBox sBook & "は存在しません。"

      End Sub


  
    
      Sub sample3()

      　　Dim sBook As String

      　　On Error Resume Next

      　　sBook = InputBox("ブック名を入力してください。")

      　　Workbooks.Open ThisWorkbook.Path & "\" & sBook

      　　If Err.Number = 0 Then

      　　　　MsgBox sBook & "を開きました。"

      　　Else

      　　　　MsgBox sBook & "は存在しません。"

      　　End If

      End Sub

上記の2つのVBAは、どちらも同じことをしています。
On Error GoToとOn Error Resume Nextの違いだけです。

これらは、ブックをOpenしてエラー発生したらメッセージを出しています。

しかし、そもそも存在しないブックを開こうとしていることが間違いです。
ブックOpenの前に、そのファイルが存在するかどうかのチェックをするべきです。


  
    
      Sub sample4()

      　　Dim sBook As String

      　　On Error Resume Next

      　　sBook = InputBox("ブック名を入力してください。")

      　　If Dir(ThisWorkbook.Path & "\" & sBook) = "" Then

      　　　　MsgBox sBook & "は存在しません。"

      　　Else

      　　　　Workbooks.Open ThisWorkbook.Path & "\" & sBook

      　　　　MsgBox sBook & "を開きました。"

      　　End If

      End Sub

Dir関数で、ファイルが存在するか確認し、
存在する場合のみブックOpenしています。

シートの存在確認


  
    
      Sub sample5()

　　Dim sSheet As String

　　sSheet = InputBox("シート名を入力してください。")

　　Worksheets(sSheet).Select

End Sub

存在しないシートを選択したときはエラーとなります。

このエラーへの対応は、以下のようにします。


  
    
      Sub sample6()

　　Dim sSheet As String

　　On Error GoTo Err01

　　sSheet = InputBox("シート名を入力してください。")

　　Worksheets(sSheet).Select

　　MsgBox sSheet & "を選択しました"

　　Exit Sub

Err01:

　　MsgBox sSheet & "は存在しません。"

End Sub


  
    
      Sub sample7()

　　Dim sSheet As String

　　On Error Resume Next

　　sSheet = InputBox("シート名を入力してください。")

　　Worksheets(sSheet).Select

　　If Err.Number = 0 Then

　　　　MsgBox sSheet & "を選択しました"

　　Else

　　　　MsgBox sSheet & "は存在しません"

　　End If

End Sub

上記の2つのVBAは、どちらも同じことをしています。
On Error GoToとOn Error Resume Nextの違いだけです。

これらは、シートを選択してエラー発生したらメッセージを出しています。

しかし、そもそも存在しないシートを選択していることが間違いです。
シート選択の前に、そのシートが存在するかどうかのチェックをするべきです。


  
    
      Sub sample8()

　　Dim sSheet As String

　　Dim sht As Worksheet

　　Dim flg As Boolean

　　On Error Resume Next

　　sSheet = InputBox("シート名を入力してください。")

　　flg = False

　　For Each sht In Worksheets

　　　　If LCase(sht.Name) = LCase(sSheet) Then

　　　　　　flg = True

　　　　　　Exit For

　　　　End If

　　Next

　　If flg = True Then

　　　　Worksheets(sSheet).Select

　　　　MsgBox sSheet & "を選択しました"

　　Else

　　　　MsgBox sSheet & "は存在しません"

　　End If

End Sub

For Eachで、ワークシートコレクションを処理しています。
指定のシート名があれば、flgにTrueを入れています。
flgはBoolean変数で、TrueかFalseだけが入るデター型です。

シート名は大文字小文字を区別しないので、
判定時にLCaseで小文字に統一してから判定しています。

シートが存在した場合（flg=True）のみシートを選択するようにしています。

※試験対策としては、これくらいのVBAがすんなり読めるようになっておきましょう。

演算エラー対応の演習


  
    
      Sub sample11()

　　Dim i

　　Dim j As Integer

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

　　j = i + 100

　　MsgBox j

　　j = 10000 / i

　　MsgBox j

End Sub

このマクロを実行した時、
入力した値によっては、以下のエラーが発生します。

計算できない文字列を計算したり、
数値のデータ型変数に文字列を入れた時はエラーとなります。

0で割り算した時はエラーとなります。

データ型の範囲外の数値（Integerに40000等）を入れた時はエラーとなります。

演習として、以下に取り組んでみましょう。

このマクロを、
On Errorでエラー対応してみましょう。
そして、
On Errorを使わずに、エラー発生しないように対応してみしょう。
数値かどうかの判定は、IsNumeric関数を使います。

このエラー対応のVBAが書けることは、スタンダード合格としては最低限のレベルになります。
もし、これが書けないようであれば、もう一度最初から学び直してください。

【業務改善の実務】

VBAコードを見たとき、
エラー対応を考えて書かれているかどうかは直ぐに分かります。
そして、
どのように対応しているかを見れば、その人のVBAスキルがはかれます。
まさに、VBA上級者としては腕の見せ所でもあります。

しかし、
むやみやたらにエラー対応すれば良いというものではありません。
例えば、
シートを扱う時に、毎回シートの存在チェックをする必要があるかという事です。
シートを削除したらマクロが動かなくなることは、誰でもわかることです。
もし、それさえ分からない人が使うブックなら、ブックを保護しておくべきなのです。
従って、本来あるべきシートが存在しているかのチェックをすることの是非は考えるべきです。

Excelでシステムを作る場合は、使用者に最低限のExcel知識を教えるべきであり、
決まりを守って使う事を前提として、マクロ作成することがトータルコストの削減になります。

【本サイト内の関連ページ】

第60回．エラー処理（On Error）

マクロを実行しているとエラーメッセージが表示されマクロ実行が停止してしまう事があります。マクロがエラー停止しては自動化の目的が達成されませんのでエラー停止しないようにしなければなりません。エラーが出ないようにVBAを記述出来ればそれに越したことはありませんが一切エラーを出さないようにVBAを書くことはかなり困難なものです。

第61回．「On Error Go To」と「Exit Sub」

「OnErrorGoTo行ラベル」このステートメントは、実行時エラーが発生した時に、制御を指定の行ラベルに移動させるものです。マクロVBAは、エラーが発生するとその時点で停止してしまいます。VBAが実行不能となった場合に、エラー発生したVBAコードで停止します。

第62回．「On Error Resume Next」とErrオブジェクト

「OnErrorResumeNext」ステートメントは、実行時エラーが発生してもマクロVBAを中断せずに、エラーが発生したステートメントの次のステートメントから実行を継続します。マクロVBAは、エラーが発生するとその時点で停止してしまいます。

実行時にトラップ可能なエラー番号一覧と対処

よくあるVBA実行時エラーの解説と対応

VBAを書き終えて、いざ実行したら意味不明なメッセージが… ここでは初心者向けに、代表的な実行時エラーの解説とその対応について説明します。中級者以上の方は、実行時にトラップ可能なエラー番号一覧と対処こちらを参考に、エラー対応（OnError等）を実装してください。