Як вставити номер сторінки в комірку / верхній / нижній колонтитул в Excel?
Під час друку файлу Excel вам може знадобитися вставити номери сторінок на сторінки, щоб зробити надрукований файл акуратно та зручно. У цій статті я представив кілька швидких прийомів, щоб вставити номери сторінок у клітинку, верхній або нижній колонтитул для вас.
Вставте номер сторінки у верхній / нижній колонтитул на одному аркуші
Вставте номер сторінки у верхній / нижній колонтитул на декількох аркушах
Вставте номер сторінки в комірку з кодом VBA
Видаліть усі номери сторінок одночасно в Excel
Вставте номер сторінки у верхній / нижній колонтитул на одному аркуші
Зазвичай ми можемо швидко вставити номери сторінок у верхній або нижній колонтитул, використовуючи Верхній та нижній колонтитули функцію, будь ласка, виконайте наступне:
1. Перейдіть до аркуша, до якого потрібно вставити номери сторінок у верхній або нижній колонтитул.
2. Потім натисніть Insert > Верхній та нижній колонтитули, і ваш аркуш буде в макет сторінки перегляд, див. скріншот:
3. Клацніть на верхній або нижній колонтитул, куди потрібно вставити номер сторінки, а потім a дизайн вкладку з Інструменти верхнього та нижнього колонтитулів відображається на стрічці, а потім натисніть дизайн > Номер сторінки, див. скріншот:
4. І ви можете побачити заповнювач & [Сторінка] відображаються у вибраному розділі, а потім клацніть будь-де за межами верхнього або нижнього колонтитула, щоб відобразити номери сторінок. Дивіться знімок екрана:
5. Тепер ви можете повернутися до звичайного вигляду, натиснувши вид > нормальний, і коли ви надрукуєте цей аркуш, ви побачите, що номери сторінок були вставлені у вибраний верхній або нижній колонтитул.
примітки: Якщо ви хочете, щоб номери сторінок відображалися у форматі 1 з 15, 2 з 15, вам потрібно просто ввести це & [Сторінка] з & [Сторінки] у полі верхнього або нижнього колонтитула див. знімок екрана:
Вставте номер сторінки у верхній / нижній колонтитул на декількох аркушах
Вищевказаний спосіб може допомогти вам вставити номери сторінок на один аркуш, якщо ви хочете вставити номери сторінок на всі аркуші книги, щоб усі сторінки були нумеровані в послідовному порядку, зробіть так:
1. Виділіть усі вкладки аркуша, а потім перейдіть до макет сторінки та натисніть Кнопка запуску діалогового вікна значок в Параметри сторінки група, див. знімок екрана:
2, в Параметри сторінки діалогове вікно, натисніть Верхній / нижній колонтитул вкладку, а потім натисніть кнопку Спеціальний заголовок or Користувацький нижній колонтитул щоб перейти до встановлення потрібного верхнього або нижнього колонтитула, див. знімок екрана:
3. І в Header or Нижній колонтитул діалоговому вікні, будь ласка, визначте місце, куди вставляються номери сторінок, клацнувши всередині Лівий розділ:, Центральний розділ:або Правий розділ: як потрібно, а потім клацніть Вставити номер сторінки піктограми та заповнювача & [Сторінка] з'являється. Дивіться знімок екрана:
Примітка: Введіть це & [Сторінка] з & [Сторінки] у поле верхнього або нижнього колонтитула, якщо вам подобаються номери сторінок, що відображаються як 1 з 45, 2 з 45 ...
4. Потім натисніть OK > OK щоб закрити діалогові вікна, під час друку цієї книги в попередньому перегляді друку ви можете побачити, що всі номери сторінок вставляються в верхній або нижній колонтитули в послідовному порядку.
Вставте номер сторінки в комірку з кодом VBA
Вам легко вставити номери сторінок у верхній або нижній колонтитул, але, якщо вам потрібно вставити номери сторінок у комірку робочого аркуша, прямого способу для цього у вас немає. Наступний код VBA може допомогти вам вирішити цю проблему.
1. Клацніть клітинку, де потрібно відобразити номер сторінки цієї комірки.
2. Утримуйте клавішу ALT + F11 і відкриває Microsoft Visual Basic для додатків вікна.
3. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно
Код VBA: Вставте номер поточної сторінки в комірку:
Sub pagenumber()
'updateby Extendoffice 20160506
Dim xVPC As Integer
Dim xHPC As Integer
Dim xVPB As VPageBreak
Dim xHPB As HPageBreak
Dim xNumPage As Integer
xHPC = 1
xVPC = 1
If ActiveSheet.PageSetup.Order = xlDownThenOver Then
xHPC = ActiveSheet.HPageBreaks.Count + 1
Else
xVPC = ActiveSheet.VPageBreaks.Count + 1
End If
xNumPage = 1
For Each xVPB In ActiveSheet.VPageBreaks
If xVPB.Location.Column > ActiveCell.Column Then Exit For
xNumPage = xNumPage + xHPC
Next
For Each xHPB In ActiveSheet.HPageBreaks
If xHPB.Location.Row > ActiveCell.Row Then Exit For
xNumPage = xNumPage + xVPC
Next
ActiveCell = "Page " & xNumPage & " of " & Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub
4. Потім натисніть F5 клавішу для запуску цього коду, а номер сторінки цієї комірки відображається у вибраній комірці, див. знімок екрана:
Видаліть усі номери сторінок одночасно в Excel
Щоб видалити всі номери сторінок, можна застосувати такі дії:
1. Виділіть усі вкладки аркуша та перейдіть до макет сторінки на стрічці, а потім натисніть Кнопка запуску діалогового вікна значок в Параметри сторінки група, див. знімок екрана:
2, в Параметри сторінки діалогове вікно натисніть кнопку Верхній / нижній колонтитул , а потім виберіть (Ні) від Header or Нижній колонтитул випадаючий список, див. знімок екрана:
3. Потім натисніть OK кнопку, усі номери сторінок видаляються з книги відразу.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools for Excel, і відчуйте ефективність, як ніколи раніше. Kutools for Excel Пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Office Tab Надає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
