Как вставить таблицы на следующие x дней
Вам нужны электронные таблицы с именами, у которых есть дата? Это полезно, например, если вы записываете данные за день и используете отдельный рабочий лист для каждой записи.
Если вы хотите избавить себя от необходимости самостоятельно создавать рабочие листы и добавлять желаемые значения дат, вам может помочь макрос. Следующий макрос определяет количество рабочих листов, которые следуют за текущей датой на основе текущей даты:
Sub FuegeTabellenEin ()
Тусклое число как целое число
Dim i как целое число
Number = InputBox («Сколько листов вставить?»)
Для i = 1 К номеру
Рабочие листы.Добавить после: = Рабочие листы (Worksheets.Count)
Рабочие листы (Worksheets.Count) .Name = Date + i
Далее я
Конец подписки
После запуска макроса Excel покажет вам окно ввода. В этом окне вы можете ввести количество рабочих листов, которые вы хотите создать. На следующем рисунке показано, как выглядит это окно:
Введите здесь желаемое количество листов. Затем, начиная с текущей даты, Excel создает желаемое количество таблиц и предоставляет им текущую дату, дату следующего дня и т. Д. На следующем рисунке показано, как может выглядеть результат:
Совет: Если вы хотите узнать, как вводить и запускать макросы в Excel, вы найдете здесь краткое описание: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
