V tomto článku vytvoříme vlastní funkci pro počítání počtu buněk v rozsahu s definovanými barvami.
V tomto případě se ukázková data skládají z rozsahu, který má hodnoty v rozmezí 100 až 1 000. Hodnoty v buňkách jsou zvýrazněny různými barvami. Chceme zjistit počet jednotlivých barev.
Abychom mohli vypočítat počet konkrétní barvy, vytvořili jsme vlastní funkci „CountByColor“. 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
Funkce CountByColor (DefinedColorRange As Range, CountRange 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 CountRange If ICol = GCell.Interior.ColorIndex Then 'Získání počtu odpovídajících barevných buněk CountByColor = CountByColor + 1 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