AboveAverage 对象 (Excel)

表示条件格式规则的高于平均值的视图。 将颜色或填充应用于区域或选定内容，以帮助查看单元格相对于其他单元格的值。

备注

所有条件格式设置对象都包含在 FormatConditions 集合对象中，该对象是 Range 集合的子对象。

可以使用 FormatConditions 集合的 Add 或 AddAboveAverage 方法创建上述平均格式规则。

示例

以下示例通过条件格式规则生成一个动态数据集并对高于平均值的值应用颜色。

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
• 应用程序
• AppliesTo
• Borders
• CalcFor
• Creator
• Font
• Interior
• NumberFormat
• NumStdDev
• Parent
• Priority
• PTCondition
• ScopeType
• StopIfTrue
• Type

另请参阅

• Excel 对象模型引用

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。