U ovom ćemo članku stvoriti prilagođenu funkciju za brojanje broja ćelija u rasponu s definiranim bojama.
U ovom primjeru, uzorci podataka sastoje se od raspona koji imaju vrijednosti u rasponu od 100 do 1000. Vrijednosti u ćelijama označene su različitim bojama. Želimo pronaći broj svake boje.
Kako bismo izračunali broj određene boje, stvorili smo prilagođenu funkciju “CountByColor”. Ova funkcija uzima dva parametra raspona kao ulaz. Parametar prvog raspona definira unutarnju boju ćelije, a drugi parametar raspona definira raspon uzorka.
Objašnjenje koda
Application.Volatile se koristi jer će se ponovno izračunati svaki put kada se promijeni vrijednost ćelije u radnoj knjizi.
Definirano Raspon boja.Interijer.Indeks boja
Gornji kôd koristi se za dobivanje unutarnje boje definiranog raspona.
Molimo slijedite dolje za kôd
Funkcija CountByColor (DefinedColorRange As Range, CountRange As Range) Application.Volatile 'Deklariranje varijabli Dim ICol As Integer Dim GCell As Range' Dobivanje unutarnje boje ćelije ICol = DefinedColorRange.Interior.ColorIndex 'Petlja kroz definirani raspon Za svaku GCell In CountRange If ICol = GCell.Interior.ColorIndex Then 'Dobivanje broja odgovarajućih obojenih ćelija CountByColor = CountByColor + 1 kraj Ako je sljedeća funkcija GCell End
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte