Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Представляет правило условного форматирования цветовой шкалы.
Замечания
Все объекты условного форматирования содержатся в объекте коллекции FormatConditions , который является дочерним объектом коллекции Range . Правило форматирования цветовой шкалы можно создать с помощью метода Add или AddColorScale коллекции FormatConditions .
Цветовые шкалы — это визуальные руководства, помогающие понять распределение и вариации данных. К диапазону данных, данных в таблице или в отчете сводной таблицы можно применить двухцветную или трехцветную шкалу. Для условного формата двухцветной шкалы необходимо назначить значение, тип и цвет минимальным и максимальным пороговым значениям диапазона. Трехцветная шкала также имеет пороговое значение в середине.
Каждое из этих пороговых значений определяется путем задания свойств объекта ColorScaleCriteria . Объект ColorScaleCriteria , являющийся дочерним для объекта ColorScale , представляет собой коллекцию всех объектов ColorScaleCriterion для цветовой шкалы.
Пример
В следующем примере кода создается диапазон чисел, а затем применяется правило условного форматирования двухцветной шкалы к данному диапазону. Затем цвет для минимального порогового значения присваивается красному, а максимальное пороговое значение — синему.
Sub CreateColorScaleCF()
Dim cfColorScale As ColorScale
'Fill cells with sample data from 1 to 10
With ActiveSheet
.Range("C1") = 1
.Range("C2") = 2
.Range("C1:C2").AutoFill Destination:=Range("C1:C10")
End With
Range("C1:C10").Select
'Create a two-color ColorScale object for the created sample data range
Set cfColorScale = Selection.FormatConditions.AddColorScale(ColorScaleType:=2)
'Set the minimum threshold to red and maximum threshold to blue
cfColorScale.ColorScaleCriteria(1).FormatColor.Color = RGB(255, 0, 0)
cfColorScale.ColorScaleCriteria(2).FormatColor.Color = RGB(0, 0, 255)
End Sub
Методы
Свойства
- Application
- AppliesTo
- ColorScaleCriteria
- Creator
- Formula
- Parent
- Priority
- PTCondition
- ScopeType
- StopIfTrue
- Type
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.