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

замечания

FormatConditions.Add

Синтаксис:

FormatConditions.Add(Type, Operator, Formula1, Formula2)

Параметры:

XlFormatConditionType enumaration:

Форматирование по значению ячейки:

With Range("A1").FormatConditions.Add(xlCellValue, xlGreater, "=100")
    With .Font
        .Bold = True
        .ColorIndex = 3
     End With
End With

Операторы:

Если Type является выражением xlExpression, аргумент Operator игнорируется.

Форматирование по тексту содержит:

With Range("a1:a10").FormatConditions.Add(xlTextString, TextOperator:=xlContains, String:="egg")
    With .Font
        .Bold = True
        .ColorIndex = 3
    End With
End With

Операторы:

Форматирование по времени

With Range("a1:a10").FormatConditions.Add(xlTimePeriod, DateOperator:=xlToday)
    With .Font
        .Bold = True
        .ColorIndex = 3
    End With
End With

Операторы:

Удалить условный формат

Удалите все условные форматы в диапазоне:

Range("A1:A10").FormatConditions.Delete

Удалите все условные форматы на листе:

Cells.FormatConditions.Delete

FormatConditions.AddUniqueValues

Выделение повторяющихся значений

With Range("E1:E100").FormatConditions.AddUniqueValues
   .DupeUnique = xlDuplicate
   With .Font
       .Bold = True
       .ColorIndex = 3
   End With
End With

Выделение уникальных значений

With Range("E1:E100").FormatConditions.AddUniqueValues
   With .Font
       .Bold = True
       .ColorIndex = 3
   End With
End With

FormatConditions.AddTop10

Выделение верхних 5 значений

With Range("E1:E100").FormatConditions.AddTop10
    .TopBottom = xlTop10Top
    .Rank = 5
    .Percent = False
    With .Font
        .Bold = True
        .ColorIndex = 3
    End With
End With

FormatConditions.AddAboveAverage

With Range("E1:E100").FormatConditions.AddAboveAverage
    .AboveBelow = xlAboveAverage
    With .Font
        .Bold = True
        .ColorIndex = 3
    End With
End With

Операторы:

FormatConditions.AddIconSetCondition

Range("a1:a10").FormatConditions.AddIconSetCondition
With Selection.FormatConditions(1)
    .ReverseOrder = False
    .ShowIconOnly = False
    .IconSet = ActiveWorkbook.IconSets(xl3Arrows)
End With

With Selection.FormatConditions(1).IconCriteria(2)
    .Type = xlConditionValuePercent
    .Value = 33
    .Operator = 7
End With

With Selection.FormatConditions(1).IconCriteria(3)
    .Type = xlConditionValuePercent
    .Value = 67
    .Operator = 7
End With

IconSet:

Тип:

Оператор:

Значение:

Возвращает или устанавливает пороговое значение для значка в условном формате.