Šiame straipsnyje mes sukursime pasirinktinę funkciją, kad surastume unikalias vertes iš apibrėžto diapazono.
Neapdorotus šio pavyzdžio duomenis sudaro pasikartojantys šalies pavadinimo įrašai diapazone A8: A21.
Loginis paaiškinimas
Mes sukūrėme pasirinktinę funkciją „UniqueItem“, kad išskirtume unikalias diapazono vertes. Ši funkcija naudoja du parametrus kaip įvestį. Pirmasis parametras yra diapazonas, kurį sudaro pasikartojantys duomenys, o antrasis parametras apibrėžia unikalios kolekcijos unikalios vertės indekso numerį.
Ši funkcija grąžina unikalią diapazono vertę, pagrįstą indekso numeriu. Antrasis parametras yra neprivalomas parametras, jei antrasis parametras nenurodytas, funkcija grąžina unikalios vertės skaičių apibrėžtame diapazone.
Jei antrajam parametrui nustatyta vertė yra didesnė už unikalių verčių skaičių diapazone, funkcija grąžina paskutinę unikalią vertę.
Kodo paaiškinimas
Dėl klaidos Tęsti toliau
Kiekvienai „InputRange“ langelio vertei
CUnique.Add CellValue.Value, CStr (CellValue.Value)
Kitas
Klaida „GoTo 0“
Aukščiau pateiktas kodas naudojamas kolekcijos objektui sukurti, kuriame bus unikali reikšmė iš apibrėžto diapazono. „On Error“ teiginiai naudojami klaidoms tvarkyti, nes kai kodas bando į rinkinį įtraukti pasikartojančias reikšmes, surinkimas sukels klaidą.
Sekite toliau pateiktą kodą
Parinktis Aiškioji funkcija „UniqueItem“ („InputRange“ kaip diapazonas, pasirinktinis elementas Nr. „Integer“ = 0) Kaip variantas „Dim CellValue“ kaip diapazonas „Dim CUnique“ kaip nauja kolekcija „Dim UCount“ kaip sveikasis skaičius Klaida Tęsti toliau “Unikalių elementų įtraukimas į rinkinį iš apibrėžto diapazono kiekvienai„ CellValue InputRange CUnique “ .Add CellValue.Value, CStr (CellValue.Value) Kitas On Error GoTo 0 'Gaunant unikalų kolekcijos elementą UCount = CUnique.Count If ItemNo = 0 Tada' Unikalaus elemento skaičiaus grąžinimas UniqueItem = UCount ElseIf ItemNo <= UCount Tada „Grąžinama unikali vertė pagal elemento numerį UniqueItem = CUnique (ItemNo) Else“ Grąžinama paskutinė unikali vertė UniqueItem = CUnique (UCount) End If 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