AboveAverage-Objekt (Excel)

  • Artikel

Stellt eine Visualisierung der Werte einer bedingten Formatierungsregel, die über dem Durchschnitt liegen, dar. Wendet eine Farbe oder Füllung auf einen Bereich oder eine Auswahl an, damit Sie den Wert einer Zelle relativ zu anderen Zellen anzeigen können.

HinwBemerkungeneise

Alle Objekte der bedingten Formatierung sind in einem FormatConditions-Auflistungsobjekt enthalten, das ein untergeordnetes Element einer Range-Auflistung ist.

Sie können eine bedingten Formatierungsregel, die über dem Durchschnitt liegt, entweder mit der Add- oder der AddAboveAverage-Methode der FormatConditions-Sammlung erstellen.

Beispiel

Im folgenden Beispiel wird ein dynamischer Datensatz erstellt und den über dem Durchschnitt liegenden Werten mithilfe bedingter Formatierungsregeln eine Farbe zugewiesen.

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

Methoden

Eigenschaften

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.