Мне нужно ввести текущий год в заголовок и добавить название листа в качестве дня (например, 2/[Tab]/[YYYY]). Это возможно? Я знаю, что опция « Вставить дату» помещает динамическую дату в заголовок, но мне нужно иметь возможность контролировать месяц вручную, если это возможно.

Любые предложения будут ценны.

|источник

1 ответ1

0

Это можно сделать с помощью VBA.

Сначала введите приведенную ниже формулу в CELL A1 , ее можно изменить на любую ячейку, которую вы хотите, просто убедитесь, что вы изменили контрольную точку в части макроса.

=DAY(TODAY())&"/"&MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,255)&"/"&YEAR(TODAY())

Это создаст вашу динамическую комбинацию даты и имени листа.

Затем поместите ниже в модуль:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterHeader = Range("A1").Value
End Sub

Он возьмет комбо даты и установит его в заголовок перед печатью.

Оно также должно вступить в силу перед просмотром предварительного просмотра.

|источник

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .