Šiame straipsnyje sukursime pasirinktinę funkciją, kad būtų galima suskaičiuoti unikalias reikšmes apibrėžtame diapazone.
Neapdorotus šio pavyzdžio duomenis sudaro atsitiktiniai skaičiai eilutėse. Šiame pavyzdyje norime suskaičiuoti unikalių skaičių skaičių kiekvienoje eilutėje.
Mes sukūrėme „CountUniqueValues“ pasirinktinę funkciją, kad rastume unikalių skaičių skaičių eilutėje. Ši funkcija įvesta diapazoną ir grąžina unikalų skaičių skaičių.
Loginis paaiškinimas
Mes sukūrėme pasirinktinę funkciją „CountUniqueValues“, kad gautume unikalių skaičių skaičių. Naudodami šią pasirinktinę funkciją, sukūrėme surinkimo objekto objektą. Šis kolekcijos objektas naudojamas unikalių skaičių sąrašui sukurti. Kai turėsime unikalių skaičių sąrašą, gausime kolekcijos elementų skaičių.
Kodo paaiškinimas
Taikymas. Lakusis yra naudojamas, nes jis perskaičiuos kiekvieną kartą, kai langelio vertė bus pakeista darbaknygėje.
On Error Resume Next yra naudojamas klaidoms tvarkyti.
Sekite toliau pateiktą kodą
Parinktis Aiškių funkcijų skaičius „UniqueValues“ („InputRange“ kaip diapazonas) „Integer Dim CellValue“ kaip variantas, „UniqueValues“ kaip nauja kolekcijos programa. Pastovusis „Dėl klaidų tvarkymo dėl klaidos tęskite kitą“ Looping per visą nustatyto diapazono langelį kiekvienai langelio vertei InputRange UniqueValues. Add CellValue , CStr (CellValue) “pridėkite unikalų elementą Kitas“ Grąžina unikalių verčių skaičių CountUniqueValues = UniqueValues.Count End Function
Jei jums patiko šis tinklaraštis, pasidalykite juo su draugais „Facebook“. Be to, mus galite sekti „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime pagerinti savo darbą ir padaryti jį geresnį. Rašykite mums el