У програмі Excel існує можливість розмістити заголовки на початку кожної сторінки. Це надзвичайно корисно, коли ви переглядаєте звіти.
Коли ви готуєте свій звіт і на другій та всіх подальших сторінках відсутні заголовки, процес його перегляду стає схожим на гру «вгадай».
Ми здатні це виправити. У цій статті ми обговоримо способи розміщення заголовків на всіх сторінках.
Отже, розпочнемо!
Розміщуємо заголовок на всіх сторінках
Припустімо, у нас є ось така таблиця:
Заголовок з’явиться лише на першій сторінці під час її друку.
Як забезпечити присутність заголовка на всіх сторінках?
Інструкція поетапно:
- Оберіть «Розмітка сторінки»;
- Виберіть стрілку, що вказує вниз, у секції «Налаштування сторінки»;
1. У вікні, яке з’явилося, натисніть на «Лист».
Ви маєте можливість обрати, які з рядків або стовпчиків хочете зафіксувати як заголовки.
- Задайте межі заголовків;
- Продовжте, будь ласка.
Завершено! Заголовки з’являться на кожній сторінці.
Ми можемо провести цю перевірку. Відкриймо друковану версію.
Перейдіть на інші сторінки та перевірте, чи з’явилися на них заголовки.
До того ж, є можливість умістити в заголовок декілька рядків або колонок.
Особливість поля «Ім’я»
Цей метод відомий небагатьом.
Маємо таблицю такого вигляду:
Інструкція поетапно:
- Відзначимо те, що плануємо оформити як заголовок;
- Натисніть на сектор «Ім’я»;
- Призначимо для цього іменованого діапазону таку назву;
- Ми підтверджуємо це.
Усе зроблено! Вихідний результат залишився таким самим, як і в попередньому методі.
Яким чином це відбулося?
Річ у тім, що діапазон Print_Titles є технічним діапазоном заголовків. У попередньому методі програма автоматично додавала туди вказані нами дані. Натомість у новому методі ми виконали це вручну.
Де та як розмістити заголовок на всіх сторінках, окрім останньої?
На жаль, мушу вас розчарувати – в Excel на цей момент немає такого функціоналу.
Можна вчинити так: перенести останні сторінки на окремий аркуш.
Проте це явно не для кожного.
Проте існує відповідний код на Visual Basic:
Sub ДрукЗаголовківБезОстанньоїСторінки()
Dim КількістьСторінок As Long
КількістьСторінок = Application.ExecuteExcel4Macro(“GET.DOCUMENT(50)”)
With ActiveSheet.PageSetup
.PrintTitleRows = “$1:$1”
ActiveSheet.PrintOut From:=1, To:=КількістьСторінок – 1
.PrintTitleRows = “”
ActiveSheet.PrintOut From:=КількістьСторінок, To:=КількістьСторінок
End With
End Sub
Якщо розглянути код уважно, можна помітити, що він має певні недоліки. Проте, незалежно від цього, він виконує свої функції.
У разі, якщо ви шукаєте щось оригінальне, наприклад, декілька заголовків, вам знадобиться внести зміни в цей код.
І це все! Ми проаналізували три способи включення заголовків на кожну окрему сторінку!
Сподіваюся, що ця стаття була для вас корисною!
