Excel VBA テクニック集
計算式でのエラー表示検索

計算式でエラーが発生する場合があります。いつのまにか知らないうちに発生していた場合が問題です。
そのために、エラー箇所及びその内容を調べる方法です。

使い方は、ファイル一覧を使った応用の、「マクロ専用ファイル」によるマクロ実行に、下記コードを入れます。

    Dim Range_Obj As Object
    Dim Cell_Obj As Object

    Set Range_Obj = Excel_App.ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, xlErrors) 
	'シート内のすべてのセルで「計算式エラー」を検索します。
	'「計算式エラー」がなければエラーが発生します。つまり「Err <> 0」となります。
	'「計算式エラー」があればエラーが発生しません。つまり「Err = 0」となります。
    If Err = 0 Then
    	For Each Cell_Obj In Range_Obj       
        　　Select Case Cell_Obj.Value
            	Case CVErr(xlErrDiv0)
		    Debug.Print Cell_Obj.Address,"#DIV/0!エラー"
           	Case CVErr(xlErrNA)
		    Debug.Print Cell_Obj.Address,"#N/Aエラー"
            	Case CVErr(xlErrName)
		    Debug.Print Cell_Obj.Address,"#NAME?エラー"
            	Case CVErr(xlErrNull)
		    Debug.Print Cell_Obj.Address,"#NULL!エラー"
            	Case CVErr(xlErrNum)
		    Debug.Print Cell_Obj.Address,"#NUM!エラー"
            	Case CVErr(xlErrRef)
		    Debug.Print Cell_Obj.Address,"#REF!エラー"
            	Case CVErr(xlErrValue)
		    Debug.Print Cell_Obj.Address,"#VALUE!エラー"
            	Case Else
		    Debug.Print Cell_Obj.Address,"その他エラー"
            	End Select
            Next
	End If
    Err.Clear

Excel VBA テクニック集計算式でのエラー表示検索

Excel VBA テクニック集
計算式でのエラー表示検索