突出的细胞，这取决于文本

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

突出的细胞，这取决于文本

回答

相关问题