In dit artikel zullen we een aangepaste functie maken om het aantal cellen in het bereik met gedefinieerde kleuren te tellen.
Voor dit voorbeeld bestaan voorbeeldgegevens uit een bereik met waarden tussen 100 en 1000. Waarden in de cellen worden in verschillende kleuren gemarkeerd. We willen het aantal van elke kleur vinden.
Om het aantal van een specifieke kleur te berekenen, hebben we een aangepaste functie "CountByColor" 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:
Functie CountByColor (DefinedColorRange As Range, CountRange As Range) Application.Volatile 'Declareren van variabelen Dim ICol As Integer Dim GCell As Range 'De binnenkleur van de cel ophalen ICol = DefinedColorRange.Interior.ColorIndex 'Door het gedefinieerde bereik doorlopen voor elke GCell In CountRange If ICol = GCell.Interior.ColorIndex Then 'Het aantal overeenkomende gekleurde cellen ophalen CountByColor = CountByColor + 1 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