Как применить разные верхние или нижние колонтитулы на каждой странице электронной таблицы Excel?
По умолчанию при вставке верхнего или нижнего колонтитула в рабочий лист содержимое верхнего или нижнего колонтитула будет применено ко всем страницам. Для многих людей разные страницы могут иметь разное содержимое в своих таблицах. И они имеют тенденцию различать эти страницы с содержимым верхнего или нижнего колонтитула после распечатки рабочего листа. Как применить разные верхние или нижние колонтитулы на каждой странице рабочего листа? Метод, описанный в этой статье, может вам помочь.
Применяйте разные верхние или нижние колонтитулы на каждой странице с кодом VBA
Применяйте разные верхние или нижние колонтитулы на каждой странице с кодом VBA
Следующий код VBA может помочь вам применить разные верхние или нижние колонтитулы на каждой странице рабочего листа. Пожалуйста, сделайте следующее.
1. нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложенийокно s.
2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте и вставьте приведенный ниже код VBA в Code окно. Смотрите скриншот:
Код VBA: применение разных заголовков на каждой странице в Excel
Sub DifferentHeaderFooter()
Dim ws As Worksheet
Dim vLeft As Variant, vRight As Variant, xRg As Variant
Set ws = ActiveSheet
On Error Resume Next
vLeft = Array("First page", "Second page", "Third page", "fourth page")
xRg = Array("A1:C50", "A51:C100", "A101:C150", "A151:C200")
Application.ScreenUpdating = False
For i = 0 To UBound(vLeft)
With ws.PageSetup
.PrintArea = xRg(i)
.LeftHeader = vLeft(i)
End With
ws.PrintPreview
Next i
Application.ScreenUpdating = True
ws.PageSetup.PrintArea = ""
End Sub
Заметки:
3. нажмите F5 ключ для запуска кода. Тогда предварительный просмотр всплывает окно, нажмите Печать / PDF кнопку, чтобы начать печать страниц с разными верхними или нижними колонтитулами.
Внимание: Если на листе 4 заданных печатных страницы, вам нужно щелкнуть Печать / PDF нажмите кнопку четыре раза, чтобы завершить всю печать.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!