Klasse Top10 (Excel VBA)

Die Klasse Top10 stellt eine Visualisierung der Top-10-Werte einer bedingten Formatierungsregel dar.

Die wichtigste Prozeduren der Klasse Top10 sind FormatConditions.Add, FormatConditions.AddAboveAverage, FormatConditions.AddColorScale, FormatConditions.AddDatabar, FormatConditions.AddIconSetCondition, FormatConditions.AddTop10, FormatConditions.AddUniqueValues, FormatConditions.Delete und Delete

Set

Um eine Top10 -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim tp1 as Top10
Set tp1 = ActiveCell.FormatConditions(Index:=1)

Die folgenden Prozeduren können zum Festlegen der Top10 Klassenvariablen verwendet werden : Range.FormatConditions, FormatConditions.AddTop10, FormatConditions.AddTop10, FormatConditions.AddTop10, FormatConditions.AddTop10, FormatConditions.AddTop10, FormatConditions.AddTop10 und FormatConditions.AddTop10

For Each

Hier ist ein Beispiel für die Verarbeitung der Top10 -Elemente in einer Sammlung

Dim tp1FormatCondition As Top10
For Each tp1FormatCondition In ActiveCell.FormatConditions
	
Next tp1FormatCondition

Themas

Die folgenden Prozeduren in dieser Klasse wurden zusammengefasst und auf eine separate Themenseite beschrieben

Add with its procedures FormatConditions.Add, FormatConditions.AddAboveAverage, FormatConditions.AddDatabar, FormatConditions.AddIconSetCondition und FormatConditions.AddTop10

Methoden

Die Hauptmethoden der Klasse Top10 sind

FormatConditions.AddColorScale - Gibt ein neues ColorScale -Objekt zurück, das eine Regel zur bedingten Formatierung darstellt, die Abstufungen in Zellfarben verwendet, um die relativen Unterschiede zwischen den Werten der Zellen in einem ausgewählten Bereich anzugeben.

Dim lngColorScaleType As Long: lngColorScaleType = 
Dim cseAddColorScale As ColorScale
Set cseAddColorScale = ActiveCell.FormatConditions.AddColorScale(ColorScaleType:=lngColorScaleType)

FormatConditions.AddUniqueValues - Gibt ein neues UniqueValues -Objekt zurück, das eine Regel zur bedingten Formatierung für den angegebenen Range darstellt.

Dim uvsAddUniqueValues As UniqueValues
Set uvsAddUniqueValues = ActiveCell.FormatConditions.AddUniqueValues()

FormatConditions.Delete - Löscht das Objekt.

ActiveCell.FormatConditions.Delete

Delete - Löscht das angegebene Regelobjekt für die bedingte Formatierung.

ActiveCell.FormatConditions(1).Delete

Andere Methoden

FormatConditions.Item - Gibt ein einzelnes Objekt aus einer Auflistung zurück.

ModifyAppliesToRange - Legt den Zellbereich fest, für den diese Formatierungsregel gilt.

SetFirstPriority - Legt den Prioritätswert für diese Regel zur bedingten Formatierung auf 1 fest, sodass er vor allen anderen Regeln im Arbeitsblatt ausgewertet wird.

SetLastPriority - Legt die Auswertungsreihenfolge für diese bedingte Formatierungsregel so fest, dass Sie nach allen anderen Regeln im Arbeitsblatt ausgewertet wird.

Eigenschaften

FormatConditions.Count Gibt einen Long-Wert zurück, der die Anzahl der Objekte in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveCell.FormatConditions.Count

FormatConditions.Parent Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

Dim objParent As Object
Set objParent = ActiveCell.FormatConditions.Parent

AppliesTo Gibt ein Range -Objekt zurück, das den Zellbereich angibt, auf den die Formatierungsregel angewendet wird.

Dim rngAppliesTo As Range
Set rngAppliesTo = ActiveCell.FormatConditions(1).AppliesTo

Borders Gibt eine Borders -Auflistung zurück, die die Formatierung von Zellenrändern angibt, wenn die Regel für die bedingte Formatierung trueergibt.

Dim brdsBorders As Borders
Set brdsBorders = ActiveCell.FormatConditions(1).Borders

CalcFor Gibt eine der Konstanten der XlCalcFor -Enumeration zurück, die angibt, wie die bedingte Formatierung in einem PivotTable-Bericht ausgewertet werden soll, oder legt diese fest.

ActiveCell.FormatConditions(1).CalcFor = xlAllValues

Font Gibt ein Font -Objekt zurück, das die Schriftartformatierung angibt, wenn die Regel für die bedingte Formatierung trueergibt.

Dim fntFont As Font
Set fntFont = ActiveCell.FormatConditions(1).Font

Interior Gibt ein Interior -Objekt zurück, das die innen Attribute einer Zelle für eine Regel zur bedingten Formatierung angibt, die zu trueausgewertet wird.

Dim intInterior As Interior
Set intInterior = ActiveCell.FormatConditions(1).Interior

NumberFormat Gibt das Zahlenformat zurück oder legt es fest, das auf eine Zelle angewendet wird, wenn die Regel zur bedingten Formatierung zu True ausgewertet wird.

ActiveCell.FormatConditions(1).NumberFormat =

Parent Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

Dim objParent As Object
Set objParent = ActiveCell.FormatConditions(1).Parent

Percent Gibt einen Boolean-Wert zurück, der angibt, ob der Rang von einem Prozentwert angegeben wird, oder legt ihn fest.

ActiveCell.FormatConditions(1).Percent = True

Priority Gibt den Prioritätswert der Regel zur bedingten Formatierung zurück oder legt ihn fest.

ActiveCell.FormatConditions(1).Priority =

PTCondition Gibt einen Boolean-Wert zurück, der angibt, ob ein bedingtes Format auf eine PivotTable angewendet wird.

Dim booPTCondition As Boolean
booPTCondition = ActiveCell.FormatConditions(1).PTCondition

Rank Gibt einen Long -Wert zurück, der die Anzahl oder den Prozentsatz des Rang Werts für die Regel für die bedingte Formatierung angibt, oder legt diesen fest.

ActiveCell.FormatConditions(1).Rank =

ScopeType Gibt eine der Konstanten der XlPivotConditionScope -Aufzählung zurück, die den Bereich der bedingten Formatierung bestimmt, wenn Sie auf eine PivotTable angewendet wird, oder legt diese fest.

ActiveCell.FormatConditions(1).ScopeType = xlDataFieldScope

StopIfTrue Gibt einen Boolean-Wert zurück, der bestimmt, ob zusätzliche Formatierungsregeln für die Zelle ausgewertet werden sollen, wenn die aktuelle Regel zu True ausgewertet wird, oder legt diesen Wert fest.

ActiveCell.FormatConditions(1).StopIfTrue = True

TopBottom Gibt eine der Konstanten der XlTopBottom -Aufzählung zurück oder legt Sie fest, die bestimmt, ob die Rangfolge von oben oder unten ausgewertet wird.

ActiveCell.FormatConditions(1).TopBottom = xlTop10Bottom

Type Gibt eine der Konstanten der XlFormatConditionType -Aufzählung zurück, die den Typ der bedingten Formatierung angibt.

Dim xlfcType As XlFormatConditionType
xlfcType = ActiveCell.FormatConditions(1).Type