セルをハイライトする（テキストに応じて）

Question

シートがあり、T列に「ok」を含むセルをハイライトしたいと思います。

私はinterior.colorでうまく動作しますが、「OK」を含むセルを強調表示できませんでした。代わりにセルの値に関係なくハイライト表示されます。

私のコードで何が間違っていると思いますか？

Sub colour() 
Dim totalrows As Long 

totalrows = Sheets("S1").Cells(Rows.Count, "T").End(xlUp).Row 
With Range("T5:T" & totalrows) 
.Value = "OK" 
Range("T5:T" & totalrows).Interior.Color = RGB(0, 255, 0) 
End With 

End Sub 

Answer 1

これを試してみてください：

は

Sub colour() 
    Dim totalrows As Long 
    Dim cel As Range 

    totalrows = Sheets("S1").Cells(Rows.Count, "T").End(xlUp).Row 
    For Each cel In Range("T5:T" & totalrows) 
     If cel.Value = "OK" Then 
      cel.Interior.Color = RGB(0, 255, 0) 
     End If 
    Next cel 
End Sub