V tomto článku vytvoríme vlastnú funkciu na výpočet súčtu čísel v bunkách v rozsahu s definovanou farbou.
V tomto prípade vzorové údaje pozostávajú z údajov predajného tímu. Údaje predajného tímu obsahujú podrobnosti týkajúce sa počtu predaných položiek. Obsahuje informácie o výrobku, ktoré sú k dispozícii v troch farbách šedej, červenej a zelenej. Chceme nájsť súčet položiek predaných podľa farby produktu.
Na výpočet súčtu podľa farby sme vytvorili vlastnú funkciu „SumByColor“. Táto funkcia používa ako vstup dva parametre rozsahu. Prvý parameter rozsahu definuje vnútornú farbu bunky a druhý parameter rozsahu definuje rozsah vzorky.
Vysvetlenie kódu
Aplikácia.Volatile sa používa, pretože sa prepočíta vždy, keď sa v zošite zmení hodnota bunky.
DefinedColorRange.Interior.ColorIndex
Vyššie uvedený kód sa používa na získanie vnútornej farby definovaného rozsahu.
Pri kódovaní postupujte podľa nižšie uvedených pokynov
Možnosť Explicitná funkcia SumByColor (DefinedColorRange As Range, SumRange As Range) Aplikácia. Prchavé „Deklarujúce premenné Dim ICol ako Integer Dim GCell As Range“ Získanie vnútornej farby bunky ICol = DefinedColorRange.Interior.ColorIndex „Opakovanie definovaného rozsahu pre každú z nich GCell In SumRange If ICol = GCell.Interior.ColorIndex Then 'Získanie súčtu zodpovedajúcich farebných buniek SumByColor = SumByColor + GCell.Value End If Next GCell End Funkcia
Ak sa vám tento blog páčil, zdieľajte ho so svojimi priateľmi na Facebooku. Môžete nás tiež sledovať na Twitteri a Facebooku.
Budeme radi, ak sa nám ozvete, dajte nám vedieť, ako môžeme zlepšiť našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku