Як застосувати різні колонтитули на кожній сторінці електронної таблиці Excel?
За замовчуванням під час вставлення колонтитула на аркуш вміст колонтитула буде застосовано до всіх сторінок. Для багатьох людей різні аркуші можуть мати різний вміст на своїх робочих аркушах. І вони схильні розрізняти ці сторінки за вмістом верхнього або нижнього колонтитулів після роздрукування робочого аркуша. Як застосувати різні колонтитули до кожної сторінки на аркуші? Метод у цій статті може вам допомогти.
Застосовуйте різні колонтитули на кожній сторінці з кодом VBA
Застосовуйте різні колонтитули на кожній сторінці з кодом VBA
Наступний код VBA може допомогти вам застосувати різні колонтитули на кожній сторінці аркуша. Будь ласка, виконайте наступне.
1 Натисніть кнопку інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для програмивікно.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте та вставте наведений нижче код 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% та зменшує сотні клацань миші для вас щодня!