Hoe voegt u paginanummers in een cel, koptekst of voettekst in Excel in?
Bij het afdrukken van een Excel-bestand wilt u de pagina’s misschien voorzien van paginanummers, zodat het afgedrukte document overzichtelijk en goed leesbaar blijft. In dit artikel laat ik u enkele snelle trucs zien om paginanummers toe te voegen in een cel, koptekst of voettekst.
Paginanummer invoegen in koptekst/voettekst op één werkblad
Paginanummer invoegen in koptekst/voettekst op meerdere werkbladen
Paginanummer invoegen in een cel met VBA-code
Alle paginanummers tegelijk verwijderen in Excel
Paginanummer invoegen in koptekst/voettekst op één werkblad
Normaal gesproken voegt u paginanummers snel toe aan een koptekst of voettekst met de Koptekst en voettekst-functie. Volg hiervoor de onderstaande stappen:
1. Ga naar het werkblad waarin u paginanummers wilt invoegen in de koptekst of voettekst.
2. Klik vervolgens op Invoegen > Koptekst en voettekst, waardoor uw werkblad wordt weergegeven in de Pagina-indeling-weergave. Zie schermafbeelding:
3. Klik op de koptekst of voettekst waar u het paginanummer wilt invoegen. Er verschijnt dan een Ontwerpen-tab met Hulpmiddelen voor koptekst en voettekst in het lint. Klik vervolgens op Ontwerpen > Paginanummer. Zie schermafbeelding:
4. U ziet nu de tijdelijke aanduiding &[Page] verschijnen in het geselecteerde gedeelte. Klik ergens buiten het koptekst- of voettekstgebied om de paginanummers weer te geven. Zie schermafbeelding:
5. U kunt nu terugkeren naar de normale weergave door te klikken op Beeld > Normaal. Wanneer u dit werkblad afdrukt, ziet u dat de paginanummers zijn ingevoegd in de koptekst of voettekst die u hebt geselecteerd.
Opmerking: als u paginanummers wilt weergeven in de notatie ‘1 van 15’, ‘2 van 15’, enzovoort, typt u gewoon &[Page] of &[Pages] in het veld voor koptekst of voettekst. Zie de schermafbeelding:
Werkbladnaam, bestandsnaam, aanmaaktijd en wijzigingstijd invoegen in koptekst, voettekst of cel: Met de Kutools voor Excel’s Werkboekinformatie invoegen-hulpprogramma kunt u snel de werkbladnaam, bestandsnaam, Bestandspad en naam, Aanmaaktijd, Wijzigingstijd enzovoort invoegen in een cel, koptekst of voettekst, zoals u dat nodig hebt.Download en gratis proefversie Kutools voor Excel nu!
Kutools voor Excel: met meer dan 300 handige Excel-add-ins, gratis te proberen zonder beperkingen gedurende 30 dagen.Download en start nu uw gratis proefversie! |
Paginanummer invoegen in koptekst/voettekst op meerdere werkbladen
De bovenstaande methode helpt u bij het invoegen van paginanummers op één werkblad. Wilt u paginanummers toevoegen aan alle werkbladen in de werkmap, zodat elke pagina opeenvolgend wordt genummerd? Volg dan deze stappen:
1.Selecteer alle bladtabs en ga naar het tabblad Pagina-indeling. Klik vervolgens op het pictogram Dialoogvenster-startknop in de groep Pagina-instelling. Zie schermafbeelding:
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 schermafbeelding:
3. In het dialoogvenster Koptekst of Voettekst geeft u de locatie aan waar het paginanummer moet worden ingevoegd door te klikken in het vakje Linkersectie:, Middensectie: of Rechtersectie:, afhankelijk van uw voorkeur. Klik daarna op het pictogram Paginanummer invoegen, waarna de tijdelijke aanduiding &[Page] verschijnt. Zie schermafbeelding:
Opmerking:Typ &[Page] of &[Pages]in het veld voor koptekst of voettekst 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 deze werkmap afdrukt, ziet u in het afdrukvoorbeeld dat alle paginanummers opeenvolgend zijn ingevoegd in de koptekst of voettekst.
Paginanummer invoegen in een cel met VBA-code
Het is eenvoudig om paginanummers toe te voegen in een koptekst of voettekst, maar er is geen directe manier om paginanummers in een werkbladcel weer te geven. De volgende VBA-code helpt u dit probleem op te lossen.
1. Klik op de cel waarin u het paginanummer van deze cel wilt weergeven.
2. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
3. Klik op Invoegen > Module en plak de volgende code in het Module-venster.
VBA-code: huidige paginanummer invoeren in een cel:
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 toets F5 om deze code uit te voeren. Het paginanummer van deze cel wordt dan weergegeven in de geselecteerde cel. Zie schermafbeelding:
Alle paginanummers tegelijk verwijderen in Excel
Om alle paginanummers te verwijderen, kunt u de volgende stappen toepassen:
1. Selecteer alle bladtabs en ga naar het tabblad Pagina-indeling op het lint. Klik vervolgens op het pictogram Dialoogvenster-startknop in de groep Pagina-instelling. Zie schermafbeelding:
2. In het dialoogvenster Pagina-instelling klikt u op het tabblad Koptekst/voettekst en kiest u (geen) in de keuzelijst voor Koptekst of Voettekst. Zie schermafbeelding:
3. Klik daarna op de knop OK. Alle paginanummers worden dan tegelijk uit de werkmap verwijderd.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins