Cum se introduce numărul paginii în celulă / antet / subsol în Excel?
Când imprimați un fișier Excel, este posibil să fie necesar să introduceți numerele paginilor în pagini pentru a face fișierul tipărit îngrijit și ușor. În acest articol, voi introduce câteva trucuri rapide pentru a insera numerele paginii în celulă, antet sau subsol pentru dvs.
Introduceți numărul paginii în antet / subsol într-o singură foaie de lucru
Introduceți numărul paginii în antet / subsol pe mai multe foi de lucru
Introduceți numărul paginii în celulă cu codul VBA
Eliminați toate numerele de pagină simultan în Excel
Introduceți numărul paginii în antet / subsol într-o singură foaie de lucru
În mod normal, putem insera rapid numerele paginii în antet sau subsol folosind Antet și subsol funcție, vă rugăm să faceți următoarele:
1. Mergeți la foaia de lucru pe care doriți să o inserați numerele paginii în antet sau subsol.
2. Apoi apasa Insera > Antet și subsol, iar foaia dvs. de lucru va fi în Pagina Aspect vezi, vezi captura de ecran:
3. Faceți clic pe antetul sau subsolul în care doriți să inserați numărul paginii, apoi pe a Amenajări filă cu Instrumente pentru antet și subsol este afișat în panglică, apoi faceți clic pe Amenajări > Numărul paginii, vezi captura de ecran:
4. Și puteți vedea substituentul &[Pagină] apare în secțiunea selectată, apoi faceți clic oriunde în afara zonei antet sau subsol pentru a afișa numerele paginii. Vedeți captura de ecran:
5. Acum, puteți reveni la vizualizarea normală făcând clic pe Vizualizare > Normal, și când imprimați această foaie de lucru, veți vedea că numerele paginii au fost inserate în antetul sau subsolul pe care le-ați selectat.
notițe: Dacă doriți ca numerele de pagină să fie afișate în format 1 din 15, 2 din 15, trebuie doar să introduceți direct acest lucru & [Pagina] din & [Pagini] în caseta de câmp antet sau subsol, vezi captura de ecran:
Introduceți numărul paginii în antet / subsol pe mai multe foi de lucru
Metoda de mai sus vă poate ajuta să inserați numerele de pagină într-o singură foaie de lucru, dacă doriți să inserați numerele de pagină în toate foile de lucru ale registrului de lucru pentru a face ca toate paginile să fie numerotate în ordine secvențială, procedați astfel:
1. Selectați toate filele foii, apoi accesați Pagina Aspect și faceți clic pe Butonul de lansare a casetei de dialog pictograma în Page Setup grup, vezi captura de ecran:
2. În Page Setup casetă de dialog, faceți clic pe Antet / subsol , apoi faceți clic pe Antet personalizat or Subsol personalizat pentru a merge pentru a seta antetul sau subsolul dorit, consultați captura de ecran:
3. Și în Antet or Subsol caseta de dialog, vă rugăm să definiți locația în care numerele de pagină sunt inserate făcând clic în interiorul Secțiunea din stânga:, Secțiunea centrală:, Sau Secțiunea din dreapta: caseta după cum aveți nevoie, apoi faceți clic pe Introduceți numărul paginii pictogramă și substituent &[Pagină] apare. Vedeți captura de ecran:
Notă: Introduceți asta & [Pagina] din & [Pagini] în caseta de câmp antet sau subsol, dacă vă plac numerele de pagină afișate ca 1 din 45, 2 din 45 ...
4. Apoi faceți clic pe OK > OK pentru a închide casetele de dialog, când imprimați acest registru de lucru, în previzualizarea imprimării, puteți vedea toate numerele de pagină sunt inserate în antet sau subsol în ordine secvențială.
Introduceți numărul paginii în celulă cu codul VBA
Vă este ușor să inserați numerele de pagină în antet sau subsol, dar, dacă trebuie să inserați numerele de pagină într-o celulă a foii de lucru, nu există o modalitate directă de a o face. Următorul cod VBA vă poate ajuta să rezolvați această problemă.
1. Faceți clic pe o celulă în care doriți să afișați numărul paginii acestei celule.
2. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.
3. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.
Cod VBA: introduceți numărul paginii curente într-o celulă:
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. Apoi apăsați F5 tasta pentru a rula acest cod, iar numărul paginii acestei celule este afișat în celula selectată, consultați captura de ecran:
Eliminați toate numerele de pagină simultan în Excel
Pentru a elimina toate numerele de pagină, puteți aplica următorii pași:
1. Selectați toate filele foii și accesați Pagina Aspect fila de pe panglică, apoi faceți clic pe Butonul de lansare a casetei de dialog pictograma în Page Setup grup, vezi captura de ecran:
2. În Page Setup casetă de dialog, faceți clic pe Antet / subsol , apoi alegeți (Nici unul) de la Antet or Subsol lista derulantă, vezi captura de ecran:
3. Apoi faceți clic pe OK butonul, toate numerele de pagină sunt eliminate din registrul de lucru simultan.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
