Šiame straipsnyje mes sukursime pasirinktinę funkciją rūšiuoti duomenis abėcėlės tvarka.
Neapdorotus duomenis sudaro atsitiktiniai pavadinimai, kuriuos norime rūšiuoti.
Loginis paaiškinimas
Mes sukūrėme „SortString“ pasirinktinę funkciją, kad duomenys būtų rūšiuojami abėcėlės tvarka. Šaltinio diapazonas ir padėtis imami kaip įvestys ir pateikiamos vertės pagal nurodytą padėtį. Ši funkcija pirmiausia sukuria surūšiuotą masyvą, o tada nurodyta vieta naudojama norint išgauti reikiamą reikšmę iš surūšiuoto masyvo.
Kodo paaiškinimas
„UBound“ (vertės)
Aukščiau pateikta funkcija naudojama masyvo verčių skaičiui gauti.
reikšmės (j) = vertės (j - 1)
Aukščiau pateiktas kodas naudojamas reikšmėms masyve perkelti vienu indeksu.
Sekite toliau pateiktą kodą
Parinktis Aiškioji funkcija „SortString“ (šaltinis kaip diapazonas, padėtis kaip ilga) kaip eilutė „Deklaruojantys kintamieji„ Dim Cell “kaip diapazonas„ Dim “reikšmės () Kaip eilutė„ Dim i “, kaip ilgai, j„ Long Dim Dimone “, atlikta kaip„ Boolean ReDim “vertės (nuo 1 iki 1) visi langeliai diapazone Kiekvienam langeliui šaltinyje Atlikta = klaidinga i = 1 'Rūšiuoto pavadinimo masyvo kūrimas Do If Cell.Value <reikšmės (i) Tada padaryta = tiesa Kita i = i + 1 pabaiga, jei ciklas atliktas = klaidinga I i 1 reikšmės (j) = reikšmės (j - 1) Kitas j pabaiga Jei reikšmės (i) = ląstelė. Vertė Kitas langelis 'Reikiamos pozicijos vertės priskyrimas SortString = reikšmės (pozicija + 1) Pabaigos funkcija
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