Используйте макрос VBA для создания новой книги, содержащей ровно столько листов, сколько вам нужно.
Во многих макросах должны создаваться новые книги, которые, например, заполняются определенным содержимым. Здесь важная задача - создать новую книгу Excel, содержащую ровно столько таблиц, сколько вам нужно.
Следующий макрос выполняет эту работу. Он создает новую книгу, содержащую 31 лист, пронумерованные от 1 до 31. Вот соответствующие команды VBA:
Sub FuegeTabellenEin ()
Тусклое число как целое число
Dim i как целое число
Dim Mappe как рабочая тетрадь
Число = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 31
Установить папку = Рабочие книги. Добавить
Для i = 1 в Mappe.Worksheets.Count
Folder.Worksheets (i) .Name = i
Далее я
Application.SheetsInNewWorkbook = число
Конец подписки
При запуске Excel отображает новую книгу, содержащую 31 лист. На следующем рисунке показано, как это выглядит в регистре листов:
В макросе вы указываете количество листов, которое хотите, используя число 31. Измените это число, если вы хотите, чтобы в книге было меньше или больше листов.
Чтобы ввести макрос, нажмите ALT F11 в Excel, чтобы открыть редактор VBA. Используйте команду ВСТАВИТЬ - МОДУЛЬ, чтобы вставить пустой лист модуля. Чтобы запустить макрос прямо из Excel, используйте комбинацию клавиш ALT F8.
