Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe een pagina-einde in te voegen om de x-rijen in Excel?

Het is misschien gemakkelijk en eenvoudig om een ​​pagina-einde in te voegen in een werkblad. Soms is het vereist om pagina-einden in elke X-rij in te voegen om netjes af te drukken, hoe kon je dat doen? Hier introduceer ik een aantal methoden om dit probleem op te lossen in Excel.

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

Batch invoegen pagina-einden na elke x-rijen

Batch invoegen pagina-einden na elke x-rijen met rijkop boven elke x-rijen

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

Normaal gesproken voegen we één pagina-einde in met klikken Pagina layout > Breaks > Pagina-einde invoegen. Maar op deze manier is het te vervelend om meerdere pagina-einden in een werkblad in te voegen, zoals het invoegen van één pagina-einde per rij voor het afdrukken van elke rij op een afzonderlijke pagina. Maak je geen zorgen! Kutools voor Excel's Voeg pagina in elke rij in hulpprogramma kan je helpen het gemakkelijk te archiveren! Volledige functie Gratis proef 60-dag!

advertentie voegt pagina-einde in elke rij 3

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel brengt 300 geavanceerde functies naar Excel en verhoogt uw productiviteit met 80%
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering 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...
  • Kutools werkt met Office 2007-2019 en 365. Het ondersteunt alle talen en is zeer eenvoudig te installeren of te implementeren. Volledige functionaliteit 60-daagse gratis proefversie.

Misschien ken je VBA nog niet eerder, 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-rij.

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

2. Klik in het venster bijvoegsel > module om een ​​nieuw modulevenster te tonen, kopieer dan 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 opgeven waarin u een pagina-einde wilt invoegen. Hier voeg ik het pagina-einde in elke 3-rij 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.


Als u Kutools voor Excel hebt geïnstalleerd, is het Splitsen naar kolommen hulpprogramma kan u helpen batch meerdere pagina-einden invoegen na elke x-rijen met titel in elke pagina gemakkelijk in Excel.

1. Klik op het Enterprise > Splitsen naar kolommen.

2. In het openingsdialoogvenster Splitsen naar kolommen, moet u:

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

3. Klik op het Ok knop.

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

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefversie 60-dag, geen creditcard vereist! Snap het nu


Kutools voor Excel ontwikkelt nog een hulpprogramma voor het splitsen van pagina-einden van elke rij, gespecialiseerd in het invoegen van pagina-einden na elke x-rij op zijn gemak.

1. Selecteer het bereik dat u pagina-einden invoegt na elke x-rij en klik op de Enterprise > het drukken > Voeg pagina in elke rij in.

2. Specificeer in het dialoogvenster Dialoogvenster Pagina invoegen elke rij invoegen het interval van rijen waarin u pagina-einden invoegt en klik op Ok knop.

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

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefversie 60-dag, geen creditcard vereist! Snap het nu


In deze video, Kutools en Kutools Plus tabbladen worden toegevoegd door Kutools for Excel. Klik indien nodig op voor 60-daagse gratis proef zonder beperking!


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering 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...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Tuyen · 1 years ago
    Dear extendoffice.com
    I would like to send feedback about feature: Print > Insert Page Break Every Row.

    VBA Code:
    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


    When you use this function, you can only enter one variables is xRow.
    So this feature will be almost useless because it is not flexible. Not all data start from Row 1, not to mention data usually is table and has Header row.

    I think this feature should have another variable is xFirstRow, so that you can define the first row of data:
    xFirstRow = Application.InputBox("First Row", xTitleId, "", Type:=1)

    And the formula should be:
    For i = xFirstRow + xRow + 1 To xLastrow Step xRow

    Hopefully this feature will be upgraded in later versions.
    Thanks,
    Tuyen
  • To post as a guest, your comment is unpublished.
    Emad · 4 years ago
    Hi, Thanks a lot for the code. But when I press Cancel or x on the input box; the excel file crashes. Can you please help to resolve this issue.
  • To post as a guest, your comment is unpublished.
    Yalin · 4 years ago
    Thanks a lot from Istanbul / Turkey :)