Excel - це не просто інструмент ведення даних компанії та бухгалтерського обліку. Його сила полягає в тому, що він використовується для класифікації та управління майже будь-чим простим і швидким способом. Ми можемо створювати порядок денний, робочі квадранти, адресні книги, шаблони рахунків-фактур, записи відвідуваності ... Однак Excel не дозволяє нам упорядковувати аркуші робочих книжок, що є дуже корисним при роботі з довгими книгами. Але ми можемо сортувати вкладки Excel автоматично за допомогою макросу в коді Visual Basic . Ми пояснюємо, як це зробити поетапно.
Слова "макрос у коді Visual Basic" можуть лякати, але все простіше, ніж це звучить. Макрос - це невелика програма, яка виконує для нас ряд дій у Excel і служить для автоматизації повторюваних завдань . Макроси написані кодом Visual Basic for Applications (або VBA), мовою програмування, яка дозволяє отримувати доступ та розширювати функції Excel.
Редактор Visual Basic
Щоб створити наш макрос, ми повинні відкрити будь-яку книгу в Excel, і чим більше у неї вкладок, тим краще.
Щоб відкрити редактор VBA, ми використовуємо комбінацію клавіш Alt + F11 . Після появи вікна редактора ми шукаємо конкретну книгу Excel, яка називається Personal.xls . Ця робоча книга має властивість, що все, що ми в ній робимо , впливатиме на всі книги . Тобто, якщо ми створюємо макрос, ми можемо використовувати його коли завгодно.
Якщо ви не можете знайти особисту книгу, не хвилюйтеся. Вийдіть із редактора, відкрийте вкладку « Перегляд Excel » , витягніть меню « Макроси » та виберіть « Записати макрос» . Збережіть макрос у своїй Особистій книзі макросів і почніть запис. Потім знову відкрийте меню макросів і припиніть запис. У вас вже є своя "спеціальна" книга.
Тепер у нас є все готове для створення нового модуля . Ми відкриваємо редактор VBA за допомогою Alt + F11 , вибираємо книгу Personal.xls і натискаємо Вставити> Модуль . Поміщаємо курсор у вікно модуля і пишемо такий код:
Sub SortSheets_Ascendant ()
Для a = 1 До аркушів
Для s = a + 1 до аркушів
Якщо UCase (Sheets (a) .Name)> UCase (Sheets (s) .Name) Тоді
Перемістити до: = Аркуші (а)
Завершити якщо
Далі с
Поруч з
Кінець Sub
Ми закриваємо вікно, і макрос буде збережено автоматично. Залишається лише перевірити, чи працює. Ми відкриваємо книгу, вкладки якої ми хочемо замовити, переходимо до Переглянути та натискаємо на Макроси , або натискаємо комбінацію клавіш Alt + F8 . Ми двічі клацаємо на SortSheets_Ascendant , і вкладки книги миттєво розміщуються в алфавітному порядку .
Коли ми закриваємо Excel, програма запитає нас, чи хочемо ми зберегти зміни, внесені до макросів. Ми приймаємо, і наш макрос буде збережений для використання з книгою, яку ми хочемо.
Відсортуйте аркуші за спаданням
За допомогою кількох невеликих змін коду ми можемо досягти зворотного ефекту: відсортувати вкладки за спаданням в алфавітному порядку . Повторюємо процес створення макросу, і цього разу вставляємо такий код:
Sub SortSheets_Descending ()
Для a = 1 До аркушів
Для s = a + 1 до аркушів
Якщо UCase (Sheets (a) .Name) <UCase (Sheets (s) .Name) Тоді
Перемістити до: = Аркуші (а)
Завершити якщо
Далі с
Поруч з
Кінець Sub
Варіацій лише дві. Перший, звичайно, це назва макросу. Другий - це зміна з> на <у четвертому рядку коду. Це означає, що впорядкування аркушів у книзі змінить напрямок . Тепер, коли ви натискаєте Перегляд> Макроси (або ярлик Alt + F8 ), ви побачите два нещодавно створені макроси. Двічі клацніть на SortSheets_Descending і перевірте із задоволенням його ефект.
Зберігаючи зміни під час виходу з Excel, ми матимемо ці два макроси доступними в будь-який час . Вони заощадять нам багато часу та сил при роботі з вкладками книг Excel, які є особливо громіздкими.