Как создать новую книгу с определенным количеством листов?

Обычно, когда вы создаете новую книгу, по умолчанию она будет включать три листа в Excel 2007/2010 или один лист в Excel 2013. Позже вы можете добавлять или удалять вкладки по своему усмотрению. Но пробовали ли вы когда-нибудь создавать новую книгу с определенным количеством листов каждый раз, когда вам нужно?

Создать новую книгу с определенным количеством листов с помощью кода VBA

Создайте новую книгу с определенным количеством листов с помощью Kutools for Excel

---

Создать новую книгу с определенным количеством листов с помощью кода VBA

Вы можете использовать следующий код VBA для создания новой книги, содержащей определенное количество вкладок.

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код VBA: создать новую книгу с определенным количеством листов

Sub MakeWorkbook()
'update Extendoffice
    Dim xOldCount As Integer
    Dim xNewCount As Variant
    xOldCount = Application.SheetsInNewWorkbook
    xNewCount = Application.InputBox("How many sheets in the new workbook do you want?", "Kutools for Excel", , , , , , 1)
    If xNewCount = False Then Exit Sub
    If (xNewCount < 1) Or (CLng(xNewCount) > 255) Then
        MsgBox "The number must between 1 and 255!"
        Exit Sub
    End If
    With Application
        .SheetsInNewWorkbook = xNewCount
        .Workbooks.Add
        .SheetsInNewWorkbook = xNewCount
    End With
End Sub

3. После вставки кода нажмите F5 ключ для запуска этого кода, и в поле подсказки введите количество листов, которое вы хотите в книге, см. снимок экрана:

4. Затем нажмите OK кнопка, новая книга создана с указанным количеством листов, которые вам нужны.

---

Создайте новую книгу с определенным количеством листов с помощью Kutools for Excel

Если вы не знакомы с кодом VBA, вы можете применить удобный инструмент - Kutools for Excel, С его Создать рабочие листы последовательностей Утилита, вы можете быстро создать новую книгу с именами листов по умолчанию, именами настраиваемых листов и т. д.

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней.

Перейти к загрузке Бесплатная пробная версия 30 днейпокупка PayPal / Моя коммерция

После установки Kutools for Excel, пожалуйста, сделайте следующее:

1. Нажмите Предприятие > Рабочий лист > Создать рабочий лист последовательности, см. снимок экрана:

3. Затем нажмите OK , и будет создана новая книга с указанным вами количеством листов.

Нажмите, чтобы узнать больше об этой утилите Create Sequence Worksheet…

Бесплатная загрузка Kutools для Excel сейчас

---

Статьи по теме:

Как создать рабочие листы последовательности из диапазона ячеек в Excel?

Как добавить новый лист с текущей датой в Excel?