Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe paginanummer in te voegen in cel / koptekst / voettekst in Excel?

Wanneer u een Excel-bestand afdrukt, moet u mogelijk de paginanummers in de pagina's invoegen om het afgedrukte bestand netjes en leesbaar te maken. In dit artikel zal ik enkele snelle trucs introduceren om de paginanummers in te voegen in de cel, koptekst of voettekst voor u.

Voeg paginanummer in koptekst / voettekst in één werkblad

Voeg paginanummer in koptekst / voettekst over meerdere werkbladen

Voer het paginanummer in de cel in met VBA-code

Verwijder alle paginanummers tegelijk in Excel


Voeg bladnaam / bestandsnaam / gecreëerde datum / gewijzigde datum ... in koptekst / voettekst / cel in:

Doordat uw bureau Kutools for Excel's Werkmapinformatie invoegen hulpprogramma, kunt u snel de bladnaam, bestandsnaam, bestandspad en naam, de gemaakte datum, de gewijzigde datum en de zoon invoegen in een cel, koptekst of voettekst als u dat wilt. Download en download Kutools nu voor Excel!

doc voeg paginanummers in 11-11

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!


pijl blauwe rechterbel Voeg paginanummer in koptekst / voettekst in één werkblad


Normaal gesproken kunnen we de paginanummers snel in de kop- of voettekst invoegen met behulp van de Header & Footer functie, doe als volgt:

1. Ga naar het werkblad waarin u de paginanummers wilt invoegen in de kop- of voettekst.

2. Dan klikken bijvoegsel > Header & Footer, en je werkblad staat in Pagina layout bekijk, zie screenshot:

doc voeg paginanummers 1 in

3. Klik op de kop- of voettekst waar u het paginanummer wilt invoegen en vervolgens a Design tab met Header & Footer Tools wordt weergegeven in het lint en klik vervolgens op Design > Paginanummerzie screenshot:

doc voeg paginanummers 2 in

4. En je kunt de tijdelijke aanduiding zien &[Pagina] verschijnen in de geselecteerde sectie en klik vervolgens ergens buiten het kop- of voettekstgebied om de paginanummers weer te geven. Zie screenshot:

doc voeg paginanummers 3 in

5. U kunt nu terugkeren naar de normale weergave door op te klikken View > normaalen wanneer u dit werkblad afdrukt, ziet u dat de paginanummers zijn ingevoegd in de kop- of voettekst die u hebt geselecteerd.

Notes: Als u wilt dat de paginanummers worden weergegeven als 1 van 15, 2 of 15, hoeft u deze alleen maar rechtstreeks in te voeren & [Pagina] van & [Pages] in het veld van het kop- of voettekstveld, zie screenshot:

doc voeg paginanummers 4 in


pijl blauwe rechterbel Voeg paginanummer in koptekst / voettekst over meerdere werkbladen

De bovenstaande methode kan u helpen om de paginanummers in één werkblad in te voegen, als u de paginanummers wilt invoegen in alle werkbladen van de werkmap om alle pagina's in de juiste volgorde te nummeren, doet u het volgende:

1. Selecteer alle bladtabs en ga naar Pagina layout tab en klik Dialoogvenster Startknop pictogram in de Pagina-instelling groep, zie screenshot:

doc voeg paginanummers 5 in

2. In de Pagina-instelling dialoogvenster, klik alstublieft Koptekst / voettekst Tabblad en klik vervolgens op Aangepaste koptekst or Aangepaste Footer om naar de gewenste koptekst of voettekst te gaan, zie screenshot:

doc voeg paginanummers 6 in

3. En in de Hoofd or footer dialoogvenster, definieer de locatie waar de paginanummers worden ingevoegd door te klikken in de Linker gedeelte:, Midden sectie:of Rechter deel: vakje als je nodig hebt, en klik dan op Paginanummer invoegen pictogram en tijdelijke aanduiding &[Pagina] komt naar voren. Zie screenshot:

doc voeg paginanummers 7 in

Let op: Voer dit in & [Pagina] van & [Pages] in het koptekst- of voettekstvak als je de paginanummers wilt zien die worden weergegeven als 1 van 45, 2 van 45 ...

4. Dan klikken OK > OK om de dialoogvensters te sluiten, wanneer u deze werkmap afdrukt, in het afdrukvoorbeeld, kunt u zien dat alle paginanummers in de kop- of voettekst in de juiste volgorde worden ingevoegd.


pijl blauwe rechterbel Voer het paginanummer in de cel in met VBA-code

U kunt eenvoudig de paginanummers in de kop- of voettekst invoegen, maar als u de paginanummers in een werkbladcel wilt invoegen, is er geen directe manier om dit te doen. De volgende VBA-code kan u helpen dit probleem op te lossen.

1. Klik op een cel waar u het paginanummer van deze cel wilt weergeven.

2. Houd de toets ingedrukt ALT + F11 toetsen, en het opent de Microsoft Visual Basic voor toepassingen venster.

3. Klikken bijvoegsel > moduleen plak de volgende code in de module Venster.

VBA-code: Huidig ​​paginanummer in een cel invoegen:

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. Druk vervolgens op F5 sleutel om deze code uit te voeren, en het paginanummer van deze cel wordt weergegeven in de geselecteerde cel, zie screenshot:

doc voeg paginanummers 8 in


pijl blauwe rechterbel Verwijder alle paginanummers tegelijk in Excel

Om alle paginanummers te verwijderen, kunt u de volgende stappen uitvoeren:

1. Selecteer alle bladtabs en ga naar Pagina layout klik op het lint en klik vervolgens op Dialoogvenster Startknop pictogram in de Pagina-instelling groep, zie screenshot:

doc voeg paginanummers 9 in

2. In de Pagina-instelling dialoogvenster, klik Koptekst / voettekst tabblad en kies vervolgens (Geen) van de Hoofd or footer drop-down lijst, zie screenshot:

doc voeg paginanummers 10 in

3. Dan klikken OK knop, alle paginanummers worden tegelijkertijd uit de werkmap verwijderd.


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Onyx LAI · 10 months ago
    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?
  • To post as a guest, your comment is unpublished.
    Onyx · 10 months ago
    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.
  • To post as a guest, your comment is unpublished.
    Wep Channel · 1 years ago
    terima kasih, kawan
  • To post as a guest, your comment is unpublished.
    Made Made · 1 years ago
    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
  • To post as a guest, your comment is unpublished.
    Jim · 2 years ago
    I tried the VBA macro, but I'm getting a subscript out of range error... Did I do something wrong?
  • To post as a guest, your comment is unpublished.
    Antoinette Anderson · 3 years ago
    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