Ga naar hoofdinhoud

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.

Note: 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 het 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.

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


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 honderden muisklikken voor u elke dag!

 

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