Objeto AboveAverage (Excel)
Representa un indicación visual superior a la media de una regla de formato condicional. Aplica un color o relleno a un rango o selección para ayudarle a ver el valor de una celda en relación con otras celdas.
Comentarios
Todos los objetos de formato condicional se encuentran dentro de un objeto de colección FormatConditions , que es un elemento secundario de una colección Range .
Puede crear una regla de formato superior a la media con el método Add o AddAboveAverage de la colección FormatConditions.
Ejemplo
En el ejemplo siguiente se genera un conjunto de datos dinámico y se aplica color a los valores superiores a la media mediante reglas de formato condicional.
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
Métodos
Propiedades
- AboveBelow
- Application
- AppliesTo
- Borders
- CalcFor
- Creator
- Font
- Interior
- NumberFormat
- NumStdDev
- Parent
- Priority
- PTCondition
- ScopeType
- StopIfTrue
- Type
Vea también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.