Как да вмъкна номер на страница в клетка / горен / долен колонтитул в Excel?
Когато отпечатвате файл на Excel, може да се наложи да вмъкнете номерата на страниците в страниците, за да направите отпечатания файл спретнато и четливо. В тази статия ще ви представя някои бързи трикове за вмъкване на номерата на страници в клетка, горен или долен колонтитул.
Вмъкнете номера на страницата в горен / долен колонтитул в един работен лист
Вмъкнете номер на страница в горен / долен колонтитул в множество работни листове
Вмъкнете номер на страница в клетка с VBA код
Премахнете всички номера на страници наведнъж в Excel
Вмъкнете номера на страницата в горен / долен колонтитул в един работен лист
Обикновено можем бързо да вмъкнем номерата на страниците в горния или долния колонтитул, като използваме Горен колонтитул функция, моля, направете следното:
1. Отидете до работния лист, в който искате да вмъкнете номерата на страниците в горния или долния колонтитул.
2, След това кликнете Поставете > Горен колонтитули вашият работен лист ще бъде вътре Page Layout вижте, вижте екранна снимка:
3. Щракнете върху горния или долния колонтитул, където искате да вмъкнете номера на страницата, и след това a Дизайн раздел с Инструменти за горен и долен колонтитул се показва в лентата, след което щракнете Дизайн > Номер на страницата, вижте екранна снимка:
4. И можете да видите контейнера &[Страница] се появяват в избраната секция, след което щракнете някъде извън областта на горния или долния колонтитул, за да се покажат номерата на страниците. Вижте екранна снимка:
5. Сега можете да се върнете към нормалния изглед, като щракнете Гледка > Нормален, и когато отпечатате този работен лист, ще видите, че номерата на страниците са вмъкнати в горния или долния колонтитул, който сте избрали.
Забележка: Ако искате номерата на страниците да се показват като формат 1 от 15, 2 от 15, просто трябва директно да въведете това &[Страница] от &[Страници] в полето за горен или долен колонтитул, вижте екранната снимка:
Вмъкнете номер на страница в горен / долен колонтитул в множество работни листове
Горният метод може да ви помогне да вмъкнете номерата на страниците в един работен лист, ако искате да вмъкнете номерата на страниците във всички работни листове на работната книга, за да направите всички страници да бъдат номерирани в последователен ред, моля, направете следното:
1. Изберете всички раздели на листа, след което отидете на Page Layout и щракнете върху Бутон за стартиране на диалогов прозорец икона в Page Setup група, вижте екранната снимка:
2. В Page Setup диалогов прозорец, моля щракнете Горен / долен колонтитул , след което щракнете върху Персонализирана заглавка or Потребителски долен колонтитул за да зададете горния или долния колонтитул, който искате, вижте екранната снимка:
3, И в Header or Footer диалоговия прозорец, моля, определете мястото, където се вмъкват номерата на страниците, като щракнете вътре в Ляв раздел:, Централна секция: или Десен раздел: поле, както ви е необходимо, и след това щракнете Вмъкване на номер на страница икона и контейнер &[Страница] появява се. Вижте екранна снимка:
Забележка: Въведете това &[Страница] от &[Страници] в полето за горен или долен колонтитул, ако искате номерата на страниците да се показват като 1 от 45, 2 от 45...
4. След това кликнете OK > OK за да затворите диалоговите прозорци, когато отпечатвате тази работна книга, във визуализацията за печат можете да видите всички номера на страници да се вмъкват в горния или долния колонтитул в последователен ред.
Вмъкнете номер на страница в клетка с VBA код
Лесно е да вмъкнете номерата на страниците в горен или долен колонтитул, но ако трябва да вмъкнете номерата на страници в клетка на работен лист, няма директен начин да го направите. Следният VBA код може да ви помогне да разрешите този проблем.
1. Щракнете върху клетка, където искате да покажете номера на страницата на тази клетка.
2. Задръжте натиснат ALT + F11 ключове и отваря Microsoft Visual Basic за приложения прозорец.
3. Щракнете Поставете > Модулии поставете следния код в Модули Window.
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. Изберете всички раздели на листа и отидете на Page Layout на лентата, след което щракнете Бутон за стартиране на диалогов прозорец икона в Page Setup група, вижте екранната снимка:
2. В Page Setup кликнете върху Горен / долен колонтитул и след това изберете (Няма) от Header or Footer падащ списък, вижте екранната снимка:
3. След това кликнете OK всички номера на страници се премахват от работната книга наведнъж.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
