Microsoft Office Tutorials and References
In Depth Information
7.7.3 Dreifarbige Farbskala
7.7.3 Dreifarbige Farbskala
Es folgt ein Beispiel mit drei Farben:
Sub DreiFarbenSkala()
Dim rg As Range
ThisWorkbook.Worksheets("Tabelle6").Activate
Set rg = Range("A2:A11")
rg.FormatConditions.Delete
' DreiFarbenSkala erzeugen
rg.FormatConditions.AddColorScale 3
' DreiFarbenSkala ändern
With rg.FormatConditions(1)
.ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
.ColorScaleCriteria(1).FormatColor.Color = _
vbGreen
.ColorScaleCriteria(2).Type = _
xlConditionValuePercentile
.ColorScaleCriteria(2).FormatColor.Color = _
vbYellow
.ColorScaleCriteria(3).Type = _
xlConditionValueHighestValue
.ColorScaleCriteria(3).FormatColor.Color = _
vbRed
End With
End Sub
Zur Erläuterung der Unterschiede zur zweifarbigen Farbskala:
Die Methode AddColorScale() wird mit dem Wert 3 für den Parame-
ter Type aufgerufen.
AddColorScale()
Bei der Änderung wird auch die Farbe für das Auflistungselement
xlConditionValuePercentile geändert. Beim Perzentil handelt es
sich um einen bestimmten mittleren Wert aus der Statistik.
Perzentil
Das Ergebnis sehen Sie in Abbildung 7.23.
Search JabSto ::




Custom Search