セルに値が含まれている場合、列全体の色

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 

私は、セルが「C」が含まれており、「P」が含まれていない場合、それを色付けすることを想定しています.Value = IIf(Interior.ColorIndex = 15, "C", "P")

Answer 1

上のオブジェクトのエラーを取得します。

例

• "ABCDEF"：色です
• "ABCP"：カラーはそれ
• "DEFGH"：それ
を着色しないでください
• "ABC" がそれを着色しないでください。

---

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