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

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:

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:

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:

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:

Š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:

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:

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:

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.

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:

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:

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

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