Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як вставити номер сторінки в комірку / верхній / нижній колонтитул в 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 для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

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

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

 

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    onyx.lai@gmail.com · 2 years ago
    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?
  • To post as a guest, your comment is unpublished.
    Onyx · 2 years ago
    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.
  • To post as a guest, your comment is unpublished.
    wep.edelweiss@gmail.com · 3 years ago
    terima kasih, kawan
  • To post as a guest, your comment is unpublished.
    madeleiniscg@gmail.com · 3 years ago
    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
  • To post as a guest, your comment is unpublished.
    Jim · 4 years ago
    I tried the VBA macro, but I'm getting a subscript out of range error... Did I do something wrong?
  • To post as a guest, your comment is unpublished.
    Antoinette Anderson · 5 years ago
    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