Graf von Farbe VBA in Microsoft Excel
In diesem Artikel erstellen wir eine benutzerdefinierte Funktion, um die Anzahl der Zellen in dem Bereich mit definierten Farben zu zählen.
In diesem Beispiel bestehen Beispieldaten aus einem Bereich mit Werten zwischen 100 und 1000. Die Werte in den Zellen werden in verschiedenen Farben hervorgehoben. Wir wollen die Anzahl jeder Farbe ermitteln.
Um die Anzahl einer bestimmten Farbe zu berechnen, haben wir eine benutzerdefinierte Funktion „CountByColor“ erstellt. Diese Funktion verwendet zwei Bereichsparameter als Eingabe. Der erste Bereichsparameter definiert die Innenfarbe der Zelle und der zweite Bereichsparameter definiert den Probenbereich.
Code Erklärung
Application.Volatile wird verwendet, da es jedes Mal neu berechnet wird, wenn ein Zellenwert in der Arbeitsmappe geändert wird.
DefinedColorRange.Interior.ColorIndex Der obige Code wird verwendet, um die Innenfarbe des definierten Bereichs abzurufen.
Bitte folgen Sie unten für den Code
Function CountByColor(DefinedColorRange As Range, CountRange As Range) Application.Volatile 'Declaring variables Dim ICol As Integer Dim GCell As Range 'Getting the interior color of the cell ICol = DefinedColorRange.Interior.ColorIndex 'Looping through the defined range For Each GCell In CountRange If ICol = GCell.Interior.ColorIndex Then 'Getting the count of matching colored cell CountByColor = CountByColor + 1 End If Next GCell End Function
Wenn dir dieser Blog gefallen hat, teile ihn mit deinen Freunden auf Facebook und Facebook.
Wir würden gerne von Ihnen hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns unter [email protected]