Ga naar hoofdinhoud

Hoe pagina-einden invoegen wanneer waarde verandert in Excel?

Stel dat ik een celbereik heb en nu wil ik pagina-einden in het werkblad invoegen wanneer de waarden in kolom A veranderen zoals het linker screenshot wordt getoond. U kunt ze natuurlijk één voor één invoegen, maar zijn er snelle manieren om de pagina-einden tegelijk in te voegen op basis van de gewijzigde waarden van één kolom?

Voeg pagina-einden in wanneer de waarde verandert met VBA-code

Voeg pagina-einden in wanneer de waarde verandert met een krachtige functie


Voeg pagina-einden in wanneer de waarde verandert met VBA-code

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

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

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: voeg pagina-einden in wanneer de waarde verandert:

Sub insertpagebreaks()
'updateby Extendoffice
    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 sleutel om deze code uit te voeren, zijn alle pagina-einden in het blad ingevoegd wanneer de gegevens in kolom A veranderen. Zie screenshot:

Opmerking:In de bovenstaande code, A is de kolomkop waarop u pagina-einde wilt invoegen op basis van, u kunt deze naar uw behoefte wijzigen.

Voeg pagina-einden in wanneer de waarde verandert met een krachtige functie

Als je Kutools for Excel, Met Onderscheid verschillen functie, kunt u snel pagina-einden, lege rijen, onderste randlijnen of achtergrondkleur invoegen op basis van de waardeveranderingen. Klik om Kutools voor Excel te downloaden!

Tips:Om dit toe te passen Onderscheid verschillen -functie, ten eerste moet u de Kutools for Excelen pas de functie vervolgens snel en gemakkelijk toe.

Na het installeren van Kutools for Excel, doe dit als volgt:

1. Klikken Kutools > Formaat > Onderscheid verschillen, zie screenshot:

2. In de pop-out Onderscheid verschillen per sleutelkolom dialoogvenster voert u de volgende bewerkingen uit:

  • Selecteer het gegevensbereik en de sleutelkolom die u wilt gebruiken;
  • Kies pagina-einde van het Opties doos.

3. Dan klikken Ok knop, zijn de pagina-einden in het bereik ingevoegd op basis van de waardeveranderingen zie screenshot:

Download en gratis proef Kutools voor Excel nu!


Meer relatieve artikelen:

  • Markeer rijen wanneer celwaarde verandert in Excel
  • Als er een lijst met herhaalde waarden in uw werkblad staat en u de rijen moet markeren op basis van kolom A, welke celwaarde verandert zoals in de volgende schermafbeelding wordt weergegeven. In feite kunt u deze taak snel en gemakkelijk voltooien door de functie Voorwaardelijke opmaak te gebruiken.
  • Getallen verhogen wanneer waarde in een andere kolom verandert
  • Stel dat u een lijst met waarden heeft in kolom A, en nu wilt u het getal met 1 verhogen in kolom B wanneer de waarde in kolom A verandert, wat betekent dat de getallen in kolom B toenemen totdat de waarde in kolom A verandert, en dan de Het verhogen van het aantal begint weer vanaf 1 zoals het linker screenshot wordt getoond. In Excel lost u deze klus op met de volgende methode.
  • Som cellen op wanneer waarde verandert in een andere kolom
  • Wanneer u aan een Excel-werkblad werkt, moet u soms cellen optellen op basis van een groep gegevens in een andere kolom. Hier wil ik bijvoorbeeld de bestellingen in kolom B optellen wanneer de gegevens in kolom A veranderen om het volgende resultaat te krijgen. Hoe zou je dit probleem in Excel kunnen oplossen?
  • Voeg lege rijen in wanneer waarde verandert in Excel
  • Stel dat u een gegevensbereik heeft en u wilt nu lege rijen tussen de gegevens invoegen wanneer de waarde verandert, zodat u de opeenvolgende dezelfde waarden in één kolom kunt scheiden, zoals in de volgende schermafbeeldingen. In dit artikel zal ik enkele trucs voor je bespreken om dit probleem op te lossen.
  • Voer macro uit wanneer celwaarde verandert in Excel
  • Normaal gesproken kunnen we in Excel op de F5-toets of de knop Uitvoeren drukken om de VBA-code uit te voeren. Maar heb je ooit geprobeerd de specifieke macrocode uit te voeren wanneer een celwaarde verandert? In dit artikel zal ik enkele snelle trucs introduceren om met deze taak in Excel om te gaan.

Beste Office-productiviteitstools

Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

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 honderden muisklikken voor u elke dag!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Bonjour,

Merci pour le code qui fonctionne très bien, seulement je souhaite ajouter un saut de page après et non avant chaque changement de valeur... que faut-il changer dans le code ?

Merci beaucoup !
This comment was minimized by the moderator on the site
Tôi không muốn ngắt trang tại những hàng bị ẩn. Thì phải làm sao?
This comment was minimized by the moderator on the site
Hello, Lê Tuấn
To solve your problem, please apply the below VBA code:
Sub insertpagebreaks()
'updateby Extendoffice
Dim I As Long, J As Long
Dim xRg As Range
On Error Resume Next
J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Set xRg = Range("A1:A" & J).SpecialCells(xlCellTypeVisible)

For I = J To 2 Step -1
If Range("A" & I).Value <> Range("A" & I - 1).Value Then
If Not Intersect(xRg, Range("A" & I)) Is Nothing Then
ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)
End If
End If
Next I
End Sub


Please try, hope it can help you!
This comment was minimized by the moderator on the site
Is it possible to skip the first 20 rows of the sheet? If been trying all kinds of stuff but my knowledge of VBA is to limited to adjuist the code myself.
This comment was minimized by the moderator on the site
Hi, Wilco,
To insert the page break but skip the first 20 rows, you just need to change one parameter as below code:

Sub insertpagebreaks()

'updateby Extendoffice

Dim I As Long, J As Long

J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

For I = J To 21 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

Please try, thank you!
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
Sorry. EDIT: The first ROW is a column header.
This comment was minimized by the moderator on the site
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.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations