Klasse ColorScaleCriteria - Kriterien für ein bedingtes Format (Excel VBA)

Eine Auflistung von ColorScaleCriterion -Objekten, die alle Kriterien für ein bedingtes Format für die farbskalierung darstellt. Um eine ColorScaleCriteria -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim csc as ColorScaleCriteria
Set csc = ActiveCell.FormatConditions(1).ColorScaleCriteria

For Each

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

Dim cscColorScaleCriteria As ColorScaleCriterion
For Each cscColorScaleCriteria In ActiveCell.FormatConditions(1).ColorScaleCriteria
	
Next cscColorScaleCriteria

Count

Gibt einen Long -Wert zurück, der die Anzahl der Kriterien für eine Regel zur bedingten Formatierung einer farbskalierung angibt.

Die Anzahl der Kriterien entspricht der Anzahl von Schwellenwerten, die für eine Farbskala zugewiesen wurden.

Dim lngCount As Long
lngCount = ActiveCell.FormatConditions(1).ColorScaleCriteria.Count

Item

Gibt ein einzelnes ColorScaleCriterion -Objekt aus der ColorScaleCriteria -Auflistung zurück.

Der Wert des Index -Parameters darf nicht größer sein als die Anzahl der Kriterien, die für ein bedingtes Farbskalen Format festgelegt sind. Verwenden Sie die count -Eigenschaft, um die Anzahl der Schwellenwerte zu ermitteln.

Item (Index)

Index: Die Indexnummer des ColorScaleCriterion-Objekts.

Dim cscItem As ColorScaleCriterion
Set cscItem = ActiveCell.FormatConditions(1).ColorScaleCriteria(Index:=1)