Перейти до основного матеріалу

Як вставити номер сторінки в комірку / верхній / нижній колонтитул в Excel?

Під час друку файлу Excel вам може знадобитися вставити номери сторінок на сторінки, щоб зробити надрукований файл акуратно та зручно. У цій статті я представив кілька швидких прийомів, щоб вставити номери сторінок у клітинку, верхній або нижній колонтитул для вас.

Вставте номер сторінки у верхній / нижній колонтитул на одному аркуші

Вставте номер сторінки у верхній / нижній колонтитул на декількох аркушах

Вставте номер сторінки в комірку з кодом VBA

Видаліть усі номери сторінок одночасно в Excel


стрілка синя права міхур Вставте номер сторінки у верхній / нижній колонтитул на одному аркуші

Зазвичай ми можемо швидко вставити номери сторінок у верхній або нижній колонтитул, використовуючи Верхній та нижній колонтитули функцію, будь ласка, виконайте наступне:

1. Перейдіть до аркуша, до якого потрібно вставити номери сторінок у верхній або нижній колонтитул.

2. Потім натисніть Insert > Верхній та нижній колонтитули, і ваш аркуш буде в макет сторінки перегляд, див. скріншот:

doc вставити номери сторінок 1

3. Клацніть на верхній або нижній колонтитул, куди потрібно вставити номер сторінки, а потім a дизайн вкладку з Інструменти верхнього та нижнього колонтитулів відображається на стрічці, а потім натисніть дизайн > Номер сторінки, див. скріншот:

doc вставити номери сторінок 2

4. І ви можете побачити заповнювач & [Сторінка] відображаються у вибраному розділі, а потім клацніть будь-де за межами верхнього або нижнього колонтитула, щоб відобразити номери сторінок. Дивіться знімок екрана:

doc вставити номери сторінок 3

5. Тепер ви можете повернутися до звичайного вигляду, натиснувши вид > нормальний, і коли ви надрукуєте цей аркуш, ви побачите, що номери сторінок були вставлені у вибраний верхній або нижній колонтитул.

примітки: Якщо ви хочете, щоб номери сторінок відображалися у форматі 1 з 15, 2 з 15, вам потрібно просто ввести це & [Сторінка] з & [Сторінки] у полі верхнього або нижнього колонтитула див. знімок екрана:

doc вставити номери сторінок 4


стрілка синя права міхур Вставте номер сторінки у верхній / нижній колонтитул на декількох аркушах

Вищевказаний спосіб може допомогти вам вставити номери сторінок на один аркуш, якщо ви хочете вставити номери сторінок на всі аркуші книги, щоб усі сторінки були нумеровані в послідовному порядку, зробіть так:

1. Виділіть усі вкладки аркуша, а потім перейдіть до макет сторінки та натисніть Кнопка запуску діалогового вікна значок в Параметри сторінки група, див. знімок екрана:

doc вставити номери сторінок 5

2, в Параметри сторінки діалогове вікно, натисніть Верхній / нижній колонтитул вкладку, а потім натисніть кнопку Спеціальний заголовок or Користувацький нижній колонтитул щоб перейти до встановлення потрібного верхнього або нижнього колонтитула, див. знімок екрана:

doc вставити номери сторінок 6

3. І в Header or Нижній колонтитул діалоговому вікні, будь ласка, визначте місце, куди вставляються номери сторінок, клацнувши всередині Лівий розділ:, Центральний розділ:або Правий розділ: як потрібно, а потім клацніть Вставити номер сторінки піктограми та заповнювача & [Сторінка] з'являється. Дивіться знімок екрана:

doc вставити номери сторінок 7

Примітка: Введіть це & [Сторінка] з & [Сторінки] у поле верхнього або нижнього колонтитула, якщо вам подобаються номери сторінок, що відображаються як 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 клавішу для запуску цього коду, а номер сторінки цієї комірки відображається у вибраній комірці, див. знімок екрана:

doc вставити номери сторінок 8


стрілка синя права міхур Видаліть усі номери сторінок одночасно в Excel

Щоб видалити всі номери сторінок, можна застосувати такі дії:

1. Виділіть усі вкладки аркуша та перейдіть до макет сторінки на стрічці, а потім натисніть Кнопка запуску діалогового вікна значок в Параметри сторінки група, див. знімок екрана:

doc вставити номери сторінок 9

2, в Параметри сторінки діалогове вікно натисніть кнопку Верхній / нижній колонтитул , а потім виберіть (Ні) від Header or Нижній колонтитул випадаючий список, див. знімок екрана:

doc вставити номери сторінок 10

3. Потім натисніть OK кнопку, усі номери сторінок видаляються з книги відразу.

Найкращі інструменти продуктивності офісу

🤖 Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

 

Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hay forma de convertir esta sub en una función?
This comment was minimized by the moderator on the site
Hola,el codigo si me funciono, sin embargo al momento de imprimir, siempre me sale 1 de 5 y es que mi encabezado lo tengo como área de impresión en todas mis paginas, ¿hay alguna forma de lograr que al momento de imprimir, se pueda cambiar la pagina, en la misma pestaña?
This comment was minimized by the moderator on the site
May I know how I should modify above VBA that allows me to execute this to range of cells on a workbook and with 1 short cut key to apply all selected cells?
This comment was minimized by the moderator on the site
May I know if I have range of cells that I want to put in page numbers, what should I change? The current VBA only allows me to change one by one.
This comment was minimized by the moderator on the site
terima kasih, kawan
This comment was minimized by the moderator on the site
Hola, hay un error en la formula porque cuando ejecuto (F5) el primer valor numérico de "Pagina XX de XX" no cambia. Solo hace el conteo de páginas el segundo valor. Podrian revisar... Gracias
This comment was minimized by the moderator on the site
I tried the VBA macro, but I'm getting a subscript out of range error... Did I do something wrong?
This comment was minimized by the moderator on the site
Hello I used the Insert page number into cell with VBA code above and it works a charm. My sheet could be either 2 pages long (2 down and 1 across), 4 pages long (2 down and 2 across) or 6 pages long (2 down and 3 across). I have inserted the code in each cell of the 6 that require page number to be printed (by selecting the cells each in turn and running the VBA), cell addresses are H1, H35, T1, T35, AF1, AF35. Now I would like to add a button to refresh these page numbers without affecting whichever cell may be active when the relevant user may choose to run it, currently I have to select each cell in turn again and run the VBA :( Assistance would be hugely appreciated! Antoinette
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations