突出的細胞，這取決於文本

我有一個片材，並在塔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

來源

2017-07-18 Jenny

代碼不測試的「OK」的價值 - 哪裏是你的IF語句？ – braX

您能夠在Excel只是條件格式執行此？ – Cyril

我想通過VBA來[執行 – Jenny

試試這個：

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

來源

2017-07-18 12:51:22 Mrig

突出的細胞，這取決於文本

回答

相關問題