U ovom ćemo članku stvoriti prilagođenu funkciju za izračun zbroja brojeva u ćelijama u rasponu s definiranom bojom.
U ovom primjeru, uzorci se sastoje od podataka prodajnog tima. Podaci prodajnog tima sadrže pojedinosti o broju prodanih artikala. Sadrži podatke o proizvodu koji je dostupan u tri boje: sivoj, crvenoj i zelenoj. Želimo pronaći zbroj prodanih artikala po boji proizvoda.
Za izračun zbroja po boji stvorili smo prilagođenu funkciju “SumByColor”. 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
Opcija Eksplicitna funkcija SumByColor (DefinedColorRange As Range, SumRange As Range) Application.Volatile 'Deklariranje varijabli Dim ICol kao cijeli broj Dim GCell As Range' Dobivanje unutarnje boje ćelije ICol = DefinedColorRange.Interior.ColorIndex 'Petlja kroz definirani raspon GCell U SumRange Ako je ICol = GCell.Interior.ColorIndex Zatim 'Dobivanje zbroja odgovarajuće ćelije u boji SumByColor = SumByColor + GCell.Value End If Next GCell End Funkcija
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