Šajā rakstā mēs izveidosim pielāgotu funkciju, lai aprēķinātu skaitļu summu šūnās diapazonā ar noteiktu krāsu.
Šajā piemērā datu paraugi sastāv no pārdošanas komandas datiem. Pārdošanas komandas dati satur informāciju par pārdoto preču skaitu. Tajā ir informācija par produktu, kas pieejams trīs krāsās: pelēka, sarkana un zaļa. Mēs vēlamies atrast pārdoto preču summu pēc produkta krāsas.
Lai aprēķinātu summu pēc krāsas, esam izveidojuši pielāgotu funkciju “SumByColor”. Šī funkcija ievada divu diapazonu parametrus. Pirmais diapazona parametrs nosaka šūnas iekšējo krāsu un otrais diapazona parametrs nosaka parauga diapazonu.
Koda skaidrojums
Lietojumprogramma. Gaistošs tiek izmantots, jo tas tiks pārrēķināts katru reizi, kad darbgrāmatā tiek mainīta šūnas vērtība.
DefinedColorRange.Interior.ColorIndex
Iepriekš minētais kods tiek izmantots, lai iegūtu noteiktā diapazona interjera krāsu.
Lūdzu, sekojiet tālāk norādītajam kodam
Opcija Skaidra funkcija SumByColor (DefinedColorRange kā diapazons, SumRange kā diapazons) Lietojumprogramma. Gaistoši 'Deklarējošie mainīgie Dim ICol kā vesels skaitlis Dim GCell As Range' Šūnas iekšējās krāsas iegūšana ICol = DefinedColorRange.Interior.ColorIndex 'Looping caur noteikto diapazonu GCell In SumRange Ja ICol = GCell.Interior.ColorIndex Tad 'Atbilstošu krāsainu šūnu summas iegūšana SumByColor = SumByColor + GCell.Value End If Next GCell End Function
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē