Как да приложите различни горни или долни колонтитули на всяка страница в електронна таблица на Excel?
По подразбиране, когато вмъквате горен или долен колонтитул в работен лист, съдържанието на горния или долния колонтитул ще бъде приложено към всички страници. За много хора различните страници може да имат различно съдържание в работните си листове. И те са склонни да разграничават тези страници със съдържанието на горния или долния колонтитул, след като отпечатат работния лист. Как да приложите различни горни или долни колонтитули на всяка страница на работен лист? Методът в тази статия може да ви помогне.
Приложете различни горни или долни колонтитули на всяка страница с VBA код
Приложете различни горни или долни колонтитули на всяка страница с VBA код
Следният VBA код може да ви помогне да приложите различни горни или долни колонтитули на всяка страница от работен лист. Моля, направете следното.
1. Натисни Друг + F11 клавиши едновременно, за да отворите Microsoft Visual Basic за приложениеs прозорец.
2. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули. След това копирайте и поставете долния VBA код в код прозорец. Вижте екранна снимка:
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 ключ за изпълнение на кода. Тогава Предварителен преглед изскача прозорец, моля щракнете върху Изпринти бутон, за да започнете да печатате страниците с различни горни или долни колонтитули.
Забележка: Ако има 4 посочени отпечатани страници в работния лист, трябва да щракнете върху Изпринти четири пъти, за да завършите целия печат.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!