Я хотел бы вставить порядковый номер страницы по всей книге (есть два рабочих листов в книгеExcel VBA - Как вставить последовательный номер страницы
Вот мой код, чтобы вставить номера страниц:
ActiveWorkbook.Worksheets("Appendix A").PageSetup.CenterFooter = "&P of &N"
ActiveWorkbook.Worksheets("Summary").PageSetup.CenterFooter = "&P of &N"
Если вы имеете в виду вы хотите написать индекс текущего листа из всего количества листов в вашем ActiveWorkbook, то используйте следующий код:
ActiveWorkbook.Worksheets("Appendix A").PageSetup.CenterFooter = "Page " & ActiveWorkbook.Worksheets("Appendix A").Index & " of " & ActiveWorkbook.Sheets.Count
ActiveWorkbook.Worksheets("Summary").PageSetup.CenterFooter = "Page " & ActiveWorkbook.Worksheets("Summary").Index & " of " & ActiveWorkbook.Sheets.Count
дайте мне знать, если то, что вы хотите это я n мой ответ ниже –
Следующая строка кода VBA даст вам количество страниц для листа (на основе текущей настройки страницы. 'ThisWorkbook.Worksheets (1) .PageSetup.Pages.Count 'Тем не менее, если пользователь меняет настройку страницы непосредственно перед печатью, вам не повезло. Поэтому я предлагаю вам полностью управлять печатью, предлагая кнопку печати. – Ralph
@Flower_Dance вы проверили его? –