I den här artikeln kommer vi att skapa en anpassad funktion för att beräkna summan av tal i celler i intervallet med definierad färg.
I det här exemplet består exempeldata av säljteamdata. Säljteamdata innehåller detaljer relaterade till antalet sålda varor. Den innehåller information om produkten som finns i tre färger grå, röd och grön. Vi vill hitta summan av varan som säljs efter produktfärg.
För att beräkna summan efter färg har vi skapat en anpassad funktion “SumByColor”. Denna funktion tar två intervallsparametrar som ingång. Första intervallparametern definierar cellens inre färg och den andra intervallparametern definierar provintervallet.
Kodförklaring
Application.Volatile 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
Alternativ Explicit Function SumByColor (DefinedColorRange As Range, SumRange As Range) Application.Volatile 'Declaring variables Dim ICol As Integer Dim GCell As Range' Skaffa cellens inre färg ICol = DefinedColorRange.Interior.ColorIndex 'Looping through the defined range For Every GCell I SumRange Om ICol = GCell.Interior.ColorIndex Då får du summan av matchande färgad cell SumByColor = SumByColor + GCell.Value End If Next GCell End Function
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