Как создать книгу и переименовать таблицы
Хотите создать книги, содержащие двенадцать рабочих листов, чтобы вы могли собирать данные за каждый месяц года? Пусть макрос сделает это за вас автоматически.
Следующий макрос создает новую пустую книгу с двенадцатью рабочими листами и называет отдельные листы в сокращенной форме названий месяцев, то есть «Янв», «Фев» и т. Д. Вот соответствующий макрос:
Подложные таблицы CreateMonth ()
Уменьшить номер табуляции как целое число
Тусклый новый как рабочая тетрадь
Тусклые имена как вариант
Names = array («Янв», «Фев», «Мар», «Апр», «Май», «Июнь», _
«Июль», «август», «сен», «октябрь», «ноя», «декабрь»)
TabNumber = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 12
Установить New = Workbooks.Add
Application.SheetsInNewWorkbook = TabNumber
Для TabNumber = от 1 до 12
New.Worksheets (TabNumber) .Name = Names (TabNumber - 1)
Номер следующей вкладки
Конец подписки
После начала вы получите рабочую тетрадь с двенадцатью рабочими листами. На следующем рисунке показано, как выглядит результат:
Если вы хотите использовать другие названия вместо названий месяцев, адаптируйте названия в присвоении значения переменной «Names».
Совет: Если вы хотите узнать, как вводить и запускать макросы в Excel, вы найдете здесь краткое описание: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
