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.

ArrowMain

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.

ArrowOutput

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]