Tässä artikkelissa luomme mukautetun toiminnon tietojen lajittelemiseksi aakkosjärjestyksessä.
Raakatiedot koostuvat satunnaisista nimistä, jotka haluamme lajitella.
Looginen selitys
Olemme luoneet mukautetun SortString -toiminnon tietojen lajittelemiseksi aakkosjärjestykseen. Se ottaa lähdealueen ja sijainnin tuloina ja palauttaa arvot määritetyn sijainnin perusteella. Tämä toiminto luo ensin lajitellun taulukon ja sitten määritettyä sijaintia käytetään poimimaan vaadittu arvo lajitellusta taulukosta.
Koodin selitys
UBound (arvot)
Yllä olevaa toimintoa käytetään laskemaan taulukon arvojen lukumäärä.
arvot (j) = arvot (j - 1)
Yllä olevaa koodia käytetään arvojen siirtämiseen taulukon sisällä yhdellä indeksillä.
Seuraa koodia alla
Vaihtoehto Selkeä toiminto SortString (Lähde alueena, Sijoitus niin pitkä) Jonoina 'Ilmoittavat muuttujat Dim Sol kuten alue Dim arvot () Kuten merkkijono Dim i Niin pitkä, j Niin kauan himmeä kuin Boolen ReDim -arvot (1 - 1)' Silmukan läpi kaikki alueen solut Jokaiselle lähteelle kuuluvalle solulle Valmis = False i = 1 'Lajitellun nimen matriisin luominen Do If Cell.Arvo <arvot (i) Silloin Valmis = Tosi Muu i = i + 1 Loppu Jos silmukka kun valmis = False Ja i <= UBound (arvot) ReDim Säilytä arvot (1 - UBound (arvot) + 1) Jos i <= UBound (arvot) Sitten 'Arvon säätäminen lajitellussa nimimatriisissaJ = UBound (arvot) To i + 1 Vaihe - 1 arvo (j) = arvot (j - 1) Seuraava j Loppu Jos arvot (i) = Solu.Arvo Seuraava solu 'Vaaditun sijainnin arvon määrittäminen SortString = arvot (sijainti + 1) Lopeta funktio
Jos pidit tästä blogista, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse
