Якщо в робочій книзі Excel є велика кількість робочих аркушів, може бути важко знайти конкретну робочу таблицю. Сортування вкладок на аркуші в алфавітному порядку полегшить пошук того, що ви шукаєте.
На додаток до організації вкладок на робочому аркуші шляхом застосування до них кольорів, ви також можете сортувати їх за алфавітом або за алфавітом, якщо ви застосували власні імена до робочих аркушів. На жаль, сортування вкладок аркуша за алфавітом не вбудоване в Excel, але ви можете додати до своєї книги макрос, який дозволить вам сортувати вкладки в порядку зростання або вбивання. Ми покажемо вам, як додати макрос, доступний на сайті підтримки Microsoft, у вашу книгу Excel, який буде сортувати вкладки вашого аркуша.
Для початку натисніть Alt + F11, щоб відкрити редактор Microsoft Visual Basic для програм (VBA). Потім перейдіть до «Вставка» > «Додаток».
Скопіюйте і вставте наступний макрос з Microsoft у вікно додатка.
Sub Sort_Active_Book ()
Дім я як ціле
Dim J As Integer
Dim iAnswer As
VbMsgBoxResult''
Підкажіть користувачеві, в якому напрямку він хоче
сортувати робочі аркуші.
'
iAnswer = MsgBox («Сортувати аркуші в порядку зростання?» & Chr (10) _
& «» Натискання Немає буде сортувати в порядку убування «»,
_ vbYesNoCancel + vbQuestion + vbDefaultButton1, «» Сортування робочих таблиць
«») Для я = 1 до аркушів. Кількість для
j = 1 до Sheets.Count
-
1'" Якщо відповідь "Так", то сортуйте в порядку зростання
.
'Якщо iAnswer = vbYes Тоді
Якщо UCase $ (Sheets (j) .Name) > UCase $ (Sheets (j + 1) .Name),
то Аркуші (j). Пересунути після: = Аркуші (j +
1) End
If'" Якщо відповідь "Ні", то сортування в порядку убування
.
'ElseIf iAnswer = vbNo Тоді
Якщо UCase $ (Sheets (j) .Name) < UCase $ (Sheets (j + 1) .Name)
, то Аркуші (j). Пересунути після: = Аркуші (j
+ 1) En
d If En
d If Наступний
j Далі
я End Sub
Редактор VBA автоматично називає кожен модуль з номером наприкінці, наприклад, Module1, Module2 і т. д. Ви можете просто прийняти ім'я типового додатка. Однак, якщо ви плануєте додати інші макроси до робочої книги, рекомендується перейменувати кожен додаток, щоб ви знали, що це таке. Ми перейменуємо наш модуль, щоб показати вам, як.
Щоб перейменувати модуль, виберіть текст у полі «Ім'я» для модуля в розділі «Властивості» на лівій панелі.
Введіть назву модуля у поле Назва і натисніть Enter. Зауважте, що назва модуля не може містити пробілів.
Ім'я модуля змінюється в розділі «Проект» на лівій панелі.
Закрийте редактор VBA, вибравши Файл > Закрити і поверніться до Microsoft Excel.
Тепер ми збираємося запустити макрос для сортування наших вкладок. Натисніть Alt + F8, щоб отримати доступ до списку макросів у діалоговому вікні Макрос. Виберіть макрос у списку (у нашому випадку це лише один макрос) і натисніть «Виконати».
З'явиться наступне діалогове вікно, яке дозволяє вам вибрати, чи бажаєте ви відсортувати ваші робочі аркуші в порядку зростання або збиття. Ми хочемо відсортувати їх у порядку зростання, тому натискаємо «Так».
Вкладки робочого аркуша тепер розташовані в алфавітному порядку.
Макрос, який ви додали, тепер є частиною вашої робочої книги, але при збереженні ви, ймовірно, побачите наступне діалогове вікно. Це тому, що ви зберегли свою книгу у вигляді файла.xlsx, який є звичайним форматом книги Excel, але не містить макросів. Щоб включити макроси в робочу книгу та мати можливість їх запускати, необхідно зберегти робочу книгу як книгу з підтримкою макросів або файл.xlsm. Натисніть «Ні» у цьому діалоговому вікні.
Відкриється діалогове вікно «Зберегти як». Перейдіть туди, де ви хочете зберегти книгу з підтримкою макросів, якщо ви ще не в цій теці. Виберіть «Excel Macro-Enabled Workbook (* .xlsm)» зі спадного списку «Зберегти як тип».
Натисніть «Зберегти».
Якщо ви не збережете робочу книгу як книгу з підтримкою макросів (файл.xlsm), доданий макрос буде видалено. Можливо, ви захочете видалити версію книги.xlsx, щоб не забути використовувати версію книги.xlsm, якщо хочете додати більше вкладок аркуша і знову відсортувати їх за допомогою макроса. Ви завжди можете знову зберегти книгу як файл.xlsx, якщо більше не хочете використовувати макроси.
