Preskoči na glavno vsebino

Kako vstaviti številko strani v celico / glavo / nogo v Excelu?

Ko tiskate datoteko Excel, boste morda morali na strani vstaviti številke strani, da bo natisnjena datoteka lepo in berljiva. V tem članku bom predstavil nekaj hitrih trikov za vstavljanje številk strani v celico, glavo ali nogo.

V glavo / nogo na enem delovnem listu vstavite številko strani

Številko strani vstavite v glavo / nogo na več delovnih listov

V celico s kodo VBA vstavite številko strani

V Excelu odstranite vse številke strani hkrati


puščica modri desni mehurček V glavo / nogo na enem delovnem listu vstavite številko strani

Običajno lahko številke strani hitro vstavimo v glavo ali nogo s pomočjo Glava in noga funkcijo, naredite naslednje:

1. Pojdite na delovni list, v katerega želite vstaviti številke strani v glavo ali nogo.

2. Nato kliknite Vstavi > Glava in noga, in vaš delovni list bo v Postavitev strani pogled, glej posnetek zaslona:

doc vstavi številke strani 1

3. Kliknite glavo ali nogo, kamor želite vstaviti številko strani, in nato a Oblikovanje zavihek z Orodja za glave in noge se prikaže na traku, nato kliknite Oblikovanje > Številka strani, glej posnetek zaslona:

doc vstavi številke strani 2

4. In lahko vidite nadomestni znak & [Stran] v izbranem odseku, nato kliknite kjer koli zunaj območja glave ali noge, da prikažete številke strani. Oglejte si posnetek zaslona:

doc vstavi številke strani 3

5. Zdaj se lahko s klikom vrnete v običajni pogled Poglej > Normal, in ko natisnete ta delovni list, boste videli, da so številke strani vstavljene v glavo ali nogo, ki ste jo izbrali.

Opombe: Če želite, da so številke strani prikazane v obliki 1 od 15, 2 od 15, morate to neposredno vnesti & [Stran] od & [Strani] v polju z glavo ali nogo si oglejte posnetek zaslona:

doc vstavi številke strani 4


puščica modri desni mehurček Številko strani vstavite v glavo / nogo na več delovnih listov

Zgornja metoda vam lahko pomaga pri vstavljanju številk strani na en delovni list. Če želite vstaviti številke strani v vse delovne liste delovnega zvezka, da bodo vse strani oštevilčene v zaporednem vrstnem redu, naredite naslednje:

1. Izberite vse zavihke lista in nato pojdite na Postavitev strani in kliknite Gumb za zagon pogovornega okna ikona v Priprava strani skupina, glej posnetek zaslona:

doc vstavi številke strani 5

2. v Priprava strani pogovorno okno, kliknite Glava / noga kartico in nato kliknite Glava po meri or Noga po meri če želite nastaviti glavo ali nogo, ki jo želite, si oglejte posnetek zaslona:

doc vstavi številke strani 6

3. In v Glava or Noga v pogovornem oknu določite mesto, kamor se vstavijo številke strani, tako da kliknete znotraj Levi del:, Osrednji del:ali Desni del: in nato kliknite Vstavi številko strani ikono in rezervirano mesto & [Stran] se prikaže. Oglejte si posnetek zaslona:

doc vstavi številke strani 7

Opomba: Vnesite to & [Stran] od & [Strani] v polje glave ali noge, če so vam všeč številke strani, prikazane kot 1 od 45, 2 od 45 ...

4. Nato kliknite OK > OK da zaprete pogovorna okna, ko med tiskanjem tega delovnega zvezka v predogledu tiskanja vidite, da so vse številke strani vstavljene v glavo ali nogo v zaporednem vrstnem redu.


puščica modri desni mehurček V celico s kodo VBA vstavite številko strani

Številke strani lahko enostavno vstavite v glavo ali nogo, če pa morate številke strani vstaviti v celico delovnega lista, ni neposrednega načina, da to storite. Naslednja koda VBA vam lahko pomaga rešiti to težavo.

1. Kliknite celico, v kateri želite prikazati številko strani te celice.

2. Držite tipko ALT + F11 in odpre tipko Microsoft Visual Basic za aplikacije okno.

3. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: V celico vstavite številko trenutne strani:

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. Nato pritisnite F5 tipko za zagon te kode in v izbrani celici se prikaže številka strani te celice, glejte posnetek zaslona:

doc vstavi številke strani 8


puščica modri desni mehurček V Excelu odstranite vse številke strani hkrati

Če želite odstraniti vse številke strani, lahko uporabite naslednje korake:

1. Izberite vse zavihke lista in pojdite na Postavitev strani na traku, nato kliknite Gumb za zagon pogovornega okna ikona v Priprava strani skupina, glej posnetek zaslona:

doc vstavi številke strani 9

2. v Priprava strani pogovorno okno, kliknite Glava / noga in nato izberite (Brez) Iz Glava or Noga spustni seznam, glej posnetek zaslona:

doc vstavi številke strani 10

3. Nato kliknite OK gumba se iz delovnega zvezka naenkrat odstranijo vse številke strani.

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!

 

Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hay forma de convertir esta sub en una función?
This comment was minimized by the moderator on the site
Hola,el codigo si me funciono, sin embargo al momento de imprimir, siempre me sale 1 de 5 y es que mi encabezado lo tengo como área de impresión en todas mis paginas, ¿hay alguna forma de lograr que al momento de imprimir, se pueda cambiar la pagina, en la misma pestaña?
This comment was minimized by the moderator on the site
May I know how I should modify above VBA that allows me to execute this to range of cells on a workbook and with 1 short cut key to apply all selected cells?
This comment was minimized by the moderator on the site
May I know if I have range of cells that I want to put in page numbers, what should I change? The current VBA only allows me to change one by one.
This comment was minimized by the moderator on the site
terima kasih, kawan
This comment was minimized by the moderator on the 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 hace el conteo de páginas el segundo valor. Podrian revisar... Gracias
This comment was minimized by the moderator on the site
I tried the VBA macro, but I'm getting a subscript out of range error... Did I do something wrong?
This comment was minimized by the moderator on the site
Hello I used the Insert page number into cell with VBA code above and it works a charm. My sheet could be either 2 pages long (2 down and 1 across), 4 pages long (2 down and 2 across) or 6 pages long (2 down and 3 across). I have inserted the code in each cell of the 6 that require page number to be printed (by selecting the cells each in turn and running the VBA), cell addresses are H1, H35, T1, T35, AF1, AF35. Now I would like to add a button to refresh these page numbers without affecting whichever cell may be active when the relevant user may choose to run it, currently I have to select each cell in turn again and run the VBA :( Assistance would be hugely appreciated! Antoinette
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations