V tem članku bomo ustvarili funkcijo po meri za iskanje edinstvenih vrednosti iz opredeljenega območja.
Neobdelani podatki za ta primer so sestavljeni iz podvojenih vnosov imena države v območju A8: A21.
Logična razlaga
Ustvarili smo funkcijo po meri "UniqueItem" za izvlečenje edinstvenih vrednosti iz obsega. Ta funkcija vzame dva parametra kot vhod. Prvi parameter je obseg, ki je sestavljen iz podvojenih podatkov, drugi parameter pa določa številko indeksa edinstvene vrednosti v edinstveni zbirki.
Ta funkcija vrne edinstveno vrednost iz območja na podlagi številke indeksa. Drugi parameter je neobvezen parameter, če drugi parameter ni podan, funkcija vrne število edinstvenih vrednosti v definiranem območju.
Če je vrednost, opredeljena za drugi parameter, večja od števila edinstvenih vrednosti v obsegu, potem funkcija vrne zadnjo edinstveno vrednost.
Razlaga kode
On Napaka Nadaljuj Naprej
Za vsako CellValue v InputRange
CUnique.Add CellValue.Value, CStr (CellValue.Value)
Naslednji
Pri napaki Pojdi na 0
Zgornja koda se uporablja za ustvarjanje zbirnega predmeta, ki bo vseboval edinstveno vrednost iz opredeljenega obsega. Stavki »On Error« se uporabljajo za obravnavo napak, saj koda poskuša v zbirko vnesti podvojene vrednosti, bo zbirka ustvarila napako.
Za kodo sledite spodaj
Možnost Eksplicitna funkcija UniqueItem (InputRange As Range, Optional ItemNo As Integer = 0) As Variant Dim CellValue As Range Dim CUnique As New Collection Dim UCount As Integer On Error Nadaljuj Naslednje »Dodajanje edinstvenih elementov v zbirko iz definiranega območja Za vsako CellValue v InputRange CUnique .Dodaj CellValue.Value, CStr (CellValue.Value) Naprej Napaka Pojdi na 0 'Pridobivanje števila edinstvenih elementov v zbirki UCount = CUnique.Count If ItemNo = 0 Potem' Vrnjeno število edinstvenih elementov UniqueItem = UCount ElseIf ItemNo <= UCount Nato 'Vrnitev edinstvene vrednosti na podlagi številke postavke UniqueItem = CUnique (ItemNo) Else' Vrnitev zadnje edinstvene vrednosti UniqueItem = CUnique (UCount) End If End Funkcija
Če vam je bil ta blog všeč, ga delite s prijatelji na Facebooku. Prav tako nam lahko sledite na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo svoje delo in ga izboljšamo za vas. Pišite nam na spletnem mestu e -pošte
