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

Некоторые финансовые специалисты и сотрудники отдела продаж могут нуждаться в ежедневном создании нового листа с текущей датой для статистики повседневной работы. Если вы вставляете новый лист, а затем переименовываете его вручную, это может быть утомительно. Сегодня я представлю вам несколько быстрых способов решения этой проблемы.

Добавление нового листа с текущей датой с помощью кода VBA

Добавление новых листов с последовательной датой с использованием Kutools для Excel

Добавление нового листа с текущей датой с помощью кода VBA

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

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Щелкните Вставить > Модуль и вставьте следующий макрос в окно Модуля.

Код VBA: Добавление нового листа с текущей датой

Sub AddSheets_TodayDate()
'Updateby20140717
    Dim szTodayDate As String
    szTodayDate = Format(Date, "mmm-dd-yyyy")
    On Error GoTo MakeSheet
    Sheets(szTodayDate).Activate
    Exit Sub
MakeSheet:
    Sheets.Add , Worksheets(Worksheets.Count)
    ActiveSheet.Name = szTodayDate
End Sub

3. Затем нажмите клавишу F5, чтобы запустить этот код, и новый лист с сегодняшней датой будет добавлен после существующих листов. См. скриншот:

Примечание: При сохранении и закрытии этой книги сохраните её в формате Книга Excel с поддержкой макросов, нажав Файл > Сохранить как. А при следующем запуске книги обязательно нажмите Разрешить содержимое, чтобы успешно запустить код для добавления нового листа с датой.

Добавление новых листов с последовательной датой с использованием Kutools для Excel

Указанный выше код может помочь вам вставить только один лист с текущей датой за раз. Если вы хотите вставить несколько листов с последовательной датой, эта функция Создать последовательность листов из Kutools для Excel окажет вам помощь.

Kutools для Excel включает более 300 удобных инструментов для Excel. Бесплатная пробная версия без ограничений на 30 дней. Получите прямо сейчас.

Если вы установили Kutools для Excel, выполните следующие действия:

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

2. Затем щелкните Kutools Plus > Лист > Создать последовательность листов.

3. В диалоговом окне Создать последовательность листов укажите лист, на основе которого должны быть созданы новые листы, выбрав его из выпадающего списка На основе листа. Затем выберите опцию Данные в выделенном диапазоне в разделе Имя листа на основе, чтобы выбрать диапазон данных, который вы хотите использовать в качестве имен листов. См. скриншот:

4. Затем нажмите OK, и будет создана новая книга с именами листов в виде последовательности дат. См. скриншот:

Чтобы узнать больше об этой функции Создать последовательность листов.

Связанная статья:

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