Як створити книгу та перейменувати таблиці
Хочете створити робочі книги, які містять дванадцять робочих аркушів, щоб ви могли збирати дані за кожен місяць у році? Дозвольте макросу зробити це за вас автоматично.
Наступний макрос створює нову порожню книгу з дванадцятьма аркушами та називає окремі аркуші у скороченні форми назв місяців, тобто "січень", "лютий" тощо. Ось відповідний макрос:
Таблиці Sub CreateMonth ()
Затемнити номер вкладки як ціле число
Затемнити Новий як робочий зошит
Похмурі назви як варіант
Імена = масив ("січень", "лютий", "березень", "квітень", "травень", "червень", _
"Липень", "серпень", "вересень", "жовтень", "листопад", "грудень")
TabNumber = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 12
Встановити Новий = Робочі книги. Додати
Application.SheetsInNewWorkbook = TabNumber
Для TabNumber = від 1 до 12
Нові. Робочі аркуші (TabNumber) .Name = Імена (TabNumber - 1)
Номер наступної вкладки
End Sub
Після початку ви отримаєте робочий зошит із дванадцятьма аркушами. Наступний малюнок показує, як виглядає результат:
Якщо ви хочете використовувати інші назви замість назв місяців, адаптуйте імена у призначенні значень до змінної "Імена".
Порада: Якщо ви хочете дізнатися, як вводити та запускати макроси в Excel, ви знайдете короткий опис тут: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html