Klasse Databar (Excel VBA)

Die Klasse Databar stellt eine eine Regel zur bedingten Formatierung von Datenbalken dar.

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

Set

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

Dim dtb as Databar
Set dtb = ActiveCell.FormatConditions(Index:=1)

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

For Each

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

Dim dtbFormatCondition As Databar
For Each dtbFormatCondition In ActiveCell.FormatConditions
	
Next dtbFormatCondition

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 Databar sind

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

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

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 Sie vor allen anderen Regeln im Arbeitsblatt ausgewertet wird.

SetLastPriority - Legt die Auswertungsreihenfolge für diese Regel zur bedingten Formatierung fest, sodass 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

AxisColor Gibt die Farbe der Achse für Zellen mit bedingter Formatierung als Datenbalken zurück.

Dim fcrAxisColor As FormatColor
Set fcrAxisColor = ActiveCell.FormatConditions(1).AxisColor

AxisPosition Gibt die Position für die Achse der von einer Regel zur bedingten Formatierung angegebenen Datenbalken zurück oder legt diese Position fest.

ActiveCell.FormatConditions(1).AxisPosition = xlDataBarAxisAutomatic

BarBorder Gibt ein Objekt zurück, das die Farbe eines Datenbalkens zurückgibt.

Dim dbbBarBorder As DataBarBorder
Set dbbBarBorder = ActiveCell.FormatConditions(1).BarBorder

BarColor Gibt ein FormatColor -Objekt zurück, mit dem Sie die Farbe der Balken in einem bedingten Format für Datenbalken ändern können.

Dim fcrBarColor As FormatColor
Set fcrBarColor = ActiveCell.FormatConditions(1).BarColor

BarFillType Gibt die Füllfarbe eines Datenbalkens zurück oder legt sie fest.

ActiveCell.FormatConditions(1).BarFillType = xlDataBarFillGradient

Direction Gibt die Richtung zurück, die die datenbar angezeigt wird, oder legt Sie fest.

ActiveCell.FormatConditions(1).Direction =

Formula Gibt einen Wert vom Typ String zurück, der eine Formel zum Bestimmen der Werte darstellt, auf die der Datenbalken angewendet wird, oder legt diesen fest.

ActiveCell.FormatConditions(1).Formula =

MaxPoint Gibt ein ConditionValue -Objekt zurück, das angibt, wie der längste Balken für ein bedingtes Format für Datenbalken ausgewertet wird.

Dim cveMaxPoint As ConditionValue
Set cveMaxPoint = ActiveCell.FormatConditions(1).MaxPoint

MinPoint Gibt ein ConditionValue -Objekt zurück, das angibt, wie der kürzeste Balken für ein bedingtes Format für Datenbalken ausgewertet wird.

Dim cveMinPoint As ConditionValue
Set cveMinPoint = ActiveCell.FormatConditions(1).MinPoint

NegativeBarFormat Gibt das NegativeBarFormat -Objekt zurück, das einer bedingten Formatierungsregel für Datenbalken zugeordnet ist.

Dim nbfNegativeBarFormat As NegativeBarFormat
Set nbfNegativeBarFormat = ActiveCell.FormatConditions(1).NegativeBarFormat

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

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

PercentMax Gibt einen Long-Wert zurück, der die Länge des längsten Datenbalkens als Prozentsatz der Zellenbreite angibt, oder legt ihn fest.

ActiveCell.FormatConditions(1).PercentMax =

PercentMin Gibt einen Long-Wert zurück, der die Länge des kürzesten Datenbalkens als Prozentsatz der Zellenbreite angibt, oder legt ihn fest.

ActiveCell.FormatConditions(1).PercentMin =

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

ShowValue Gibt einen Boolean-Wert zurück, der angibt, ob der Wert in der Zelle angezeigt wird, wenn die bedingte Datenbalkenformatierung auf den Bereich angewendet wird, oder legt diesen fest.

ActiveCell.FormatConditions(1).ShowValue = True

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.

Dim booStopIfTrue As Boolean
booStopIfTrue = ActiveCell.FormatConditions(1).StopIfTrue

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

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