|
VBAの初心者ですけど、IF Functionのエラーで困ってます。よかったら、教えてください。
IF ファンクションで、セルに某ソフトからリアルタイムに取ったデータが“#N/A XXX"のときに、式Aを走らせ、数値があるときにはBを走らせるMacroを作ったのですが、F8で見たところ、数値が#N/A XXXのときも、数値のあるものとして認識されてるようです。どうすればいいのでしょうか?ちなみにXXXの部分はセルによって変わってるので、=”#N/Aセル内容”にすることができません。また、IsErrorも試しましたが、同じように次の部分に飛んでいるようです。
お願いします。
Sub Pricing()
Dim Spot As Integer
rCnt = WorksheetFunction.Count(Sheets("A").Range("F6:F1000"))
i = 7
Do Until i = rCnt + 1000
If Worksheets("Reuters").Range("F" & i).Text Like "#N/A*" Then
Spot = Worksheets("reuters").Range("K" & i).Value
式A
ElseIf IsNumeric(Worksheets("Reuters").Range("F" & i)) Then
Spot = Worksheets("reuters").Range("L" & i).Value
式A
Else
Spot = 0
Worksheets("Reuters").Range("Q" & i) = ""
Worksheets("Reuters").Range("R" & i) = ""
End If
i = i + 1
Loop
End Sub
|
|