Hoe voorwaardelijke pagina-einden in Excel invoegen?

Stel dat je pagina-einden moet invoegen wanneer de waarden in kolom A veranderen, zoals in onderstaande schermafbeelding te zien is, hoe zou je dit in Excel kunnen aanpakken? Over het algemeen kun je de pagina-einden handmatig een voor een invoegen, maar hier introduceer ik enkele trucs om dit snel op te lossen.

Gebruik de functie Subtotaal om pagina-einden in te voegen

Gebruik VBA-code om pagina-einden in te voegen

Verschillen markeren om een pagina-einde in te voegen bij gegevenswijzigingen

Pagina-einde elke rij invoegen om pagina-einde in te voegen in elke n-de rij

Gebruik de functie Subtotaal om pagina-einden in te voegen

In Excel kan de functie Subtotaal pagina-einden toevoegen op basis van groepen.

1. Selecteer de gegevens waarvoor je pagina-einden wilt toevoegen en klik op Gegevens > Subtotaal.

2. In het Subtotaal dialoogvenster, selecteer de kolom waarvoor je een pagina-einde wilt invoegen op basis van de waarde in de vervolgkeuzelijst 'Bij elke wijziging in', kies vervolgens de functie die je wilt gebruiken uit Gebruik functie lijst, en vink daarna Pagina-einde tussen groepen aanvinkvakje en andere opties naar behoefte.

3. Klik op OK. Nu zijn de gegevens gegroepeerd en zijn er pagina-einden toegevoegd.

Gebruik VBA-code om pagina-einden in te voegen

Als je geen groepen aan de gegevens wilt toevoegen, kun je proberen VBA-code te gebruiken om deze taak uit te voeren.

1. Druk op Alt + F11 toetsen om het Microsoft Visual Basic for Applications-venster weer te geven.

2. Klik op Invoegen > Module, kopieer en plak onderstaande code in het nieuwe Module-venster.

VBA: Pagina-einde invoegen bij gegevenswijzigingen

Sub PageBreak()
'UpdatebyExtendOffice20181101
    Dim xSRg As Range
    Dim xRg As Range
    On Error Resume Next
    Set xSRg = Application.InputBox("Select key column:", "Kutools for Excel", xTxt, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
    For Each xRg In xSRg
        ActiveSheet.Rows(xRg.Row).PageBreak = xlPageBreakNone
        If xRg.Value <> xRg.Offset(-1, 0).Value Then
            ActiveSheet.Rows(xRg.Row).PageBreak = xlPageBreakManual
        End If
    Next xRg
Application.ScreenUpdating = True
End Sub

3. Druk op F5 toets, er verschijnt een dialoogvenster dat je eraan herinnert de sleutelkolom te selecteren waarop het pagina-einde wordt gebaseerd.

4. Klik op OK, nu zijn de pagina-einden ingevoegd.

Verschillen markeren om een pagina-einde in te voegen bij gegevenswijzigingen

De functie Verschillen markeren van Kutools for Excel ondersteunt het invoegen van pagina-einden, lege rijen, onderste rand of achtergrondkleur wanneer gegevens in Excel veranderen.

Na installatie van Kutools for Excel, doe als volgt:（Nu gratis Kutools for Excel downloaden!)

Klik op Kutools > Opmaak > Verschillen markeren.

2. In het dialoogvenster Verschillen markeren op basis van sleutelkolom, voltooi onderstaande instellingen:

1) klik op selectiepictogram in het Bereik gedeelte, selecteer het gegevensbereik (kolomkoppen niet meegerekend)

2) klik op selectiepictogram in het Sleutelkolom gedeelte, selecteer de kolom waarvoor je een pagina-einde wilt invoegen op basis van overeenkomstige gegevenswijzigingen (kolomkoppen niet meegerekend)

3) vink aan Pagina-einde optie in Opties gedeelte.

3. Klik op Ok.

Nu wordt een pagina-einde ingevoegd wanneer gegevens veranderen in het geselecteerde bereik.

Pagina-einde elke rij invoegen om pagina-einde in te voegen in elke n-de rij

Als je pagina-einden wilt invoegen met een vast interval, kun je het hulpprogramma Pagina-einde elke rij van Kutools for Excel gebruiken om het probleem snel op te lossen.

Na installatie van Kutools for Excel, doe als volgt:（Nu gratis Kutools for Excel downloaden!)

1. Selecteer de gegevens en klik op Kutools Plus > Afdrukken > Pagina-einde elke rij invoegen.

2. In het Pagina-einde elke rij invoegen dialoogvenster, voer het gewenste interval in.

3. Klik op OK > OK om dialoogvensters te sluiten, de pagina-einden zijn ingevoegd in elke 2 rijen.

  Pagina-einde invoegen elke n-de rij