Объект AboveAverage (Excel)

Представляет визуальный элемент правила условного форматирования выше среднего. Применяет цвет или заливку к диапазону или выделенному фрагменту, чтобы увидеть значение ячейки относительно других ячеек.

Замечания

Все объекты условного форматирования содержатся в объекте коллекции FormatConditions , который является дочерним объектом коллекции Range .

Правило форматирования выше среднего можно создать с помощью метода Add или AddAboveAverage коллекции FormatConditions .

Пример

В следующем примере создается динамический набор данных и применяется цвет к приведенным выше средним значениям с помощью правил условного форматирования.

Sub AboveAverageCF() 
 
' Building data for Melanie 
 Range("A1").Value = "Name" 
 Range("B1").Value = "Number" 
 Range("A2").Value = "Melanie-1" 
 Range("A2").AutoFill Destination:=Range("A2:A26"), Type:=xlFillDefault 
 Range("B2:B26").FormulaArray = "=INT(RAND()*101)" 
 Range("B2:B26").Select 
 
' Applying Conditional Formatting to items above the average. Should appear green fill and dark green font. 
 Selection.FormatConditions.AddAboveAverage 
 Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority 
 Selection.FormatConditions(1).AboveBelow = xlAboveAverage 
 With Selection.FormatConditions(1).Font 
 .Color = -16752384 
 .TintAndShade = 0 
 End With 
 With Selection.FormatConditions(1).Interior 
 .PatternColorIndex = xlAutomatic 
 .Color = 13561798 
 .TintAndShade = 0 
 End With 
MsgBox "Added an Above Average Conditional Format to Melanie's data. Press F9 to update values.", vbInformation 
 
End Sub

Методы

• Delete
• ModifyAppliesToRange
• SetFirstPriority
• SetLastPriority

Свойства

• AboveBelow
• Application
• AppliesTo
• Borders
• CalcFor
• Creator
• Font
• Interior
• NumberFormat
• NumStdDev
• Parent
• Priority
• PTCondition
• ScopeType
• StopIfTrue
• Type

См. также

• Справочник по объектной модели Excel

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.