V tomto článku vytvoříme vlastní funkci pro výpočet součtu čísel v buňkách v rozsahu s definovanou barvou.
V tomto případě se ukázková data skládají z dat prodejního týmu. Data prodejního týmu obsahují podrobnosti týkající se počtu prodaných položek. Obsahuje informace o produktu, který je k dispozici ve třech barvách: šedá, červená a zelená. Chceme najít součet položek prodaných podle barvy produktu.
Pro výpočet součtu podle barvy jsme vytvořili vlastní funkci „SumByColor“. Tato funkce bere jako vstup dva parametry rozsahu. První parametr rozsahu definuje vnitřní barvu buňky a druhý parametr rozsahu definuje rozsah vzorku.
Vysvětlení kódu
Application.Volatile se používá, protože se přepočítá při každé změně hodnoty buňky v sešitu.
DefinedColorRange.Interior.ColorIndex
Výše uvedený kód se používá k získání vnitřní barvy definovaného rozsahu.
Pro kód prosím postupujte níže
Volba Explicitní funkce SumByColor (DefinedColorRange As Range, SumRange As Range) Application.Volatile 'Declaring variables Dim ICol As Integer Dim GCell As Range' Získání vnitřní barvy buňky ICol = DefinedColorRange.Interior.ColorIndex 'Procházení definovaným rozsahem pro každý GCell In SumRange If ICol = GCell.Interior.ColorIndex Then 'Získání součtu odpovídajících barevných buněk SumByColor = SumByColor + GCell.Value End If Next GCell End Funkce
Pokud se vám tento blog líbil, sdílejte ho se svými přáteli na Facebooku. Také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit naši práci a zlepšit ji pro vás. Napište nám na e -mail