Šajā rakstā mēs izveidosim pielāgotu funkciju datu kārtošanai alfabētiskā secībā.
Neapstrādāti dati sastāv no nejaušiem nosaukumiem, kurus vēlamies kārtot.
Loģisks skaidrojums
Mēs esam izveidojuši pielāgotu funkciju “SortString”, lai kārtotu datus alfabētiskā secībā. Tas ievada avota diapazonu un pozīciju kā ievadi un atgriež vērtības, pamatojoties uz norādīto pozīciju. Šī funkcija vispirms izveido sakārtotu masīvu, un pēc tam norādītā pozīcija tiek izmantota, lai no sakārtotā masīva iegūtu vajadzīgo vērtību.
Koda skaidrojums
UBound (vērtības)
Iepriekš minēto funkciju izmanto, lai iegūtu masīvā esošo vērtību skaitu.
vērtības (j) = vērtības (j - 1)
Iepriekš minēto kodu izmanto, lai masīvā mainītu vērtības par vienu indeksu.
Lūdzu, sekojiet tālāk norādītajam kodam
Opcija Skaidra funkcija SortString (avots kā diapazons, novietojums tik ilgi) kā virkne 'Deklarējošie mainīgie Dim Dim kā diapazons Dim vērtības () Kā virkne Dim i Tik ilgi, j Tik ilgi Dim Done kā Būla ReDim vērtības (1 līdz 1)' Looping through visas šūnas diapazonā katrai šūnai avotā Done = False i = 1 'Kārtota nosaukuma masīva izveide Do If Cell. Vērtība <vērtības (i) Tad Gatavs = Patiess Cits i = i + 1 beigas Ja cilpa darīts = False I i = UBound (vērtības) 1 vērtības (j) = vērtības (j - 1) Nākamā j Beiga Ja vērtības (i) = Šūna.Vērtība Nākamā šūna 'Nepieciešamās pozīcijas vērtības piešķiršana SortString = vērtības (Pozīcija + 1) Beigu funkcija
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē