Compartir a través de


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

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.