AboveAverage, objet (Excel)

  • Article

Représente un visuel pour les valeurs au-dessus de la moyenne d’une règle de mise en forme conditionnelle. Applique une couleur ou un remplissage à une plage ou à une sélection pour vous aider à voir la valeur d’une cellule par rapport à d’autres cellules.

Remarques

Tous les objets de mise en forme conditionnelle sont contenus dans un objet de collection FormatConditions , qui est un enfant d’une collection Range .

Vous pouvez créer une règle de mise en forme des valeurs au-dessus de la moyenne à l’aide de la méthode Add ou AddAboveAverage de la collection FormatConditions.

Exemple

L'exemple suivant génère un jeu de données dynamique et applique la couleur aux valeurs moyennes précédentes par le biais de règles conditionnelles de mise en forme.

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éthodes

Propriétés

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.