Note: The other languages of the website are Google-translated. Back to English

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


săgeată albastru dreapta balon 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:

doc introduceți numerele paginii 1

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:

doc introduceți numerele paginii 2

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:

doc introduceți numerele paginii 3

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:

doc introduceți numerele paginii 4


săgeată albastru dreapta balon 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:

doc introduceți numerele paginii 5

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:

doc introduceți numerele paginii 6

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:

doc introduceți numerele paginii 7

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


săgeată albastru dreapta balon 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:

doc introduceți numerele paginii 8


săgeată albastru dreapta balon 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:

doc introduceți numerele paginii 9

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:

doc introduceți numerele paginii 10

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 Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

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!
fundul officetab

 

Comentarii (8)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună ziua, am folosit Inserați numărul paginii în celulă cu codul VBA de mai sus și funcționează de minune. Foaia mea poate avea fie 2 pagini (2 în jos și 1 în lungime), 4 pagini (2 în jos și 2 în lungime) sau 6 pagini (2 în jos și 3 în lungime). Am introdus codul în fiecare celulă din cele 6 care necesită imprimarea numărului de pagină (prin selectarea celulelor pe rând și rularea VBA), adresele celulelor sunt H1, H35, T1, T35, AF1, AF35. Acum aș dori să adaug un buton pentru a reîmprospăta aceste numere de pagină fără a afecta orice celulă care ar putea fi activă atunci când utilizatorul relevant poate alege să o ruleze, în prezent trebuie să selectez fiecare celulă pe rând și să rulez VBA :( Asistența ar fi enormă apreciat!Antoinette
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am încercat macrocomanda VBA, dar primesc o eroare de indice în afara intervalului... Am făcut ceva greșit?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Hola, hay un error en la formula porque cuando ejecuto (F5) el primer valor numérico de "Pagina XX de XX" no cambia. Solo face el conteo de pagini la secunda valoare. Podrian revisar... Multumesc
Acest comentariu a fost redus la minimum de moderatorul de pe site
terima kasih, kawan
Acest comentariu a fost redus la minimum de moderatorul de pe site
Pot să știu dacă am un interval de celule pe care vreau să le pun în numere de pagină, ce ar trebui să schimb? Actualul VBA îmi permite doar să schimb unul câte unul.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Pot să știu cum ar trebui să modific mai sus VBA, care îmi permite să execut acest lucru în intervalul de celule dintr-un registru de lucru și cu o tastă de scurtătură pentru a aplica toate celulele selectate?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Hola,el codigo si me functiono, sin embargo al moment de imprimare, siempre me sale 1 de 5 y es that mi encabezado lo tengo como área de imprimare în toate mis paginas, ¿hay alguna forma de realizare that al moment de print, se poate schimba la pagina, en la misma pestaña?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Hay forma de convertir este sub într-o funcție?
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL