I denne artikel vil vi oprette en brugerdefineret funktion til at tælle antallet af celler i området, der har definerede farver.
I dette eksempel består eksempeldata af et område, der har værdier mellem 100 og 1000. Værdier i cellerne fremhæves i forskellige farver. Vi vil finde antallet af hver farve.
For at beregne antallet af en bestemt farve har vi oprettet en brugerdefineret funktion "CountByColor". Denne funktion tager to områdeparametre som input. Første områdeparameter definerer cellens indvendige farve og anden områdeparameter definerer prøveområdet.
Kode forklaring
Application.Volatile bruges, da det vil genberegne hver gang en celleværdi ændres i projektmappen.
DefinedColorRange.Interior.ColorIndex
Ovenstående kode bruges til at få den indvendige farve i det definerede område.
Følg venligst nedenstående for koden
Funktion CountByColor (DefinedColorRange As Range, CountRange As Range) Application.Volatile 'Deklarerende variabler Dim ICol As Integer Dim GCell As Range' Henter den indre farve på cellen ICol = DefinedColorRange.Interior.ColorIndex 'Looping gennem det definerede område for hver GCell In CountRange If ICol = GCell.Interior.ColorIndex Herefter 'Henter optællingen af matchende farvede celler CountByColor = CountByColor + 1 End If Next GCell End Function
Hvis du kunne lide denne blog, kan du dele den med dine venner på Facebook. Du kan også følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet