У овом чланку ћемо створити прилагођену функцију за сортирање података по абецедном реду.
Сирови подаци се састоје од насумичних имена која желимо да сортирамо.
Логичко објашњење
Направили смо прилагођену функцију „СортСтринг“ за сортирање података по абецеди. Узима опсег извора и позицију као улазе и враћа вредности на основу наведене позиције. Ова функција прво ствара сортирано поље, а затим се наведена позиција користи за издвајање потребне вредности из сортираног низа.
Објашњење кода
УБоунд (вредности)
Горња функција се користи за добијање броја вредности вредности у низу.
вредности (ј) = вредности (ј - 1)
Горњи код се користи за померање вредности унутар низа за један индекс.
Молимо следите доле за код
Опција Експлицитна функција СортСтринг (Извор као опсег, позиција као дугачка) као низ 'Декларисање променљивих Дим Целл Ас Ранге Дим валуес () Ас Стринг Дим и Ас Лонг, ј Ас Лонг Дим Доне Ас Боолеан РеДим валуес (1 то 1)' Лоопинг тхроугх све ћелије у опсегу За сваку ћелију у извору Готово = Нетачно и = 1 'Креирање низа сортираног имена Урадите Ако је ћелија.Вредност <вредности (и) Тада је готово = Истина Остало и = и + 1 Крај Ако је петља Док је готово = Нетачно И и <= УБоунд (вредности) РеДим Очувај вредности (1 до УБоунд (вредности) + 1) Ако је и <= УБоунд (вредности) Затим 'Подешавање вредности у сортираном низу имена За ј = УБоунд (вредности) До и + 1 корак - 1 вредности (ј) = вредности (ј - 1) Следећа ј Крај Ако су вредности (и) = Целл.Валуе Следећа ћелија 'Додељивање вредности потребне позиције СортСтринг = вредности (Позиција + 1) Крај Функција
Ако вам се допао овај блог, поделите га са пријатељима на Фацебооку. Такође, можете нас пратити на Твиттер -у и Фацебоок -у.
Волели бисмо да чујемо од вас, јавите нам како можемо побољшати наш рад и учинити га бољим за вас. Пишите нам на веб локацији е -поште