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
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:
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:
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:
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:
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:
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:
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:
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.
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:
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:
2. In de Pagina-instelling dialoogvenster, klik Koptekst / voettekst tabblad en kies vervolgens (Geen) van het Voorvoegsel or footer vervolgkeuzelijst, zie screenshot:
3. Dan klikken OK knop, worden alle paginanummers in één keer uit de werkmap verwijderd.
Beste Office-productiviteitstools
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...
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!