У меня есть ежедневная форма задания на 1 страницу, которую нужно заполнять каждый день. Я хотел бы распечатать весь месячный запас, динамически изменяя поле даты и перепечатывая каждую дату во всем диапазоне
| A | B | --|--------------|------------| 1 | Date | 10/01/2018 | 2 | Clean Dishes | __________ | 3 | Clean Litter | __________ | 4 | Clean Floor | __________ | Прямо сейчас я просто перетаскиваю всю страницу вниз 31 раз и печатаю каждую дату отдельно, но это неправильно.
Есть ли способ сделать это, может быть, с помощью макросов, заголовков или слияния?
Не нашел ответов здесь:
Быстрое макро решение. Измените даты начала и окончания в коде.
Sub PrintAllDates() Application.ScreenUpdating = False Dim printDate As Date Dim startDate As Date Dim endDate As Date startDate = "10/01/2018" endDate = "10/31/2018" For printDate = startDate To endDate ActiveSheet.Range("B1") = printDate ActiveSheet.PrintOut Next Application.ScreenUpdating = True End Sub