Tässä artikkelissa luomme mukautetun funktion määritettyjen alueiden yksilöllisten arvojen laskemiseksi.
Tämän esimerkin raakatiedot koostuvat satunnaisista numeroista riveillä. Tässä esimerkissä haluamme laskea yksilöllisten numeroiden määrän kullakin rivillä.
Olemme luoneet "CountUniqueValues" -toiminnon löytääksesi rivin yksilöllisten numeroiden määrän. Tämä toiminto ottaa alueen syötteeksi ja palauttaa yksilöllisen lukumäärän.
Looginen selitys
Olemme luoneet mukautetun funktion "CountUniqueValues" saadaksesi yksilöllisten numeroiden määrän. Tässä mukautetussa toiminnossa olemme luoneet kokoelmaobjektin objektin. Tätä kokoelmaobjektia käytetään luomaan luettelo yksilöllisistä numeroista. Kun meillä on luettelo ainutlaatuisista numeroista, saamme kokoelman kohteiden määrän.
Koodin selitys
Haihtuvaa käytetään, koska se laskee uudelleen aina, kun solun arvo muutetaan työkirjassa.
On Error Resume Next käytetään virheiden käsittelyyn.
Seuraa koodia alla
Vaihtoehto Explicit Function CountUniqueValues (InputRange as Range) Integer Dim CellValue Variant, UniqueValues as New Collection Application. , CStr (CellValue) 'lisää ainutlaatuinen kohde Seuraava' Palauttaa yksilöllisten arvojen määrän CountUniqueValues = UniqueValues.Count End Function
Jos pidit tästä blogista, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse