U ovom ćemo članku stvoriti prilagođenu funkciju za sortiranje podataka po abecednom redu.
Sirovi podaci sastoje se od nasumičnih naziva koje želimo sortirati.
Logično objašnjenje
Napravili smo prilagođenu funkciju "SortString" za sortiranje podataka po abecedi. Uzima raspon izvora i položaj kao ulaze, a vraća vrijednosti na temelju navedene pozicije. Ova funkcija prvo stvara sortirano polje, a zatim se navedena pozicija koristi za izdvajanje potrebne vrijednosti iz sortiranog niza.
Objašnjenje koda
UBound (vrijednosti)
Gornja funkcija koristi se za dobivanje broja vrijednosti unutar polja.
vrijednosti (j) = vrijednosti (j - 1)
Gornji kôd koristi se za pomicanje vrijednosti unutar niza za jedan indeks.
Molimo slijedite dolje za kôd
Opcija Eksplicitna funkcija SortString (Izvor kao raspon, pozicija kao dugačka) kao niz 'Deklariranje varijabli Dim Cell As Range Dim vrijednosti () As String Dim i As Long, j As Long Dim Done Kao Boolean ReDim vrijednosti (1 do 1)' Looping through sve ćelije u rasponu Za svaku ćeliju u izvoru Gotovo = Netačno i = 1 'Stvaranje niza razvrstanog imena Učinite Ako je ćelija.Vrijednost <vrijednosti (i) Tada je učinjeno = Istina Ostalo i = i + 1 Kraj Ako je petlja Dok je gotovo = Netačno I i <= UBound (vrijednosti) ReDim Očuvaj vrijednosti (1 Za UBound (vrijednosti) + 1) Ako je i <= UBound (vrijednosti) Zatim 'Podešavanje vrijednosti u sortiranom nizu imena Za j = UBound (vrijednosti) Do i + 1 korak - 1 vrijednosti (j) = vrijednosti (j - 1) Sljedeća j Kraj Ako su vrijednosti (i) = Cell.Value Sljedeća ćelija 'Dodjela vrijednosti potrebne pozicije SortString = vrijednosti (Pozicija + 1) Kraj Funkcija
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte
