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

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

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

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

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

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

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

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

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

2. Затем нажмите Вставить > Верхний и нижний колонтитулы, и ваш лист перейдет в режим Разметка страницы. Смотрите скриншот:

3. Щелкните по верхнему или нижнему колонтитулу, куда вы хотите вставить номер страницы, и отобразится вкладка Конструктор с инструментами Верхний и нижний колонтитулы на Ленте. Затем нажмите Конструктор > Номер страницы. Смотрите скриншот:

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

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

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

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

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

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

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

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

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

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

Вставка номера страницы в ячейку с помощью кода 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, чтобы запустить этот код, и номер страницы этой ячейки отобразится в выбранной ячейке. Смотрите скриншот:

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

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

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

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

3. Затем нажмите кнопку ОК, и все номера страниц будут удалены из книги одновременно.