I den här artikeln kommer vi att skapa en anpassad funktion för att räkna antalet celler i intervallet med definierade färger.
I detta exempel består provdata av ett intervall som har värden mellan 100 och 1000. Värden i cellerna markeras i olika färger. Vi vill hitta antalet färger.
För att beräkna antalet specifika färger har vi skapat en anpassad funktion “CountByColor”. Denna funktion tar två intervallparametrar som ingång. Första intervallparametern definierar cellens inre färg och den andra intervallparametern definierar provintervallet.
Kodförklaring
Application.Vatatile används eftersom det kommer att beräkna om varje gång ett cellvärde ändras i arbetsboken.
DefinedColorRange.Interior.ColorIndex
Ovanstående kod används för att få den inre färgen på det definierade intervallet.
Följ koden nedan
Funktion CountByColor (DefinedColorRange As Range, CountRange As Range) Application.Volatile 'Declaring variables Dim ICol As Integer Dim GCell As Range' Få cellens inre färg ICol = DefinedColorRange.Interior.ColorIndex 'Looping genom det definierade intervallet för varje GCell In CountRange If ICol = GCell.Interior.ColorIndex Då får du antalet matchande färgade celler CountByColor = CountByColor + 1 End If Next GCell End -funktion
Om du gillade den här bloggen, dela den med dina vänner på Facebook. Du kan också följa oss på Twitter och Facebook.
Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra vårt arbete och göra det bättre för dig. Skriv till oss på e -postwebbplatsen