Klasse FormatCondition (Excel VBA)

Die Klasse FormatCondition stellt ein bedingtes Format dar.

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

Set

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

Dim fcd as FormatCondition
Set fcd = ActiveCell.FormatConditions(Index:=1)

Die folgenden Prozeduren können zum Festlegen der FormatCondition Klassenvariablen verwendet werden : FormatConditions.Item, FormatConditions.Item, FormatConditions.Item, FormatConditions.Item, FormatConditions.Item, FormatConditions.Item, FormatConditions.Item, FormatConditions.Add, FormatConditions.Add, FormatConditions.Add, FormatConditions.Add, FormatConditions.Add, FormatConditions.Add, FormatConditions.Add und Range.FormatConditions

For Each

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

Dim fcd As FormatCondition
For Each fcd In ActiveCell.FormatConditions
	
Next fcd

Themas

Einige Prozeduren in dieser Klasse wurden in Themen zusammengefasst und auf separaten Themenseiten beschrieben

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

Methoden

Die Hauptmethoden der Klasse FormatCondition sind

Delete - Löscht das Objekt.

ActiveCell.FormatConditions(1).Delete

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

Andere Methoden

Modify - Ändert ein bestehendes bedingtes Format.

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.

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

Eigenschaften

AppliesTo Gibt ein Range -Objekt zurück, das den Zell Umfang 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 Rahmen einer Formatvorlage oder eines Zellbereichs darstellt (einschließlich eines im Rahmen eines bedingten Formats definierten Bereich).

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

DateOperator Gibt den Date-Operator an, der für die Formatbedingung verwendet wird.

ActiveCell.FormatConditions(1).DateOperator = xlLast7Days

Font Gibt ein Font -Objekt zurück, das die Schriftart des angegebenen Objekts darstellt.

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

Interior Gibt ein Interior-Objekt zurück, das den Innenbereich des angegebenen Objekts darstellt.

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 =

Operator Gibt einen Long-Wert zurück, der den Operator für das bedingte Format darstellt.

Dim lngOperator As Long
lngOperator = ActiveCell.FormatConditions(1).Operator

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

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

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

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 Konstante 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

Text Gibt einen String-Wert zurück, der die von der Regel zur bedingten Formatierung verwendete Textzeichenfolge angibt, oder legt diesen Wert fest.

ActiveCell.FormatConditions(1).Text =

TextOperator Gibt eine der Konstanten der XlContainsOperator -Aufzählung zurück, die die von der bedingten Formatierungsregel ausgeführte Textsuche angibt, oder legt diese Konstante fest.

ActiveCell.FormatConditions(1).TextOperator = xlBeginsWith

Type Gibt einen Long -Wert zurück, der einen XlFormatConditionType -Wert enthält, der den Objekttyp darstellt.

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

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