In dit artikel zullen we een aangepaste functie maken om de som van getallen te berekenen in cellen in het bereik met een gedefinieerde kleur.
Voor dit voorbeeld bestaan voorbeeldgegevens uit verkoopteamgegevens. De gegevens van het verkoopteam bevatten details met betrekking tot het aantal verkochte artikelen. Het bevat informatie over het product dat verkrijgbaar is in drie kleuren grijs, rood en groen. We willen de som van het verkochte artikel per productkleur vinden.
Om de som per kleur te berekenen, hebben we een aangepaste functie "SumByColor" gemaakt. Deze functie heeft twee bereikparameters als invoer. De eerste bereikparameter definieert de binnenkleur van de cel en de tweede bereikparameter definieert het monsterbereik.
Code uitleg
Application.Volatile wordt gebruikt omdat het elke keer dat een celwaarde in de werkmap wordt gewijzigd, opnieuw wordt berekend.
DefinedColorRange.Interior.ColorIndex
Bovenstaande code wordt gebruikt om de interieurkleur van het gedefinieerde bereik te krijgen.
Volg hieronder voor de code:
Optie Expliciete functie SumByColor (DefinedColorRange As Range, SumRange As Range) Application.Volatile 'Variabelen declareren Dim ICol As Integer Dim GCell As Range 'De binnenkleur van de cel ophalen ICol = DefinedColorRange.Interior.ColorIndex 'Door het gedefinieerde bereik doorlopen voor elk GCell In SumRange If ICol = GCell.Interior.ColorIndex Then 'De som van overeenkomende gekleurde cellen ophalen SumByColor = SumByColor + GCell.Value End If Next GCell End Function
Als je deze blog leuk vond, deel hem dan met je vrienden op Facebook. Ook kunt u ons volgen op Twitter en Facebook.
We horen graag van u, laat ons weten hoe we ons werk kunnen verbeteren en voor u kunnen verbeteren. Schrijf ons op de e-mailsite