自動更改單元格背景顏色Excel VBA

Question

所以基本上我想要一個可以更改單元格顏色的代碼。 例如，如果A1 = 1，B1 = 3％，54％或5％，則將B1的背景顏色更改爲綠色。否則，如果B1 = 1％或2％將顏色更改爲紅色。

這是我到目前爲止，我似乎無法弄清楚。任何幫助將不勝感激。 （「A1：B1」）。Formula =「= If（A1 = 1 AND B1 = 3％，Range（」A1：B1「）。Interior.ColorIndex = 4）」

末次

Answer 1

我認爲你可以弄清楚以下工程的代碼，以及如何進行必要的修改

 

Sub color() 

    Dim ws As Worksheet 
    Dim r As Range, c As Range 
    Set ws = ThisWorkbook.ActiveSheet 

    With ws 
    Set r = Range("A1").CurrentRegion 
    End With 

    For Each c In r 
    If c.Value = 1 And ((c.Offset(, 1) = 0.03) Or (c.Offset(, 1) = 0.54) Or (c.Offset(, 1) = 0.05)) Then 
     Range(c, c.Offset(, 1)).Interior.ColorIndex = 4 
    ElseIf c.Value = 1 And ((c.Offset(, 1) = 0.01) Or (c.Offset(, 1) = 0.02)) Then 
     Range(c, c.Offset(, 1)).Interior.ColorIndex = 3 
    End If 
    Next 

End Sub