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