In diesem Artikel erstellen wir eine benutzerdefinierte Funktion, um die Summe der Zahlen in Zellen in dem Bereich mit definierter Farbe zu berechnen.

In diesem Beispiel bestehen Beispieldaten aus Verkaufsteamdaten. Die Daten des Verkaufsteams enthalten Details zur Anzahl der verkauften Artikel. Es enthält Informationen zu verwandten Produkten, die in drei Farben erhältlich sind: Grau, Rot und Grün. Wir möchten die Summe der verkauften Artikel nach Produktfarbe ermitteln.

ArrowRaw

Um die Summe nach Farbe zu berechnen, haben wir die benutzerdefinierte Funktion „SumByColor“ 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

Option Explicit

Function SumByColor(DefinedColorRange As Range, SumRange 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 SumRange



If ICol = GCell.Interior.ColorIndex Then

'Getting the sum of matching colored cell

SumByColor = SumByColor + GCell.Value

End If

Next GCell

End Function

Wenn Ihnen dieser Blog gefallen hat, teilen Sie ihn mit Ihren 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]