R列の1111/11/11以外、且つQ列の×の条件で該当行のAからAE列までオレンジに塗りつぶす

エクセル　マクロをご教示ください。

1行目はタイトル行
現在、下記の様に構文を書きましたが
If Cells(i, 18) <> "1111/11/11" And Cells(i, 17) = "×" Then　の所で
エラーが出ます。
R列2行目に1111/11/11があり
エラー文は Cells(i, 18)="1111/11/11" 、 Cells(i, 17) =エラー2015 、i=2
因みにQ2には関数が入っていて　#VALUE!

Dim myRng1 As Range
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 18) <> "1111/11/11" And Cells(i, 17) = "×" Then　'←ここでエラー
Set myRng1 = Range(Cells(i, "A"), Cells(i, "AE"))
myRng1.Interior.Color = RGB(255, 192, 0)
End If
Next

宜しくお願いいたします。

No.1 ベストアンサー 回答者： fujillin 回答日時： 2022/07/02 10:48

こんにちは

当方の環境では「エラー13」になりますね。
そうであれば、セルのエラー値と文字列を比較しようとして、できないという意味になりますが、どうやら異なる状況のようなご質問なので・・

試しに、
　Cells(i, 17) = "×"
を
　Cells(i, 17).Text = "×"
にすることで、通ったりしませんか？

この回答へのお礼

ご指摘の通りでした。
ありがとうございました。

お礼日時：2022/07/02 11:04

No.2 回答者： tatsumaru77 回答日時： 2022/07/02 10:53

以下のようにしてください。

エラーになっているセルは、読み飛ばします。

Dim myRng1 As Range
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If IsError(Cells(i, 17)) = False And IsError(Cells(i, 18)) = False Then
If Cells(i, 18) <> "1111/11/11" And Cells(i, 17) = "×" Then
Set myRng1 = Range(Cells(i, "A"), Cells(i, "AE"))
myRng1.Interior.Color = RGB(255, 192, 0)
End If
End If
Next