Как добавить новый лист с текущей датой в 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?
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек