In diesem Artikel erstellen wir eine benutzerdefinierte Funktion, um die Summe der Zahlen in Zellen im Bereich mit definierter Farbe zu berechnen.
In diesem Beispiel bestehen die Beispieldaten aus Vertriebsteamdaten. Die Daten des Vertriebsteams enthalten Details zur Anzahl der verkauften Artikel. Es enthält Informationen zum Produkt, das in den drei Farben Grau, Rot und Grün erhältlich ist. Wir möchten die Summe der verkauften Artikel nach Produktfarbe ermitteln.
Um die Summe nach Farbe zu berechnen, haben wir eine 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.
Codeerklärung
Application.Volatile wird verwendet, weil 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
Option Explizite Funktion SumByColor(DefinedColorRange As Range, SumRange As Range) Application.Volatile 'Variablen deklarieren Dim ICool As Integer Dim GCell As Range 'Die Innenfarbe der Zelle abrufen ICool = DefinedColorRange.Interior.ColorIndex 'Durchlaufen des definierten Bereichs For Each GCell In SumRange If ICool = GCell.Interior.ColorIndex Then 'Erhalten der Summe der übereinstimmenden farbigen Zellen SumByColor = SumByColor + GCell.Value 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