U ovom ćemo članku stvoriti prilagođenu funkciju za brojanje jedinstvenih vrijednosti u definiranom rasponu.
Sirovi podaci za ovaj primjer sastoje se od slučajnih brojeva u redovima. U ovom primjeru želimo brojati broj jedinstvenih brojeva u svakom retku.
Napravili smo prilagođenu funkciju "CountUniqueValues" za pronalaženje broja jedinstvenih brojeva u retku. Ova funkcija uzima raspon kao ulaz i vraća jedinstveni broj brojeva.
Logično objašnjenje
Napravili smo prilagođenu funkciju "CountUniqueValues" kako bismo dobili broj jedinstvenih brojeva. U ovoj prilagođenoj funkciji stvorili smo objekt kolekcijskog objekta. Ovaj objekt zbirke koristi se za izradu popisa jedinstvenih brojeva. Kad dobijemo popis jedinstvenih brojeva, dobit ćemo broj stavki u zbirci.
Objašnjenje koda
Application.Volatile se koristi jer će se ponovno izračunati svaki put kada se promijeni vrijednost ćelije u radnoj knjizi.
On Error Resume Next koristi se za rješavanje pogrešaka.
Molimo slijedite dolje za kôd
Opcija Eksplicitna funkcija CountUniqueValues (InputRange As Range) Kao cijeli broj Dim CellValue kao varijanta, UniqueValues kao nova zbirka Application.Volatile 'Za rukovanje pogreškama On Error Resume Next' Petlja kroz cijelu ćeliju u definiranom rasponu Za svaku CellValue u InputRange UniqueValues.Add Cell , CStr (CellValue) 'dodaj jedinstvenu stavku Dalje' Vraćanje broja jedinstvenih vrijednosti CountUniqueValues = UniqueValues.Count 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