У овом чланку ћемо научити сортирање листова узлазним редоследом кроз ВБА у програму Мицрософт Екцел 2010.
Док радите на више листова, открићете да листови нису правилно распоређени. Желите брзо да креирате макро који ће аутоматски сортирати лист у растућем редоследу кад год се макро покрене.
Да бисте сортирали листове по растућем редоследу, следите доле наведене кораке:
- Притисните Алт+Ф11 да бисте отворили екран ВБ Едитор
- У менију Уметање изаберите Модул.
- У Модул откуцајте линије кода на следећи начин:
Под сортирањеСхеетсИнАсцендинг ()
Дим и Ас Интегер, н Ас Интегер, СхеетсЦоунтер Ас Интегер
Ако АцтивеВоркбоок није ништа, изађите из Суб
Ако АцтивеВоркбоок.ПротецтСтруцтуре Затим
МсгБок АцтивеВоркбоок.Наме & "ис протецтед", вбЦритицал, "Сорт Схеетс"
Екит Суб
Крај Ако
Ако МсгБок ("Сортирај листове?", ВбКуестион + вбИесНо) вбИес Затим изађите из Суб
Апплицатион.ЕнаблеЦанцелКеи = клДисаблед
СхеетсЦоунтер = Табеле.Број
Фор и = 2 То СхеетсЦоунтер
Фор н = 1 То СхеетсЦоунтер
Иф Схеетс (н) .Назив> Схеетс (и) .Назив Затим
Табеле (и). Премести пре: = Табеле (н)
Крај Ако
Нект н
Затим сам
Енд Суб
- Покрените макро из модула притиском на Ф5.
Алтернативно, притисните Алт+Ф11 и вратите се у Екцел, доделите макро било ком Екцел објекту као дугме или икону или притисните Алт+Ф8 да бисте изабрали макро, а затим кликните на дугме Покрени.
Открићете да су листови поређани алфанумеричким редоследом.