Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe paginanummer in cel / koptekst / voettekst in Excel invoegen?

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 voor u in de cel, koptekst of voettekst in te voegen.

Voeg paginanummer in koptekst / voettekst in één werkblad in

Voeg paginanummer toe aan koptekst / voettekst over meerdere werkbladen

Voeg paginanummer in cel in met VBA-code

Verwijder alle paginanummers tegelijk in Excel


pijl blauw rechts bel Voeg paginanummer in koptekst / voettekst in één werkblad in

Normaal gesproken kunnen we de paginanummers snel in de koptekst of voettekst invoegen door de Koptekst en voettekst functie, doe dan als volgt:

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

2. Dan klikken Invoegen > Koptekst en voettekst, en je werkblad komt binnen Pagina layout bekijk, zie screenshot:

doc paginanummers invoegen 1

3. Klik op de kop- of voettekst waar u het paginanummer wilt invoegen en vervolgens op een Design tabblad met Hulpprogramma's voor koptekst en voettekst wordt weergegeven in het lint en klik vervolgens op Design > Paginanummer, zie screenshot:

doc paginanummers invoegen 2

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

doc paginanummers invoegen 3

5. Nu kunt u teruggaan naar de normale weergave door op te klikken Bekijk > Normaal, en wanneer u dit werkblad afdrukt, ziet u dat de paginanummers zijn ingevoegd in de koptekst of voettekst die u hebt geselecteerd.

Opmerking:: Als u wilt dat de paginanummers worden weergegeven als 1 van 15, 2 van 15, hoeft u dit alleen maar rechtstreeks in te voeren & [Pagina] van & [pagina's] in het veld voor koptekst of voettekst, zie screenshot:

doc paginanummers invoegen 4


pijl blauw rechts bel Voeg paginanummer toe aan koptekst / voettekst over meerdere werkbladen

De bovenstaande methode kan u helpen om de paginanummers in één werkblad in te voegen.Als u de paginanummers in alle werkbladen van de werkmap wilt invoegen om ervoor te zorgen dat alle pagina's op volgorde worden genummerd, doet u dit als volgt:

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

doc paginanummers invoegen 5

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

doc paginanummers invoegen 6

3. En in de Voorvoegsel or footer dialoogvenster, definieer de locatie waar de paginanummers worden ingevoegd door in het Linker sectie:, Middengedeelte:of Rechter gedeelte: box zoals u nodig heeft en klik vervolgens op Voeg paginanummer in pictogram en tijdelijke aanduiding &[Bladzijde] verschijnt. Zie screenshot:

doc paginanummers invoegen 7

Opmerking: Voer dit in & [Pagina] van & [pagina's] in het veld voor de koptekst of voettekst als u de paginanummers wilt weergeven als 1 van 45, 2 van 45 ...

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


pijl blauw rechts bel Voeg paginanummer in cel in met VBA-code

Het is gemakkelijk voor u om de paginanummers in de koptekst of voettekst in te voegen, maar als u de paginanummers in een werkbladcel moet invoegen, is er geen directe manier om dit te doen. De volgende VBA-code kan u helpen om dit probleem op te lossen.

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

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

3. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: voeg het huidige paginanummer in een cel in:

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 paginanummers invoegen 8


pijl blauw rechts bel Verwijder alle paginanummers tegelijk in Excel

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

1. Selecteer alle bladtabbladen en ga naar het Pagina layout tabblad op het lint en klik op Dialoogvenster Launcher-knop pictogram in de Pagina-instelling groep, zie screenshot:

doc paginanummers invoegen 9

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

doc paginanummers invoegen 10

3. Dan klikken OK knop, worden alle paginanummers in één keer uit de werkmap verwijderd.


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren 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. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, 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 vermindert elke dag honderden muisklikken voor u!
officetab onderkant

 

Say something here...
symbols left.
You are guest
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@gmail.com · 2 years 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 · 2 years 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.edelweiss@gmail.com · 3 years ago
    terima kasih, kawan
  • To post as a guest, your comment is unpublished.
    madeleiniscg@gmail.com · 3 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 · 4 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 · 5 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