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

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.

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-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 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 honderden muisklikken voor u elke dag!
officetab onderkant
Heb je vragen? Stel ze hier. (8)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Hallo dankjewel! De gedachte aan VBA maakt me aan het zweten. Ik heb echter een probleem met de resultaten van deze code. De eerste kolom is een kolomkop. De code behandelt dit als een wijziging. Mijn eerste pagina toont alleen de kolomkop, maar de volgende pagina's zijn prima. Ter info: dit is voor een maandelijks rapport en het aantal rijen voor elk criterium verandert maandelijks. Ideeën? Dank u bij voorbaat.
Deze opmerking is gemaakt door de moderator op de site
Sorry. EDIT: De eerste RIJ is een kolomkop.
Deze opmerking is gemaakt door de moderator op de site
Dat is echt briljant! Ik volgde je VB-voorbeeld en het werkte! Ik ben ook een eigenaar van KUTools, dus daar zal ik ook mee spelen.

Zeer onder de indruk en bedankt!

Mike
Deze opmerking is gemaakt door de moderator op de site
Is het mogelijk om de eerste 20 rijen van het blad over te slaan? Ik heb van alles geprobeerd, maar mijn kennis van VBA is te beperkt om de code zelf aan te passen.
Deze opmerking is gemaakt door de moderator op de site
Hallo, Wilco,
Om het pagina-einde in te voegen maar de eerste 20 rijen over te slaan, hoeft u slechts één parameter te wijzigen, zoals onderstaande code:

Sub-invoegpagina-einden()

'bijwerken door' Extendoffice

Dim ik zo lang, J zo lang

J = ActiveSheet.Cells(Rijen.Count, "A").End(xlUp).Rij

Voor I = J tot 21 Stap -1

If Range ("A" & I). Waarde <> Range ("A" & I - 1). Waarde Dan

ActiveSheet.HPageBreaks.Add Before:=Bereik ("A" & I)

End If

Volgende ik

End Sub

Probeer het alsjeblieft, bedankt!
Deze opmerking is gemaakt door de moderator op de site
Tôi không muốn ngắt trang tại những hàng bị n. Th phải làm sao?
Deze opmerking is gemaakt door de moderator op de site
Hallo, Lê Tuấn
Gebruik de onderstaande VBA-code om uw probleem op te lossen:
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


Probeer het alsjeblieft, ik hoop dat het je kan helpen!
Deze opmerking is gemaakt door de moderator op de site
Hallo,

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

Hartelijk dank!
Er zijn nog geen reacties geplaatst

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL