Hoe kan ik verschillende kop- of voetteksten toepassen op elke pagina in een Excel-spreadsheet?
Wanneer u een koptekst of voettekst in een werkblad invoegt, wordt de inhoud van de koptekst of voettekst standaard op alle pagina's toegepast. Voor veel mensen kunnen verschillende pagina's verschillende inhoud in hun werkbladen hebben. En ze hebben de neiging om deze pagina's te onderscheiden met de inhoud van de koptekst of voettekst na het afdrukken van het werkblad. Hoe kan ik verschillende kop- of voetteksten toepassen op elke pagina op een werkblad? De methode in dit artikel kan u helpen.
Pas verschillende kop- of voetteksten toe op elke pagina met VBA-code
Pas verschillende kop- of voetteksten toe op elke pagina met VBA-code
De volgende VBA-code kan u helpen om verschillende kop- of voetteksten toe te passen op elke pagina van een werkblad. Ga als volgt te werk.
1. druk de anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassings venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het Code venster. Zie screenshot:
VBA-code: pas verschillende kopteksten toe op elke pagina in Excel
Sub DifferentHeaderFooter()
Dim ws As Worksheet
Dim vLeft As Variant, vRight As Variant, xRg As Variant
Set ws = ActiveSheet
On Error Resume Next
vLeft = Array("First page", "Second page", "Third page", "fourth page")
xRg = Array("A1:C50", "A51:C100", "A101:C150", "A151:C200")
Application.ScreenUpdating = False
For i = 0 To UBound(vLeft)
With ws.PageSetup
.PrintArea = xRg(i)
.LeftHeader = vLeft(i)
End With
ws.PrintPreview
Next i
Application.ScreenUpdating = True
ws.PageSetup.PrintArea = ""
End Sub
Opmerkingen:
3. druk de F5 sleutel om de code uit te voeren. Dan de Voorbeschouwing venster verschijnt, klik dan op het Print om de pagina's met verschillende kop- of voetteksten af te drukken.
Note: Als er 4 gespecificeerde afgedrukte pagina's in het werkblad zijn, moet u op de Print vier keer om de hele afdruk te voltooien.
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!