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

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 orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
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!
dno pisarniške mize

 

Komentarji (8)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, uporabil sem številko Vstavi številko strani v celico z zgornjo kodo VBA in deluje odlično. Moj list je lahko dolg 2 strani (2 navzdol in 1 čez), 4 strani (2 navzdol in 2 čez) ali 6 strani (2 navzdol in 3 čez). V vsako celico od 6, ki zahtevajo tiskanje številke strani, sem vstavil kodo (z izbiro celic in zagonom VBA), naslovi celic so H1, H35, T1, T35, AF1, AF35. Zdaj bi rad dodal gumb za osvežitev teh številk strani, ne da bi vplival na to, katera celica je lahko aktivna, ko se ustrezni uporabnik odloči, da jo zažene, trenutno moram znova izbrati vsako celico po vrsti in zagnati VBA :( Pomoč bi bila zelo velika cenjeno! Antoinette
Ta komentar je moderator na spletnem mestu minimiziral
Preizkusil sem makro VBA, vendar dobivam sporočilo o napaki izven obsega... Sem naredil kaj narobe?
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, 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
Ta komentar je moderator na spletnem mestu minimiziral
terima kasih, kawan
Ta komentar je moderator na spletnem mestu minimiziral
Ali lahko vem, kaj naj spremenim, če imam obseg celic, ki jih želim vnesti v številke strani? Trenutni VBA mi omogoča samo spreminjanje enega za drugim.
Ta komentar je moderator na spletnem mestu minimiziral
Ali lahko vem, kako naj spremenim zgornji VBA, ki mi omogoča, da to izvedem v obsegu celic v delovnem zvezku in z 1 bližnjico za uporabo vseh izbranih celic?
Ta komentar je moderator na spletnem mestu minimiziral
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?
Ta komentar je moderator na spletnem mestu minimiziral
Hay forma de convertir esta sub en una función?
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL