Hoe paginascheidingen invoegen wanneer de waarde verandert in Excel?

Stel dat ik een bereik van cellen heb, en nu wil ik paginascheidingen in het werkblad invoegen wanneer de waarden in kolom A veranderen, zoals te zien is in de linker screenshot. Natuurlijk kun je ze één voor één invoegen, maar zijn er snellere manieren om de paginascheidingen tegelijkertijd in te voegen op basis van de gewijzigde waarden van één kolom?
Paginascheidingen invoegen bij waardeverandering met VBA-code
Paginascheidingen invoegen bij waardeverandering met een krachtige functie
Paginascheidingen invoegen bij waardeverandering met VBA-code
De volgende VBA-code kan u helpen om paginascheidingen onderaan in te voegen op basis van wijzigingen in één kolom gegevens; doe het volgende:
1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.
VBA-code: Paginascheidingen invoegen 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 de F5-toets om deze code uit te voeren; alle paginascheidingen zijn ingevoegd in het blad wanneer de gegevens in kolom A veranderen. Zie screenshot:
Paginascheidingen invoegen bij waardeverandering met een krachtige functie
Als u Kutools voor Excel heeft, kunt u met de functie Markeer wijzigingen in kolom snel paginascheidingen, lege rijen, onderste randlijnen of achtergrondkleur invoegen op basis van de waardeveranderingen. Klik hier om Kutools voor Excel te downloaden!
1. Klik op Kutools > Opmaak > Markeer wijzigingen in kolom, zie screenshot:
2. Voer in het pop-upvenster Markeer wijzigingen in kolom de volgende handelingen uit:
- Selecteer het gegevensbereik en de sleutelkolom die u wilt gebruiken;
- Kies Paginascheiding in het vak Opties.
3. Klik vervolgens op de knop OK; de paginascheidingen zijn ingevoegd in het bereik op basis van de waardeveranderingen. Zie screenshot:
Kutools voor Excel - Boost Excel met meer dan 300 essentiële tools. Geniet van permanent gratis AI-functies! Nu verkrijgen
Meer gerelateerde artikelen:
- Rijen markeren wanneer celwaarde verandert in Excel
- Als er een lijst met herhaalde waarden in uw werkblad staat, en u moet de rijen markeren op basis van kolom A waarvan de celwaarde verandert zoals te zien is in de volgende screenshot. In feite kunt u deze taak snel en gemakkelijk afmaken door gebruik te maken van de functie Voorwaardelijke opmaak.
- Nummers verhogen wanneer waarde verandert in een andere kolom
- Stel dat u een lijst met waarden hebt in kolom A, en nu wilt u het nummer met 1 verhogen in kolom B wanneer de waarde in kolom A verandert, wat betekent dat de nummers in kolom B toenemen totdat de waarde in kolom A verandert, waarna de nummering weer opnieuw begint bij 1, zoals te zien is in de linker screenshot. In Excel kunt u dit probleem oplossen met de volgende methode.
- Cellen optellen 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. Bijvoorbeeld, hier wil ik de bestellingen in kolom B optellen wanneer de gegevens in kolom A veranderen om het volgende resultaat te krijgen. Hoe zou u dit probleem in Excel kunnen oplossen?
- Lege rijen invoegen wanneer waarde verandert in Excel
- Stel dat u een bereik van gegevens hebt, en nu wilt u lege rijen tussen de gegevens invoegen wanneer de waarde verandert, zodat u de opeenvolgende dezelfde waarden in één kolom kunt scheiden zoals te zien is in de volgende screenshots. In dit artikel zal ik het hebben over enkele trucs om dit probleem op te lossen.
- Macro uitvoeren wanneer celwaarde verandert in Excel
- Normaal gesproken kunt u in Excel op de F5-toets drukken of op de knop Uitvoeren klikken om de VBA-code uit te voeren. Maar hebt u ooit geprobeerd om een specifieke macrocode uit te voeren wanneer een celwaarde verandert? In dit artikel zal ik enkele snelle trucs introduceren om deze taak in Excel aan te pakken.
Beste Office-productiviteitstools
Versterk je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!