V tomto článku vytvoríme vlastnú funkciu na počítanie jedinečných hodnôt v definovanom rozsahu.
Surové údaje pre tento príklad pozostávajú z náhodných čísel v riadkoch. V tomto prípade chceme spočítať počet jedinečných čísel v každom riadku.
Vytvorili sme vlastnú funkciu „CountUniqueValues“ na nájdenie počtu jedinečných čísel v riadku. Táto funkcia používa ako vstup rozsah a vracia jedinečný počet čísel.
Logické vysvetlenie
Vytvorili sme vlastnú funkciu „CountUniqueValues“ na získanie počtu jedinečných čísel. V tejto vlastnej funkcii sme vytvorili objekt zberného objektu. Tento zbierkový objekt sa používa na vytvorenie zoznamu jedinečných čísel. Akonáhle máme zoznam jedinečných čísel, dostaneme počet položiek v zbierke.
Vysvetlenie kódu
Aplikácia.Volatile sa používa, pretože sa prepočíta vždy, keď sa v zošite zmení hodnota bunky.
On Error Resume Ďalej sa používa na spracovanie chýb.
Pri kódovaní postupujte podľa nižšie uvedených pokynov
Option Explicit Function CountUniqueValues (InputRange As Range) As Integer Dim CellValue As Variant, UniqueValues as New Collection Application.Volatile 'For Handling Handling On Error Resume Next' Looping through the cell in the defined range For every CellValue In InputRange UniqueValues.Add CellValue „CStr (CellValue)“ pridá jedinečnú položku Ďalej „Vráti počet jedinečných hodnôt CountUniqueValues = UniqueValues.Count End Function
Ak sa vám tento blog páčil, zdieľajte ho so svojimi priateľmi na Facebooku. Môžete nás tiež sledovať na Twitteri a Facebooku.
Budeme radi, ak sa nám ozvete, dajte nám vedieť, ako môžeme zlepšiť našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku