Условное форматирование с использованием VBA

Question

Мне нужен правильный код для условного форматирования. У меня есть данные на сумму 4 квартала продаж («K8: K207»). Я хочу, чтобы применить условное форматирование, где у меня есть 3 условия:

1. Выделите Колонка K (общий годовой продажи) за год больше, чем 1.00.000, как зеленый
2. между 90000 до 1.00.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