Note: The other languages of the website are Google-translated. Back to English

Hoe voeg ik elke x-rij een pagina-einde in Excel in?

Het kan voor u gemakkelijk en eenvoudig zijn om een ​​pagina-einde in een werkblad in te voegen. Soms is het nodig om pagina-einden in elke X-rij in te voegen om netjes af te drukken, hoe zou u dat kunnen doen? Hier introduceer ik een aantal methoden om dit probleem in Excel op te lossen.


Voeg elke X-rij een pagina-einde in met VBA in Excel

Misschien ben je niet eerder bekend met het draaien van VBA, maar met de volgende stappen weet je misschien hoe je de VBA moet uitvoeren om elke X-rij een pagina-einde in te voegen. Hier zal ik een pagina-einde invoegen in elke 3 rijen.

1. pers Alt + F11 om de Microsoft Visual Basic voor toepassingen venster.

2. Klik in het venster op Invoegen > Module om een ​​nieuw modulevenster weer te geven en kopieer vervolgens de volgende VBA-code naar het modulevenster.

VBA: voeg een pagina-einde in elke X-rij in een werkblad in.

Sub InsertPageBreaks()
'Updateby20140618
Dim xLastrow As Long
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
xRow = Application.InputBox("Row", xTitleId, "", Type:=1)
xWs.ResetAllPageBreaks
xLastrow = xWs.Range("A1").SpecialCells(xlCellTypeLastCell).Row
For i = xRow + 1 To xLastrow Step xRow
    xWs.HPageBreaks.Add Before:=xWs.Cells(i, 1)
Next
End Sub

3. Klikken lopen en er verschijnt een dialoogvenster waarin u elke X-rij kunt specificeren waarin u een pagina-einde wilt invoegen. Hier voeg ik pagina-einde in elke 3 rijen in. Zie screenshot:
doc-insert-page-break-x-rijen-1

4. Klikken OK, en dan zal het een pagina-einde invoegen in elke X-rij.

Voeg snel een pagina-einde in op elke (n-de) rij in een actief werkblad

Normaal gesproken voegen we een pagina-einde in door te klikken Pagina layout > Breaks > Pagina-einde invoegen. Maar op deze manier is het te vervelend om batchgewijs meerdere pagina-einden in een werkblad in te voegen, zoals dat u elke rij een pagina-einde moet invoegen om elke rij op een afzonderlijke pagina af te drukken. Maak je geen zorgen! Kutools voor Excel's Voeg pagina-einde in elke rij in hulpprogramma kan u helpen het gemakkelijk te archiveren! Gratis proefversie met volledige functionaliteit 30 dagen!
advertentie invoegen pagina-einde elke rij 3

Batch pagina-einden invoegen na elke x rijen met Kutools voor Excel

Als u Kutools voor Excel hebt geïnstalleerd, is het Splitsen in kolommen hulpprogramma kan u helpen bij het batchgewijs invoegen van meerdere pagina-einden na elke x-rij door de titel op elke pagina eenvoudig in Excel te houden.

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefperiode van 30 dagen met volledige functionaliteit, geen creditcard vereist! Nu gratis proberen!

1. Klikken Splitsen in kolommen op de Kutools Plus Tab.

2. In het dialoogvenster Splitsen naar kolommen openen, moet u:

(1) Klik op de knop Bladeren  functie in het Titels bereik vak en selecteer de titelrij in het opgegeven bereik waarin u batchgewijs pagina-einden wilt invoegen.
(2) Klik op de knop Bladeren functie in het Datumbereik vak en selecteer het bereik waarin u batchgewijs pagina-einden wilt invoegen.
(3) In de Rijen per afgedrukte pagina vak, voer een nummer in. (Tip: Als u bijvoorbeeld pagina-einden na elke 3 rijen moet invoegen, voert u 3 in het vak in; als u pagina-einden na elke rij inert wilt maken, voert u 1 in.)
(4) Voer 1 in in het Aantal segmenten doos.

3. Klik op de Ok knop.

Nu zult u zien dat het bereik naar een nieuw werkblad wordt gekopieerd en dat pagina-einden worden toegevoegd na elke x rijen met behoud van de bereiktitel. U kunt ook overschakelen naar de weergave Pagina-einde-voorbeeld door op te klikken Bekijk > Pagina-einde voorbeeld om deze pagina-einden te zien. Zie onderstaande schermafbeelding.

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefperiode van 30 dagen met volledige functionaliteit, geen creditcard vereist! Snap het nu


Voeg pagina-einden in na elke x-rij met Kutools voor Excel

Kutools voor Excel ontwikkelt een ander hulpprogramma Pagina-einde elke rij invoegen, gespecialiseerd in het gemakkelijk invoegen van pagina-einden na elke x rijen.

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefperiode van 30 dagen met volledige functionaliteit, geen creditcard vereist! Nu gratis proberen!

1. Selecteer het bereik waarin u pagina-einden wilt invoegen na elke x rijen en klik op Printen > Voeg pagina-einde in elke rij in op de Kutools Plus Tab.

2. Geef in het openingsdialoogvenster Pagina-einde elke rij invoegen het interval van rijen op waarin u pagina-einden wilt invoegen en klik op de Ok knop.

Vervolgens zult u zien dat pagina-einden met het opgegeven interval van rijen tegelijk worden ingevoegd.

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefperiode van 30 dagen met volledige functionaliteit, geen creditcard vereist! Snap het nu


Demo: voeg pagina-einde in elke x rijen in Excel in


Kutools for Excel bevat meer dan 300 handige tools voor Excel, gratis te proberen zonder beperking in 30 dagen. Download en gratis proef nu!

Relatieve artikelen:


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

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 elke dag honderden muisklikken!
officetab onderkant
Comments (3)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Heel erg bedankt uit Istanbul / Turkije :)
Deze opmerking is gemaakt door de moderator op de site
Hallo, Heel erg bedankt voor de code. Maar wanneer ik op Annuleren of x druk in het invoervak; het Excel-bestand crasht. Kunt u alstublieft helpen om dit probleem op te lossen.
Deze opmerking is gemaakt door de moderator op de site
Geachte extendoffice.com
Ik wil graag feedback sturen over de functie: Afdrukken > Pagina-einde in elke rij invoegen.

VBA-code:
Sub InsertPageBreaks()
'Bijwerken door20140618'
Dim xLastrow As Long
Dim xWs als werkblad
Stel xWs = Application.ActiveSheet in
xRow = Application.InputBox("Rij", xTitleId, "", Type:=1)
xWs.ResetAllPageBreaks
xLastrow = xWs.Bereik("A1").SpecialCells(xlCellTypeLastCell).Rij
Voor i = xRij + 1 Tot xLastrow Stap xRij
xWs.HPageBreaks.Toevoegen voor:=xWs.Cells(i, 1)
Volgende
End Sub


Wanneer u deze functie gebruikt, kunt u slechts één variabele invoeren, namelijk xRow.
Deze functie zal dus bijna nutteloos zijn omdat hij niet flexibel is. Niet alle gegevens beginnen vanaf rij 1, om nog maar te zwijgen van de gegevens zijn meestal een tabel en hebben een koprij.

Ik denk dat deze functie een andere variabele zou moeten hebben, xFirstRow, zodat je de eerste rij gegevens kunt definiëren:
xFirstRow = Application.InputBox("Eerste rij", xTitleId, "", Type:=1)

En de formule zou moeten zijn:
Voor i = xEerste Rij + xRij + 1 Tot xLastrow Stap xRij

Hopelijk wordt deze functie in latere versies geüpgraded.
Hartelijk dank,
werving
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties