もしセルが"#N/A"なら～をする・・・には？

質問

Excel2002VBAで、
「指定セルにエラーの"#N/A"が出ている場合～の処理をする」という場合、
If range("a1")="#N/A" then
としたら、型が一致しません　エラー１３と出ました。
どのようにすればうまくいくのでしょうか？

回答No.5

imogasi · ベストアンサー

やって見ると,意外に
Sub test03()
If Range("a1").Text = "#N/A" Then
MsgBox "#N/A エラー"
End If
End Sub
で良いようです。
関数なら=ERROR.TYPE(A1)で"#N/A は　7　です。

お礼

ありがとうございます。これでもできました。
.Textにすればよかったんですね。

回答No.4

papayuka

ヘルプからの抜粋です。

With ActiveSheet
If IsError(.Range("A1").Value) Then
　　errval = .Range("A1").Value
　　Select Case errval
　　　　Case CVErr(xlErrDiv0)
　　　　　　MsgBox "#DIV/0! エラー"
　　　　Case CVErr(xlErrNA)
　　　　　　MsgBox "#N/A エラー"
　　　　Case CVErr(xlErrName)
　　　　　　MsgBox "#NAME? エラー"
　　　　Case CVErr(xlErrNull)
　　　　　　MsgBox "#NULL! エラー"
　　　　Case CVErr(xlErrNum)
　　　　　　MsgBox "#NUM! エラー"
　　　　Case CVErr(xlErrRef)
　　　　　　MsgBox "#REF! エラー"
　　　　Case CVErr(xlErrValue)
　　　　　　MsgBox "#VALUE! エラー"
　　　　Case Else
　　　　　　MsgBox "これはセルのエラーではありません。"
　　End Select
End If
End With

回答No.3

edomin

＃１です。

ワークシート関数の「ISERROR」を使用すれば良いみたいです。

回答No.2

gatyan

ちょっと長いですが、
If Application.WorksheetFunction.IsNA(Range("a1")) Then

お礼

ありがとうございます。うまくいきました。
単純に文字列を認識するだけでは駄目みたいでした。

回答No.1

edomin

ＶＢＡのＨＥＬＰで「セルのエラー値」を検索してみてください。