如何根据值更改单元格颜色

Question

  Dim c As Range
 Application.ScreenUpdating = False
 For Each c In Range("G1", Range("G" & Rows.Count).End(xlUp))


 If Left(c, 1) = "X" Then c = Mid(c, 2, Len(c) - 1)
 If Left(c, 1) = "L" Then c = Mid(c, 2, Len(c) - 1)
 If Left(c, 1) = "C" Then c = Mid(c, 2, Len(c) - 1)


Next c
Application.ScreenUpdating = True

How can I get the cell change the interior color (let's say to light blue) after condition is met?

Answer 1

There's built-in support for conditional formatting already: https://support.office.com/en-us/article/Quick-start-Apply-conditional-formatting-6b6f7c2a-5d62-45a1-8f67-584a76776d67

No need to reinvent the wheel.

Answer 2

Use: c.Interior.colorIndex = 8

The list of color codes can be found here .

EDIT:

Following your comments the full code would be:

 Dim c As Range
 Application.ScreenUpdating = False
 For Each c In Range("G1", Range("G" & Rows.Count).End(xlUp))

     If Left(c, 1) = "X" Or Left(c, 1) = "L" Or Left(c, 1) = "C" Then
        c = Mid(c, 2, Len(c) - 1)
        c.Interior.ColorIndex = 8
     End If

Next c
Application.ScreenUpdating = True