V tem članku bomo ustvarili funkcijo po meri za razvrščanje podatkov po abecednem vrstnem redu.
Surovi podatki so sestavljeni iz naključnih imen, ki jih želimo razvrstiti.
Logična razlaga
Ustvarili smo funkcijo po meri »SortString« za razvrščanje podatkov po abecedi. Za vhod vzame obseg in položaj vira ter vrne vrednosti na podlagi podanega položaja. Ta funkcija najprej ustvari razvrščeno matriko, nato pa se podana pozicija uporabi za ekstrahiranje zahtevane vrednosti iz razvrščene matrike.
Razlaga kode
UBound (vrednosti)
Zgornja funkcija se uporablja za štetje števila vrednosti v matriki.
vrednosti (j) = vrednosti (j - 1)
Zgornja koda se uporablja za premik vrednosti znotraj matrike za en indeks.
Za kodo sledite spodaj
Možnost Eksplicitna funkcija SortString (vir kot obseg, položaj kot dolg) kot niz »razglasitev spremenljivk zatemni celico kot obseg Zatemni vrednosti () kot niz dim i toliko, j tako dolgo zatemnjeno kot logične vrednosti ponovnega zatemnitve (1 do 1)« vse celice v obsegu Za vsako celico v viru Dokončano = Netočno i = 1 'Ustvarjanje matrike razvrščenega imena Naredi Če celica.Vrednost <vrednosti (i) Potem Končano = True Drugače i = i + 1 Konec Če je zanka Med dokončanim = napačno In i <= UBound (vrednosti) ReDim Ohrani vrednosti (1 Za UBound (vrednosti) + 1) Če je i <= UBound (vrednosti) Potem 'Prilagajanje vrednosti v razvrščeni imenski matrici Za j = UBound (vrednosti) Do i + 1 korak - 1 vrednosti (j) = vrednosti (j - 1) Naprej j Konec Če so vrednosti (i) = Cell.Value Naslednja celica 'Dodelitev vrednosti zahtevanega položaja SortString = vrednosti (Položaj + 1) Končna 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