In diesem Artikel erstellen wir eine benutzerdefinierte Funktion, um die Anzahl der Zellen im 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.
Codeerklä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 zu erhalten.
Bitte folgen Sie unten für den Code
Funktion CountByColor(DefinedColorRange As Range, CountRange As Range) Application.Volatile 'Variablen deklarieren Dim Icol As Integer Dim GCell As Range 'Die Innenfarbe der Zelle abrufen IColl = DefinedColorRange.Interior.ColorIndex 'Durchlaufen des definierten Bereichs für jede GCell In CountRange If ICool = GCell.Interior.ColorIndex Then 'Erhalte die Anzahl der übereinstimmenden farbigen Zellen CountByColor = CountByColor + 1 End If Next GCell End Function
Wenn Ihnen dieser Blog gefallen hat, teilen Sie ihn mit Ihren Freunden auf Facebook. Außerdem können Sie uns auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site