〔VBA〕格式化條件-大於0紅色/小於0綠色--v055

      

【指定儲存格>0紅色<0綠色】

本範例為設定A1公式，若A1>0則字型呈現紅色，<0則呈現綠色

    AA.Range("A1").Formula = "=U" & iRow & "*1000*(1-0.001425-0.003)-AM" & iRow 

    With AA.Range("A1")

        .FormatConditions.Add Type:=xlExpression, Formula1:="=A1>0"

        .FormatConditions(1).Font.Color = -16776961

        .FormatConditions.Add Type:=xlExpression, Formula1:="=A1<0"

        .FormatConditions(2).Font.Color = -11489280

    End With

注意：Conditions增加Index由1起算
最後一個格式化條件 Range.FormatConditions(Range.FormatConditions.Count)


相關課程：


章老師的電腦小講堂 https://www.facebook.com/ScenicSchool/

※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※