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

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

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

Добавить новые рабочие листы с последовательной датой с помощью Kutools for Excel

---

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

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

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

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 Macro-Enabled Workbook форматировать, нажав Файл > Сохранить как. И когда вы запустите книгу на следующий день, обязательно нажмите Включить контент, чтобы вы могли успешно запустить код для добавления нового листа даты.

---

Добавить новые рабочие листы с последовательной датой с помощью Kutools for Excel

Приведенный выше код может помочь вам вставить только один лист с датой текущего дня за раз, если вы хотите вставить несколько листов с последовательной датой, эта утилита Создать рабочие листы последовательностей of Kutools for Excel сделаю вам одолжение.

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

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

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

2. Затем нажмите Предприятие > Инструменты рабочего листа > Создать рабочие листы последовательностей, см. снимок экрана:

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

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

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

---

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

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