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

or

Hoe voeg je pagina-einden toe als de waarde verandert in Excel?

doc insert page break veranderde waarden 1

Stel dat ik een reeks cellen heb en nu wil ik pagina-einden invoegen in het werkblad wanneer de waarden in kolom A veranderen zoals in het volgende screenshot. Natuurlijk kunt u ze één voor één invoegen, maar zijn er snelle manieren om de pagina-einden in één keer in te voegen op basis van de gewijzigde waarden van één kolom?

Voeg pagina-einden toe als de waarde verandert met VBA-code

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


pijl blauwe rechterbel Voeg pagina-einden toe als de waarde verandert met VBA-code


De volgende VBA-code kan u helpen om pagina-einden hieronder in te voegen op basis van eenmaal veranderde kolomgegevens, gelieve als volgt te doen:

1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken bijvoegsel > moduleen plak de volgende code in de module Venster.

VBA-code: voeg pagina-einden toe als de waarde verandert:

Sub insertpagebreaks()
'updateby Extendoffice 20151228
    Dim I As Long, J As Long
    J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    For I = J To 2 Step -1
        If Range("A" & I).Value <> Range("A" & I - 1).Value Then
            ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)
        End If
    Next I
End Sub

3. Druk vervolgens op F5 om deze code uit te voeren, zijn alle pagina-einden ingevoegd in het blad wanneer de gegevens veranderen in kolom A. Zie screenshot:

doc insert page break veranderde waarden 2

Notes: Als u pagina-einden wilt invoegen wanneer waardewijzigingen gebaseerd zijn op een andere kolom, moet u de A naar een andere kolomkop in bovenstaande code.


pijl blauwe rechterbel Voeg pagina-einden elke x-rij in met Kutools voor Excel

Soms moet u de pagina-einden elke n rijen invoegen, hier is een handig hulpmiddel-Kutools for Excel, Met Voeg pagina in elke rij in hulpprogramma, kunt u deze taak snel voltooien in Excel.

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis om zonder beperking te proberen in 60-dagen.

Na het installeren van Kutools for Excel, doe als volgt :( Download nu Kutools voor Excel! )

1. Klikken Enterprise > het drukken > Voeg pagina in elke rij inzie screenshot:

doc insert page break veranderde waarden 3

2. In de popped out Voeg pagina in elke rij in prompt, voer het intervalnummer in van de rijen waarvan u het pagina-einde wilt invoegen onder de Interval van sectie, zie screenshot:

doc insert page break veranderde waarden 4

3. Dan klikken Ok knop, de pagina-einden zijn ingevoegd in het huidige werkblad elke 5 rijen, zie screenshot:

doc insert page break veranderde waarden 5

Download nu Kutools voor Excel!


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

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • 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 zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... 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 ...
  • 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...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. 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.
    Mike MItsch · 12 days ago
    That is truly brilliant! I followed along on your VB example and it worked! I also am an owner of KUTools so I will play with that too.

    Very impressed and thanks!

    Mike
  • To post as a guest, your comment is unpublished.
    GUEST · 8 months ago
    Sorry. EDIT: The first ROW is a column header.
  • To post as a guest, your comment is unpublished.
    GUEST · 8 months ago
    Hello, Thank you! The thought of VBA makes me sweat. I do have one problem with the results of this code though. The first column is a column header. The code treats this as a change. My first page only shows the column header, but he following pages are fine. FYI: This is for a monthly report and the number of rows for each criteria change monthly. Any Ideas? Thank you in advance.