Zählen der Zellen nach Innenfarbe mithilfe von VBA - Excel-Tipps

Inhaltsverzeichnis

Emily fragt:

Könnten Sie bitte die formulare Lösung für das Zählen der Anzahl von Zellen mit einer bestimmten Backgorund-Farbe empfehlen (dh diese Zellen enthalten einige Daten, jedoch ist die Farbe wichtig, um sie zu zählen).

Logischerweise denke ich, dass es einem Standardformular folgen sollte, dh

CountIF(A01:A55,"backgroundcolour=red")

Ich glaube, die Farbe Rot sollte durch die Nummer 3 identifiziert werden (laut Hilfedatei)

Ich muss wissen, wie man die Hintergrundzellenfarbe codiert, dh Farbfüllung?, Hintergrundfarbe?, Innenfarbe?… ???

Emily - wenn es nur so einfach wäre. Sie benötigen eine benutzerdefinierte Funktion in VBA. Unten ist der Code für die Funktion. Sie müssen dies in ein neues Codemodul in der Arbeitsmappe eingeben.

Sobald Sie den Code eingegeben haben, können Sie diese Formel verwenden:

=CountColor(A1:A99,D2)

Wobei D2 das Hintergrundformat hat, das Sie zählen möchten.

Hier ist der Code:

Function CountColor(Rng As Range, RngColor As Range) As Integer Dim Cll As Range Dim Clr As Long Clr = RngColor.Range("A1").Interior.Color For Each Cll In Rng If Cll.Interior.Color = Clr Then CountColor = CountColor + 1 End If Next Cll End Function

Interessante Beiträge...