Gå til hovedindhold

Hvordan indsættes sideskift, når værdien ændres i Excel?

Antag, jeg har en række celler, og nu vil jeg indsætte sideskift i regnearket, når værdier i kolonne A ændres som det venstre skærmbillede vises. Selvfølgelig kan du indsætte dem en efter en, men er der hurtige måder at indsætte sideskift på én gang baseret på de ændrede værdier i en kolonne?

Indsæt sideskift, når værdien ændres med VBA-kode

Indsæt sideskift, når værdien ændres med en kraftfuld funktion


Indsæt sideskift, når værdien ændres med VBA-kode

Følgende VBA-kode kan hjælpe dig med at indsætte sideskift nedenfor baseret på en gang kolonnedataændringer, skal du gøre som følger:

1. Hold nede i ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.

VBA-kode: Indsæt sideskift, når værdien ændres:

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. Tryk derefter på F5 nøgle til at køre denne kode, er alle sideskift indsat i arket, når data ændres i kolonne A. Se skærmbillede:

Bemærk:I ovenstående kode, A er kolonneoverskriften, som du vil indsætte sideskift baseret på, kan du ændre det til dit behov.

Indsæt sideskift, når værdien ændres med en kraftfuld funktion

Hvis du har Kutools til Excel, Med Skel mellem forskelle funktion, kan du hurtigt indsætte sideskift, tomme rækker, nederste kantlinjer eller baggrundsfarve baseret på værdiændringerne. Klik for at downloade Kutools til Excel!

tips:At anvende dette Skel mellem forskelle funktion, for det første skal du downloade Kutools til Excel, og anvend derefter funktionen hurtigt og nemt.

Efter installation Kutools til Excelskal du gøre som dette:

1. Klik Kutools > dannet > Skel mellem forskelle, se skærmbillede:

2. I poppet ud Skelne forskelle ved hjælp af nøglekolonne i dialogboksen, skal du udføre følgende handlinger:

  • Vælg det dataområde og nøglekolonne, du vil bruge;
  • Vælg Sideskift fra Indstillinger boks.

3. Klik derefter på Ok knap, sideskiftene er indsat i området baseret på værdiforandringerne, se skærmbillede:

Download og gratis prøveversion Kutools til Excel nu!


Flere relative artikler:

  • Fremhæv rækker, når celleværdien ændres i Excel
  • Hvis der er en liste over gentagne værdier i dit regneark, og du skal fremhæve rækkerne baseret på kolonne A, hvilken celleværdi der ændres som det følgende skærmbillede vises. Faktisk kan du hurtigt og nemt afslutte dette job ved at bruge funktionen Betinget formatering.
  • Forøg antallet, når værdien ændres i en anden kolonne
  • Antag, du har en liste over værdier i kolonne A, og nu vil du forøge antallet med 1 i kolonne B, når værdien i kolonne A ændres, hvilket betyder, at tallene i kolonne B øges, indtil værdien i kolonne A ændres, så ændres nummerforøgelse starter fra 1 igen som venstre skærmbillede vist. I Excel kan du løse dette job med følgende metode.
  • Sumceller når værdi ændres i en anden kolonne
  • Når du arbejder på Excel-regneark, skal du muligvis summe celler baseret på en gruppe data i en anden kolonne. For eksempel vil jeg her opsummere ordrer i kolonne B, når dataene ændres i kolonne A for at få følgende resultat. Hvordan kunne du løse dette problem i Excel?
  • Indsæt tomme rækker, når værdien ændres i Excel
  • Antag at du har en række data, og nu vil du indsætte tomme rækker mellem dataene, når værdien ændres, så du kan adskille de sekventielle samme værdier i en kolonne som følgende skærmbilleder vist. I denne artikel vil jeg tale om nogle tricks til dig for at løse dette problem.
  • Kør makro, når celleværdien ændres i Excel
  • Normalt kan vi i Excel trykke på F5-tasten eller Kør-knappen for at udføre VBA-koden. Men har du nogensinde prøvet at køre den specifikke makrokode, når en celleværdi ændres? Denne artikel vil jeg introducere nogle hurtige tricks til at håndtere dette job i Excel.

Bedste kontorproduktivitetsværktøjer

Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøj (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøj (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøj (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøj (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

kte-fane 201905


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver 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