Excel VBA условное форматирование - PullRequest
Новая
       9

Excel VBA условное форматирование

1 голос
/ 11 июля 2011

Я хочу создать определенные ячейки в Excel с предопределенным условным форматированием. Если введено число 1, должен появиться зеленый значок из трех символов, не обведенных кружком. Вот мой код: 

Sub AddIconCondFormat(cell1 As range, cell2 As range)

    range(cell1, cell2).Select
    With Selection
        .FormatConditions.Delete
       '.FormatConditions.Add Type:=xlCellValue, Operator:XlEqual, Formula1:
    End With

End Sub

Я не знаю всех необходимых параметров для .FormatConditions. Кто-нибудь знает, перечислены ли они где-нибудь?

1 Ответ

0 голосов
/ 11 июля 2011

После использования записи макроса я получил этот код, который работает: 

Sub AddIconCondFormat(cell1 As range, cell2 As range)

range(cell1, cell2).Select
With Selection
    .FormatConditions.Delete
    .FormatConditions.AddIconSetCondition
    .FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .ReverseOrder = False
        .ShowIconOnly = False
        .IconSet = ActiveWorkbook.IconSets(xl3Symbols2)
    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
End With

End Sub
...