Hoe paginanummer in cel / koptekst / voettekst invoegen in Excel?
Wanneer u een Excel-bestand afdrukt, moet u mogelijk paginanummers invoegen om het afgedrukte bestand netjes en leesbaar te maken. In dit artikel introduceer ik enkele snelle trucs om paginanummers in een cel, koptekst of voettekst in te voegen.
Paginanummer invoegen in koptekst / voettekst in één werkblad
Paginanummer invoegen in koptekst / voettekst over meerdere werkbladen
Paginanummer invoegen in cel met VBA-code
Alle paginanummers tegelijk verwijderen in Excel
Paginanummer invoegen in koptekst / voettekst in één werkblad
Normaal gesproken kunnen we de paginanummers snel in de koptekst of voettekst invoegen door gebruik te maken van de functie Koptekst & Voettekst. Volg deze stappen:
1. Ga naar het werkblad waarin u de paginanummers wilt invoegen in de koptekst of voettekst.
2. Klik vervolgens op Invoegen > Koptekst & Voettekst, en uw werkblad zal in de Pagina-indeling-weergave staan, zie screenshot:
3. Klik op de koptekst of voettekst waar u het paginanummer wilt invoegen, en er wordt een Ontwerpen tabblad met Koptekst & Voettekst-hulpmiddelen weergegeven in de lintbalk. Klik vervolgens op Ontwerpen > Paginanummer, zie screenshot:
4. U ziet de tijdelijke aanduiding &[Pagina] verschijnen in de geselecteerde sectie. Klik ergens buiten het koptekst- of voettekstgebied om de paginanummers weer te geven. Zie screenshot:
5. Nu kunt u terugkeren naar de normale weergave door te klikken op Weergave > Normaal. Wanneer u dit werkblad afdrukt, zult u zien dat de paginanummers zijn ingevoegd in de koptekst of voettekst die u hebt geselecteerd.
Opmerking: Als u de paginanummers wilt weergeven als 1 van 15, 2 van 15-formaat, hoeft u alleen maar &[Pagina] van &[Pagina's] rechtstreeks in het koptekst- of voettekstveld in te voeren. Zie screenshot:
Bladnaam / bestandsnaam / aanmaakdatum / wijzigingsdatum ... invoegen in koptekst / voettekst / cel: Met de functie Werkboekinformatie invoegen van Kutools voor Excel kunt u snel de bladnaam, bestandsnaam, bestandspad en naam, aanmaakdatum, wijzigingsdatum en meer in een cel, koptekst of voettekst invoegen zoals u nodig hebt. Download en probeer Kutools voor Excel nu gratis uit!
Kutools voor Excel: met meer dan 300 handige Excel-add-ins, gratis uitproberen zonder beperking gedurende 30 dagen. Download en probeer nu gratis uit! |
Paginanummer invoegen 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 in alle werkbladen van het werkboek wilt invoegen om alle pagina's in volgorde te nummeren, volg dan deze stappen:
1. Selecteer alle bladtabs, ga vervolgens naar het tabblad Pagina-indeling en klik op het pictogram Dialoogvensterstartknop in de groep Pagina-instelling. Zie screenshot:
2. In het dialoogvenster Pagina-instelling klikt u op het tabblad Koptekst/Voettekst, en vervolgens op Aangepaste koptekst of Aangepaste voettekst om de gewenste koptekst of voettekst in te stellen. Zie screenshot:
3. En in het dialoogvenster Koptekst of Voettekst definieert u de locatie waar de paginanummers worden ingevoegd door te klikken in het vak Linkersectie:, Centreren:, of Rechtersectie: zoals u nodig hebt, en klik vervolgens op het pictogram Paginanummer invoegen. De tijdelijke aanduiding &[Pagina] verschijnt. Zie screenshot:
Opmerking: Voer &[Pagina] van &[Pagina's] in het koptekst- of voettekstveld in als u de paginanummers wilt weergeven als 1 van 45, 2 van 45…
4. Klik vervolgens op OK > OK om de dialoogvensters te sluiten. Wanneer u dit werkboek afdrukt, kunt u in het afdrukvoorbeeld zien dat alle paginanummers in volgorde zijn ingevoegd in de koptekst of voettekst.
Paginanummer invoegen in cel met VBA-code
Het is eenvoudig om de paginanummers in de koptekst of voettekst in te voegen, maar als u de paginanummers in een cel van een werkblad 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 toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.
3. Klik op Invoegen > Module, en plak de volgende code in het modulevenster.
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 de F5-toets om deze code uit te voeren, en het paginanummer van deze cel wordt weergegeven in de geselecteerde cel. Zie screenshot:
Alle paginanummers tegelijk verwijderen in Excel
Volg de volgende stappen om alle paginanummers te verwijderen:
1. Selecteer alle bladtabs, en ga naar het tabblad Pagina-indeling op de lintbalk, klik vervolgens op het pictogram Dialoogvensterstartknop in de groep Pagina-instelling. Zie screenshot:
2. Klik in het dialoogvenster Pagina-instelling op het tabblad Koptekst/Voettekst, en kies (geen) in de vervolgkeuzelijst Koptekst of Voettekst. Zie screenshot:
3. Klik vervolgens op de knop OK, en alle paginanummers worden in één keer uit het werkboek verwijderd.
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen 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.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen