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ă:, 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.