使用VBA條件格式化

Question

我想使用條件格式的正確代碼。我有4季度銷售表格（「K8：K207」）的總和數據。我想申請條件格式在那裏我有3個條件：

1. 亮點列K（總計年銷售）總額超過1,00,000綠色
2. 1,00,000琥珀
之間90,000爲
3. 和小於90,000紅色

請幫助我如何使用循環編寫代碼。

Answer 1

你不需要循環。您可以將新的FormatCondition添加到您的範圍對象。

lLow = 90000 
lHigh = 100000 

Set rng = Range("K8:K207") 
rng.FormatConditions.Delete ' delete any pre-existing formatting 

' add greater than condition 
With rng.FormatConditions.Add(Type:=xlCellValue, Operator:=xlGreater, Formula1:="=" & lHigh) 
    .Interior.Color = rgbLimeGreen 
End With 

' add middle condition 
With rng.FormatConditions.Add(Type:=xlCellValue, Operator:=xlBetween, Formula1:="=" & lLow, Formula2:="=" & lHigh) 
    .Interior.Color = rgbGold 
End With 

' add less than condition 
With rng.FormatConditions.Add(Type:=xlCellValue, Operator:=xlLess, Formula1:="=" & lLow) 
    .Interior.Color = rgbRed 
End With