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

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

No.5 ベストアンサー 回答者： imogasi 回答日時： 2004/05/23 22:13

やって見ると,意外に

Sub test03()
If Range("a1").Text = "#N/A" Then
MsgBox "#N/A エラー"
End If
End Sub
で良いようです。
関数なら=ERROR.TYPE(A1)で"#N/A は　7　です。

この回答へのお礼

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

お礼日時：2004/05/23 22:24

No.4 回答者： papayuka 回答日時： 2004/05/23 22:10

ヘルプからの抜粋です。

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 回答日時： 2004/05/23 21:44

＃１です。

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

No.2 回答者： gatyan 回答日時： 2004/05/23 21:44

ちょっと長いですが、

If Application.WorksheetFunction.IsNA(Range("a1")) Then

この回答へのお礼

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

お礼日時：2004/05/23 21:57

No.1 回答者： edomin 回答日時： 2004/05/23 21:40

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