Selles artiklis loome kohandatud funktsiooni määratletud vahemiku ainulaadsete väärtuste loendamiseks.
Selle näite töötlemata andmed koosnevad ridade juhuslikest numbritest. Selles näites tahame loendada unikaalsete numbrite arvu igas reas.
Oleme loonud kohandatud funktsiooni „CountUniqueValues”, et leida realt ainulaadsete numbrite arv. See funktsioon võtab sisendiks vahemiku ja tagastab numbrite kordumatu arvu.
Loogiline seletus
Unikaalsete numbrite arvu saamiseks oleme loonud kohandatud funktsiooni „CountUniqueValues”. Selle kohandatud funktsiooni abil oleme loonud kogumisobjekti objekti. Seda kogumisobjekti kasutatakse unikaalsete numbrite loendi loomiseks. Kui meil on kordumatute numbrite loend, saame kogumikus olevate üksuste arvu.
Koodi selgitus
Rakendus. Lenduvat kasutatakse seetõttu, et see arvutab iga kord ümber lahtri väärtuse muutmise töövihikus.
On Error Resume Next kasutatakse vigade käsitlemiseks.
Palun järgige koodi allpool
Valik Selgesõnaline funktsioon CountUniqueValues (InputRange kui vahemik) Täisarv Dim CellValue Variant, UniqueValues kui uus kogumisrakendus. Lenduv 'Vea käsitlemisel vea korral Jätka järgmisena' Silmuring läbi kõigi lahtrite määratletud vahemikus Iga lahtri väärtuse jaoks InputRange UniqueValues.Add CellValue , CStr (CellValue) 'lisage unikaalne üksus Järgmine' Unikaalsete väärtuste arvu tagastamine CountUniqueValues = UniqueValues.Count End Function
Kui teile see blogi meeldis, jagage seda oma sõpradega Facebookis. Lisaks saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd paremaks muuta ja teie jaoks paremaks muuta. Kirjuta meile meilisaidile