Klasse ColorScaleCriterion (Excel VBA)

Die Klasse ColorScaleCriterion stellt die Kriterien für den niedrigsten, mittleren und höchsten Schwellenwert für eine Regel zur bedingten Formatierung von Farbformaten dar.

Set

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

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

Die folgenden Prozeduren können zum Festlegen der ColorScaleCriterion Klassenvariablen verwendet werden : ColorScale.ColorScaleCriteria und ColorScaleCriteria.Item

For Each

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

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

ColorScaleCriteria.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

ColorScaleCriteria.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.

Syntax : expression.Item (Index)

Index: Die Indexnummer des ColorScaleCriterion-Objekts.

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

FormatColor

Gibt ein FormatColor -Objekt zurück, das die Farbe angibt, die dem Schwellenwert für ein bedingtes Farb Skalierungs Format zugewiesen ist.

Mit der Color -Eigenschaft oder der ThemeColor -Eigenschaft des FormatColor -Objekts können Sie die Farbe der Schwellenwerte für Minimum, Mittelpunkt oder Maximum auf eine beliebige benutzerdefinierte Farbe festlegen.

Dim fcrFormatColor As FormatColor
Set fcrFormatColor = ActiveCell.FormatConditions(1).ColorScaleCriteria(1).FormatColor

Index

Gibt einen Long-Wert zurück, der angibt, welchen Schwellenwert die Kriterien darstellen.

Bei einer Regel zur bedingten Formatierung mit zwei Farbskalen gibt diese Eigenschaft den Wert "1" für den minimalen Schwellenwert und "2" für den maximalen Schwellenwert zurück.

Dim lngIndex As Long
lngIndex = ActiveCell.FormatConditions(1).ColorScaleCriteria(1).Index

Type

Gibt eine der Konstanten der XlConditionValueTypes -Aufzählung zurück, die angibt, wie die Schwellenwerte für ein bedingtes Format von Datenbalken oder Farbskalen bestimmt werden.

Möglichen Werte sind xlConditionValueAutomaticMax - Der längste Datenbalken ist proportional zum Maximalwert im Bereich, xlConditionValueAutomaticMin - Der kürzeste Datenbalken ist proportional zum Minimalwert im Bereich, xlConditionValueFormula - Formel wird verwendet, xlConditionValueHighestValue - Höchster Wert aus der Liste der Werte, xlConditionValueLowestValue - Niedrigster Wert aus der Liste der Werte, xlConditionValueNone - Kein bedingter Wert, xlConditionValueNumber - Zahl wird verwendet, xlConditionValuePercent - Prozentsatz wird verwendet, xlConditionValuePercentile - Perzentil wird verwendet.

Der Typ des Schwellenwerts für einen Datenbalken oder eine Farbskala kann eine Zahl, ein Prozentwert, eine Formel oder ein Quantil sein.

ActiveCell.FormatConditions(1).ColorScaleCriteria(1).Type = xlConditionValueAutomaticMax

Value

Gibt den Schwellenwert für das Minimum, den Mittelpunkt und das Maximum in einer bedingten Formatierung für Farbskalen zurück oder legt diesen fest.

Sie können den Wert nur festlegen, wenn die Type -Eigenschaft für die bedingte Formatierung auf eine der folgenden XlConditionValueTypes -Konstanten festgelegt ist: xlConditionValueNumber, xlConditionValuePercent, ** xlConditionValuePercentile**oder xlConditionValueFormula. Wenn es sich beim Typ des Schwellenwerts um eine Formel handelt, können Sie die Formel als Wert vom Typ String festlegen.

ActiveCell.FormatConditions(1).ColorScaleCriteria(1).Value =