Excel VBA ブック内にエラーがあるかないか

質問

Excel VBA で、ある特定のセルが#REFなどのエラーになっているかどうかは
If IsError(ThisWorkbook.Worksheets("Sheet1").Range("AB1256")) Then
　MsgBox ("ファイルのデータが壊れています")
End If
というように、IsError()関数を使えば確認できます。
また、あるセル範囲の中にエラーになっているセルがあるのかどうかも、For文やFor Each文で順番にチェックしていけばできると思いますが、
シート全体、さらにはブック全体の中で、エラーになっているセルがあるのかないのかを簡単にチェックする方法はないでしょうか。エラーになっているセルは特定できなくてもいいです。
よろしくお願いします。(Windows7 , Excel2010)

回答No.1

keithin · ベストアンサー

たとえば

sub macro1()
　dim res as range
　on error resume next

　set res = ThisWorkbook.Worksheets("Sheet1").cells.specialcells(xlcelltypeformulas, xlerrors)
　if not res is nothing then
　　msgbox "FOUND ERROR"
　’msgbox "FOUND " & application.counta(res) & " ERROR(s)"
　else
　　msgbox "NO ERROR"
　end if

end sub
みたいな。

お礼

keithinさん。
すばやい回答ありがとうございます。
教えていただきました方法でエラーを検出することができました。
最初On Error Resume Nextを付け忘れていたため変なエラーが出ていました。
理由はよく分かりませんがOn Error Resume Nextで
このエラーを無視しておくのがポイントのようですね。
ありがとうございました。

回答No.2

eden3616

VBAでない方法であれば

Ctrl+Gでジャンプウィンドウを表示し、「セルの選択」から「数式」を選び
「エラー値」をチェックし「OK」でエラー箇所が選択されます。
（ブック全体ではなく、シートごとになりますが）

他の方法ですと、Ctrl+Fの検索で普通に「#REF!」で検索するとか。
（検索場所をブックにすれば全体検索もできます）

お礼

eden3616さん。
回答ありがとうございます。
keithinさんに教えていただきました方法で
ブックに問題があることが分かった時に、
エラーの箇所が簡単に探せて便利です。
ありがとうございました。