如果单元格包含值，整个行的颜色

Question

我试图给特定列中包含“C”的任何单元格的整行着色。还有我不想着色的“P”。这是我的代码。

Sub color() 
Dim lastRow As Long 

With Sheets("MP Parameters") 
    lastRow = .Cells(.Rows.Count, "C").End(xlUp).Row 
    With .Range("K5:K" & lastRow) 
     .Value = IIf(Interior.ColorIndex = 15, "C", "P") 
    End With 
End With 
End Sub 

我上.Value = IIf(Interior.ColorIndex = 15, "C", "P")

Answer 1

我假设，如果单元格中包含一个“C”和不包含“P”，那么它上色的对象错误。

例子

• “ABCDEF”：颜色是
• “ABCP”：不要颜色故
• “ABC”：颜色是
• “DEFGH”：不要颜色故

---

Sub color() 
    Dim lastRow As Long 
    Dim x As Long 

    With Sheets("MP Parameters") 
     lastRow = .Cells(.Rows.Count, "C").End(xlUp).Row 

     For x = 5 To lastRow 

      If .Cells(x, "K") Like "*C*" And Not .Cells(x, "K") Like "*P*" Then 

       .Rows(x).Interior.ColorIndex = 15 

      End If 

     Next 

    End With 
End Sub