値に基づいてセルの色を変更する方法

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

用途：c.Interior.colorIndex = 8

カラーコードのリストがhereを見つけることができます。

EDIT：

あなたのコメントに続いて完全なコードは次のようになります。

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 

Answer 2

があり、内蔵のサポートすでに条件付き書式のため：https://support.office.com/en-us/article/Quick-start-Apply-conditional-formatting-6b6f7c2a-5d62-45a1-8f67-584a76776d67

車輪の再発明する必要はありません。