Excel 2007, как автоматизировать условное форматирование

Question

У меня есть много ячеек, чтобы назначить формулу для условного форматирования.

Я пытался записать макрос для его автоматизации, но условное форматирование не записано.Можно ли даже написать какой-нибудь VBA для этого?

Answer 1

Это работает для меня:

With Range("A1")
    .FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
        Formula1:="2", Formula2:="3"
    .FormatConditions(1).Interior.ColorIndex = 33
End With

т.е. значения от 2 до 3 будут окрашивать ячейку в синий цвет.