I denne artikkelen vil vi lage en egendefinert funksjon for å telle antall celler i området som har definerte farger.
For dette eksemplet består eksempeldata av et område som har verdier mellom 100 og 1000. Verdier i cellene er uthevet i forskjellige farger. Vi ønsker å finne antallet av hver farge.
For å beregne tellingen av en bestemt farge, har vi laget en egendefinert funksjon “CountByColor”. Denne funksjonen tar to områdeparametere som inngang. Første områdeparameter definerer den indre fargen på cellen og den andre områdeparameteren definerer prøveområdet.
Kode forklaring
Application.Volatile brukes som det vil beregne hver gang en celleverdi endres i arbeidsboken.
DefinedColorRange.Interior.ColorIndex
Koden ovenfor brukes for å få den indre fargen på det definerte området.
Følg koden nedenfor
Funksjon CountByColor (DefinedColorRange As Range, CountRange As Range) Application.Volatile 'Declaring variables Dim ICol As Integer Dim GCell As Range' Få den indre fargen på cellen ICol = DefinedColorRange.Interior.ColorIndex 'Looping gjennom det definerte området for hver GCell In CountRange If ICol = GCell.Interior.ColorIndex Deretter får du tellingen av matchende fargede celler CountByColor = CountByColor + 1 End If Next GCell End -funksjon
Hvis du likte denne bloggen, del den med vennene dine på Facebook. Du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post