V tomto článku vytvoríme vlastnú funkciu na triedenie údajov v abecednom poradí.
Surové údaje pozostávajú z náhodných mien, ktoré chceme triediť.
Logické vysvetlenie
Vytvorili sme vlastnú funkciu „SortString“ na triedenie údajov podľa abecedy. Ako vstup berie zdrojový rozsah a pozíciu a vracia hodnoty na základe zadanej polohy. Táto funkcia najskôr vytvorí triedené pole a potom sa zadaná pozícia použije na extrahovanie požadovanej hodnoty z triedeného poľa.
Vysvetlenie kódu
UBound (hodnoty)
Vyššie uvedená funkcia sa používa na získanie počtu hodnôt v rámci poľa.
hodnoty (j) = hodnoty (j - 1)
Vyššie uvedený kód sa používa na posun hodnôt v rámci poľa o jeden index.
Pri kódovaní postupujte podľa nižšie uvedených pokynov
Voľba Explicitná funkcia SortString (zdroj ako rozsah, pozícia ako dlhá) ako reťazec „Deklarovanie premenných Dim bunka ako rozsah Dim hodnoty () Ako reťazec Dim i ako dlhý, j ako dlhý stmavený ako booleovské hodnoty ReDim (1 až 1)“ Opakovanie všetky bunky v rozsahu Pre každú bunku v zdroji Hotovo = Nepravda i = 1 'Vytvorenie poľa s triedeným názvom Urobiť ak Bunka.Hodnota <hodnoty (i) Potom Hotovo = Pravda Iná And i <= UBound (hodnoty) ReDim Zachovať hodnoty (1 až UBound (hodnoty) + 1) Ak i <= UBound (hodnoty) Potom 'Úprava hodnoty v zoradenom poli názvov Pre j = UBound (hodnoty) až i + 1 Krok - 1 hodnoty (j) = hodnoty (j - 1) Ďalší j Koniec, ak hodnoty (i) = bunka. Hodnota Nasledujúca bunka 'Priradenie hodnoty požadovanej polohy SortString = hodnoty (pozícia + 1) Koncová funkcia
Ak sa vám tento blog páčil, zdieľajte ho so svojimi priateľmi na Facebooku. Môžete nás tiež sledovať na Twitteri a Facebooku.
Budeme radi, ak sa nám ozvete, dajte nám vedieť, ako môžeme zlepšiť našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku
