Как добавить новый лист с текущей датой в Excel?
Некоторым сотрудникам финансовых и торговых отделов может потребоваться ежедневно вставлять Новый лист с текущей датой для статистики по повседневной работе. Если вы вставляете Новый лист, а затем переименовываете его вручную, это становится утомительным. Сегодня я покажу вам несколько быстрых приёмов для решения этой задачи.
Добавление Новый лист с текущей датой с помощью кода VBA
Добавление Новый лист с последовательными датами с использованием Kutools для 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 с поддержкой макросов, нажав Файл > Сохранить как. При открытии книги на следующий день обязательно нажмите Включить содержимое, чтобы успешно запустить код и добавить новый лист с датой.
Добавление Новый лист с последовательными датами с использованием Kutools для Excel
Приведённый выше код позволяет добавлять только один лист с датой текущего дня за раз. Если же вам нужно сразу создать несколько листов с последовательными датами, функция Создать последовательность листов из Kutools для Excel значительно облегчит эту задачу.
Kutools для Excel включает более 300 удобных инструментов для Excel. Бесплатная пробная версия без ограничений на 30 дней. Попробовать сейчас.
Если вы уже установили Kutools для Excel, выполните следующие действия:
1. Введите сегодняшнюю дату в любую пустую ячейку, а затем перетащите маркер заполнения, чтобы автоматически заполнить ячейки нужной последовательностью дат.
2. Затем нажмите KUTOOLS PLUS > Лист > Создать последовательность листов.
3. В диалоговом окне Создать последовательность листов укажите лист, на основе которого вы хотите создать новые, в раскрывающемся списке На основе листа. Затем выберите опцию Данные в выделенном диапазоне в разделе Имя листа на основе, чтобы задать диапазон ячеек, который будет использоваться в качестве имён листов. См. снимок экрана:
4. Нажмите кнопку ОК, и будет создана новая рабочая книга с именами листов в виде последовательности дат. См. снимок экрана:
Подробнее о функции «Создать последовательность листов».
См. также:
Как создать последовательность листов на основе диапазона ячеек в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек