Hoe drukt u rijen herhaaldelijk af onderaan elke pagina in Excel?
Standaard biedt Excel een functie waarmee gebruikers rijen herhaaldelijk bovenaan kunnen afdrukken. Maar in sommige gevallen wilt u rijen liever herhaaldelijk onderaan de pagina's afdrukken in plaats van bovenaan. In dit artikel worden enkele handige trucs getoond.
Rijen herhaaldelijk onderaan afdrukken met VBA-code
Rijen herhaaldelijk onderaan afdrukken met VBA-code
Voer de onderstaande VBA-code uit om de opgegeven rij automatisch in de voettekst van elke pagina op te nemen, zodat deze rij onderaan elke afgedrukte pagina in Excel consistent wordt afgedrukt.
1. Druk tegelijkertijd op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het dialoogvenster Microsoft Visual Basic for Applications op Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het modulevenster.
VBA-code: Opgegeven rij invoegen in voetteksten van elke afgedrukte pagina
Sub MyFooter()
Dim xTxt As String
Dim xAddress As String
Dim xRg As Range
Dim xCell As Range
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the row you will insert repeatedly at the bottom:", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
xTxt = xTxt & xCell.Value & " "
Next
ActiveSheet.PageSetup.LeftFooter = xTxt
End Sub3. Druk op de toets F5 om de code uit te voeren. Er verschijnt dan een Kutools voor Excel-dialoogvenster. Selecteer de rij die u onderaan elke afgedrukte pagina herhaaldelijk wilt afdrukken en klik op de knop OK.
De inhoud van de opgegeven rij is nu toegevoegd aan de voettekst van elke afgedrukte pagina in het huidige werkblad. U kunt het werkblad nu afdrukken.
Opmerking: Als u de geselecteerde inhoud onderaan elke pagina van de gehele werkmap wilt afdrukken, gebruikt u de voettekstfunctie om deze in de voettekst van alle werkbladen op te nemen.
Herhaal titelrijen eenvoudig in elke n-de rij in Excel:
Met het hulpmiddel Kutools voor Excel – Titelrijen invoegen – voegt u in een handomdraai een titelrij in vóór elke n-de rij binnen een geselecteerd bereik in Excel, zoals te zien is op de schermafbeelding hieronder.
Download het nu en probeer het!
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