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

Question

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

1. Выделите столбец K (Общая годовая продажа) для года, превышающего 1 000 000, в виде зеленого
2. между 90 000 и 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