Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как вставить номер страницы в ячейку / верхний колонтитул в Excel?

Когда вы печатаете файл Excel, вам может потребоваться вставить номера страниц на страницы, чтобы сделать напечатанный файл аккуратно и с готовностью. В этой статье я расскажу о некоторых быстрых трюках, чтобы вставить номера страниц в ячейку, верхний или нижний колонтитул для вас.

Вставьте номер страницы в верхний / нижний колонтитул в один рабочий лист

Вставьте номер страницы в верхний / нижний колонтитул на нескольких листах

Вставьте номер страницы в ячейку с кодом VBA

Удалить все номера страниц сразу в Excel


Вставьте имя листа / имя файла / созданную дату / дату изменения ... в заголовок / нижний колонтитул / ячейку:

Kutools for ExcelАвтора Вставить информацию о книге вы можете быстро вставить имя листа, имя файла, путь и имя файла, дату создания, дату изменения и сына в ячейку, верхний или нижний колонтитул по мере необходимости. Загрузите и бесплатно трейлер Kutools для Excel прямо сейчас!

doc введите номера страниц 11-11

Kutools for Excel: с более чем 200 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни. Скачать и бесплатно пробную версию!


arrow синий правый пузырь Вставьте номер страницы в верхний / нижний колонтитул в один рабочий лист


Обычно мы можем быстро вставлять номера страниц в верхний или нижний колонтитулы, используя Заголовок и Footer выполните следующие действия:

1, Перейдите на рабочий лист, который вы хотите вставить номера страниц в верхний или нижний колонтитул.

2, Затем нажмите Вставить > Заголовок и Footer, и ваш рабочий лист будет Макет страницы просмотр, см. снимок экрана:

doc вставить номера страниц 1

3, Нажмите верхний или нижний колонтитул, в который вы хотите вставить номер страницы, а затем Дизайн вкладка с Верхние и нижние колонтитулы отображается в ленте, затем нажмите Дизайн > Номер страницы, см. снимок экрана:

doc вставить номера страниц 2

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

doc вставить номера страниц 3

5, Теперь вы можете вернуться к нормальному виду, нажав Вид > Нормальный, и когда вы распечатаете этот рабочий лист, вы увидите, что номера страниц были вставлены в выбранный вами верхний или нижний колонтитул.

Внимание: Если вы хотите, чтобы номера страниц отображались как 1 15, 2 формата 15, вам просто нужно просто ввести это & [Страница] of & [Pages] в поле поля заголовка или нижнего колонтитула, см. снимок экрана:

doc вставить номера страниц 4


arrow синий правый пузырь Вставьте номер страницы в верхний / нижний колонтитул на нескольких листах

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

1. Выберите все вкладки листа, затем перейдите к Макет страницы вкладку и нажмите Кнопка запуска диалогового окна значок в Параметры страницы группа, см. снимок экрана:

doc вставить номера страниц 5

2. В Параметры страницы диалогового окна, нажмите Верхний / нижний колонтитул Вкладка, а затем нажмите кнопку Пользовательский заголовок or Пользовательские Подвал чтобы перейти к настройке верхнего или нижнего колонтитула, см. скриншот:

doc вставить номера страниц 6

3. И в заголовок or нижний колонтитул диалоговое окно, укажите местоположение, в которое вставлены номера страниц, щелкнув внутри Левая часть:, Секция центра: или Правый раздел: по мере необходимости, а затем нажмите Вставить номер страницы значок и заполнитель & [Страница] появляется. Смотрите скриншот:

doc вставить номера страниц 7

Примечание: Введите это & [Страница] of & [Pages] в поле поля заголовка или нижнего колонтитула, если вам нравятся номера страниц, отображаемые как 1 45, 2 45 ...

4. Затем нажмите OK > OK для закрытия диалоговых окон при печати этой книги в предварительном просмотре печати вы можете видеть, что все номера страниц вставляются в верхний или нижний колонтитулы в последовательном порядке.


arrow синий правый пузырь Вставьте номер страницы в ячейку с кодом VBA

Вам легко вставить номера страниц в верхний или нижний колонтитул, но если вам нужно вставить номера страниц в ячейку рабочего листа, для вас нет прямого способа сделать это. Следующий код VBA может помочь вам решить эту проблему.

1, Щелкните ячейку, в которой вы хотите отобразить номер страницы этой ячейки.

2, Удерживайте ALT + F11 и открывает Microsoft Visual Basic для приложений окна.

3. Щелчок Вставить > модуль, и вставьте следующий код в модуль Окно.

Код 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


arrow синий правый пузырь Удалить все номера страниц сразу в Excel

Чтобы удалить все номера страниц, вы можете применить следующие шаги:

1, Выберите все вкладки листа и перейдите к Макет страницы на ленте, затем нажмите Кнопка запуска диалогового окна значок в Параметры страницы группа, см. снимок экрана:

doc вставить номера страниц 9

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

doc вставить номера страниц 10

3. Затем нажмите OK , все номера страниц удаляются из рабочей книги одновременно.


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более чем мощные функции 300, Работает с Office 2007-2019 и 365. Поддерживает все языки. Простота развертывания в компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905

Вкладка «Office» предоставляет интерфейс с вкладками для Office и упрощает работу

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса

Say something here...
symbols left.
You are guest ( Sign Up? )
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 · 9 months 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 · 9 months 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 Channel · 11 months ago
    terima kasih, kawan
  • To post as a guest, your comment is unpublished.
    Made Made · 1 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 · 2 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 · 3 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