EXCELの#VALUE!エラーについて

質問

ＥＸＣＥＬ２０００で、#VALUE!エラーが出ていないセルの計算をしたいのですが、ＩＦ文がうまくいきません。

For 行番号 = 2 To 301
If Cells(行番号, 14).Value <> "#VALUE!" Then
処理
ENDIF
NEXT

このような場合はどうすればよいのでしょうか。
よろしくお願いします。

回答No.2

imogasi · ベストアンサー

下記をご参考に
Sub test01()
For i = 1 To 10
If IsError(Cells(i, 1)) Then
errval = Cells(i, 1).Value
If errval = CVErr(xlErrValue) Then
MsgBox i & "行目" & "#VALUE! エラー"
Else
' 処理
End If
End If
Next i
End Sub

（データ例）Ａ１：Ａ１０
#DIV/0!

#N/A

#VALUE!
（実行結果）８行目#VALUE!エラーと表示
（参考）http://www.asahi-net.or.jp/~zn3y-ngi/YNxv205.html#2
の「エラー値か？」を参照

お礼

回答していただき、ありがとうございました。
回答のそのまま使えました。
助かりました。

回答No.4

ya_kar

No3の者です。
VBAではError.type関数は使えないようですね。申し訳ありません！
No2の方が書いていたようにCVErrを使います。
ご迷惑をおかけしました。

お礼

ＶＢＡで行うことを書いていませんでした。
こちらこそ、ご迷惑をおかけしました。
お世話になりました。

回答No.3

ya_kar

ERROR.TYPE関数を使ってみてはいかがでしょうか？
（エラーのタイプを判定する関数です）

If Error.type(Cells(行番号,14) <> 3 Then

お礼

回答していただき、ありがとうございます。

For J = 2 To 301
If Error.Type(行番号, 14) <> 3 Then
処理
End If
Next

実行時エラー'424'オブジェクトが必要です
という、メッセージが出ます
これは、何か足りないのでしょうか

回答No.1

haruka1234567890

<> "#VALUE!"
でじゃなく、エラーかどうかで判定するしかないかも。
でも、その場合

N/A　も対象になっちゃうからだめなのかな

お礼

回答していただき、ありがとうございました。