V tomto článku vytvoríme vlastnú funkciu na počítanie počtu buniek v rozsahu s definovanými farbami.
V tomto prípade vzorové údaje pozostávajú z rozsahu, ktorý má hodnoty v rozmedzí od 100 do 1 000. Hodnoty v bunkách sú zvýraznené rôznymi farbami. Chceme zistiť počet každej farby.
Na výpočet počtu konkrétnych farieb sme vytvorili vlastnú funkciu „CountByColor“. 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
Funkcia CountByColor (rozsah definovaný ako rozsah, rozsah rozsah ako rozsah) Aplikácia. Prchavé 'Deklarácia premenných Dim ICol ako celé číslo Dim GCell ako rozsah' Získanie vnútornej farby bunky ICol = DefinedColorRange.Interior.ColorIndex 'Opakovanie definovaného rozsahu pre každý GCell In CountRange If ICol = GCell.Interior.ColorIndex Then 'Získanie počtu zodpovedajúcich farebných buniek CountByColor = CountByColor + 1 End If Next GCell Koniec 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