I denne artikel vil vi oprette en brugerdefineret funktion til at beregne summen af tal i celler i det område, der har defineret farve.
I dette eksempel består eksempeldata af salgsteamdata. Salgsteamdata indeholder oplysninger om antal solgte varer. Den indeholder oplysninger om produktet, der fås i tre farver grå, rød og grøn. Vi ønsker at finde summen af varen solgt efter produktfarve.
For at beregne summen efter farve har vi oprettet en brugerdefineret funktion “SumByColor”. Denne funktion tager parameter for to områder som input. Første områdeparameter definerer cellens indre farve og anden områdeparameter definerer prøveområdet.
Kode forklaring
Application.Volatile bruges, fordi den genberegner 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
Option Eksplicit funktion SumByColor (DefinedColorRange As Range, SumRange As Range) Application.Volatile 'Declaring variables Dim ICol As Integer Dim GCell As Range' Hentning af cellens indre farve ICol = DefinedColorRange.Interior.ColorIndex 'Looping gennem det definerede område For hver GCell I SumRange Hvis ICol = GCell.Interior.ColorIndex Så 'Henter summen af matchende farvede celler SumByColor = SumByColor + GCell.Value 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