Ось як надати таблицям алфавітний порядок
Сортування даних у алфавітному порядку у ваших списках - не проблема. Але як ви це робите, коли хочете розташувати аркуші в алфавітному порядку відповідно до їх назв?
Наступна ілюстрація показує реєстр аркушів із серією аркушів. Їх слід сортувати за алфавітом, щоб їх було легше знайти.
3
За допомогою кількох аркушів ви можете надійно виконати роботу вручну. З багатьма аркушами це швидко стає складним, займає багато часу і заплутує. Наступний макрос допоможе вам далі:
Sub SortBlaetter ()
Dim Zaehler1 як ціле число, Zaehler2 як ціле число
Затемнити ім'я як рядок
Назва = Ім'я ActiveSheet
Для Zaehler1 = 1 До робочих аркушів
For Zaehler2 = Zaehler1 До робочих аркушів
Якщо UCase (робочі аркуші (лічильник2). Ім'я) <UCase (робочі аркуші (лічильник1). Ім'я), то
Робочі аркуші (Zaehler2). Переміщення до: = Робочі аркуші (Zaehler1)
Закінчити Якщо
Наступний лічильник2, лічильник1
Робочі аркуші (Ім'я). Активувати
End Sub
Макрос сортує аркуші в активній книзі в алфавітному порядку. Наступний малюнок показує, як виглядає зразок книги після запуску макросу:
Порада: Якщо ви хочете дізнатися, як вводити та запускати макроси в Excel, ви знайдете короткий опис тут: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
