Excel VBAでの特定の文字以外の行セルを色付け

お世話になっております。

この度、私が書籍から参考にし作りましたこちらのVBAは、Dセルに[いちご]と入力されているセルの行セルに色をつけるプログラムになりますが、逆の動きといたしまして、[いちご]以外のデータの行セルに色をつける為には何を記述すればよろしいでしょうか？

よろしくお願いいたします。

Sub Macro1()
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Range("D" & i) = "いちご" Then
Rows(i).Interior.ColorIndex = 6
End If
Next i
End Sub

No.1 ベストアンサー 回答者： GooUserラック 回答日時： 2020/02/16 23:39

良く見ていませんが「If Range("D" & i) = "いちご" Then」を「If Range("D" & i) <> "

いちご" Then」に変えるだけで良いのでは？

この回答へのお礼

GooUserラック様ありがとうございます！
<>で記述するのですね。

お礼日時：2020/02/16 23:56

No.3 回答者： Qchan1962 回答日時： 2020/02/16 23:50

すみません。

かぶりました。

この回答へのお礼

Qchan1962様、いえいえ回答ありがとうございます。
学ばせていただきました。

お礼日時：2020/02/17 00:02

No.2 回答者： Qchan1962 回答日時： 2020/02/16 23:49

こんばんは、

＞逆の動きといたしまして、[いちご]以外

If Range("D" & i) = "いちご" Then　　"いちご"なら なので

If Range("D" & i) <> "いちご" Then 　"いちご"以外
If Not Range("D" & i) = "いちご" Then　　"いちご"以外（=を否定）