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

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

满足条件后，如何使单元格改变内部颜色（假设为浅蓝色）？

Answer 1

已经对条件格式提供了内置支持： https : //support.office.com/en-us/article/Quick-start-Apply-conditional-formatting-6b6f7c2a-5d62-45a1-8f67-584a76776d67

无需重新发明轮子。

Answer 2

使用： c.Interior.colorIndex = 8

颜色代码列表可以在此处找到。

编辑：

在您发表评论之后，完整的代码将是：

 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