I denne artikkelen vil vi lage en tilpasset funksjon for å beregne summen av tall i celler i området som har definert farge.
I dette eksemplet består eksempeldata av salgsteamdata. Salgsteamdata inneholder detaljer knyttet til antall solgte varer. Den inneholder informasjon om produktet som er tilgjengelig i tre farger grå, rød og grønn. Vi ønsker å finne summen av varen som selges etter produktfarge.
For å beregne summen etter farge har vi laget en egendefinert funksjon “SumByColor”. Denne funksjonen tar parameteren to områder 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 fordi den 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
Alternativ Eksplisitt funksjon SumByColor (DefinedColorRange As Range, SumRange 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 I SumRange Hvis ICol = GCell.Interior.ColorIndex Så får du summen av matchende fargede celler SumByColor = SumByColor + GCell.Value End If Next GCell End Function
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