Salt la conținutul principal

Cum se inserează pauze de pagină atunci când valoarea se schimbă în Excel?

Presupunând că am o gamă de celule și acum vreau să inserez pauze de pagină în foaia de lucru atunci când valorile din coloana A se modifică după cum se arată în ecranul din stânga. Desigur, le puteți insera unul câte unul, dar există modalități rapide de a insera pauzele de pagină simultan pe baza valorilor modificate ale unei coloane?

Introduceți pauze de pagină atunci când valoarea se schimbă cu codul VBA

Inserați pauze de pagină atunci când valoarea se schimbă cu o caracteristică puternică


Introduceți pauze de pagină atunci când valoarea se schimbă cu codul VBA

Următorul cod VBA vă poate ajuta să inserați mai jos pauze de pagină pe baza modificărilor de date de coloană, vă rugăm să faceți următoarele:

1. Țineți apăsată tasta ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.

Cod VBA: introduceți pauze de pagină atunci când valoarea se schimbă:

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. Apoi apăsați F5 tasta pentru a rula acest cod, toate pauzele de pagină au fost inserate în foaie atunci când datele se modifică în coloana A. Vedeți captura de ecran:

Notă:În codul de mai sus, A este antetul de coloană pe care doriți să inserați pauza de pagină, pe care îl puteți modifica în funcție de nevoile dvs.

Inserați pauze de pagină atunci când valoarea se schimbă cu o caracteristică puternică

Dacă aveţi Kutools pentru Excel, Cu său Distingeți diferențele caracteristică, puteți insera rapid pauze de pagină, rânduri goale, linii de margine inferioare sau culoare de fundal pe baza modificărilor de valoare. Faceți clic pentru a descărca Kutools pentru Excel!

Sfat:Pentru a aplica acest lucru Distingeți diferențele caracteristică, în primul rând, ar trebui să descărcați Kutools pentru Excel, apoi aplicați caracteristica rapid și ușor.

După instalare Kutools pentru Excel, vă rugăm să faceți acest lucru:

1. Clic Kutools > Format > Distingeți diferențele, vezi captura de ecran:

2. În pop-out Distingeți diferențele după coloana cheie caseta de dialog, efectuați următoarele operații:

  • Selectați intervalul de date și coloana cheie pe care doriți să o utilizați;
  • Alege Page Break de la Opţiuni cutie.

3. Apoi apasa Ok butonul, pauzele de pagină au fost inserate în interval pe baza modificărilor valorii, a se vedea captura de ecran:

Descărcați și proba gratuită Kutools pentru Excel acum!


Mai multe articole relative:

  • Evidențiați rândurile când valoarea celulei se modifică în Excel
  • Dacă există o listă de valori repetate în foaia de lucru și trebuie să evidențiați rândurile pe baza coloanei A, care valoare de celulă se modifică după cum se arată în următoarea captură de ecran. De fapt, puteți finaliza rapid și ușor această lucrare utilizând funcția Formatare condiționată.
  • Creșteți numerele atunci când valoarea se schimbă într-o altă coloană
  • Presupunând că aveți o listă de valori în coloana A, iar acum doriți să creșteți numărul cu 1 în coloana B atunci când valoarea din coloana A se modifică, ceea ce înseamnă că numerele din coloana B cresc până când se schimbă valoarea din coloana A, apoi creșterea numărului începe din nou de la 1, așa cum este afișat ecranul din stânga. În Excel, puteți rezolva acest job cu următoarea metodă.
  • Suma celulelor atunci când valoarea se schimbă într-o altă coloană
  • Când lucrați pe foaia de lucru Excel, uneori, este posibil să fie necesar să sumați celulele pe baza unui grup de date dintr-o altă coloană. De exemplu, aici, doresc să însumăm ordinele din coloana B atunci când datele se modifică în coloana A pentru a obține următorul rezultat. Cum ați putea rezolva această problemă în Excel?
  • Introduceți rânduri goale atunci când valoarea se schimbă în Excel
  • Presupunând că aveți o gamă de date și acum doriți să inserați rânduri goale între date atunci când valoarea se schimbă, astfel încât să puteți separa aceleași valori secvențiale într-o singură coloană, după cum se arată în următoarele capturi de ecran. În acest articol, voi vorbi despre câteva trucuri pentru a rezolva această problemă.
  • Rulați macro când valoarea celulei se modifică în Excel
  • În mod normal, în Excel, putem apăsa tasta F5 sau butonul Executare pentru a executa codul VBA. Dar, ați încercat vreodată să rulați codul macro specific atunci când se schimbă valoarea unei celule? În acest articol, voi introduce câteva trucuri rapide pentru a face față acestei sarcini în Excel.

Cele mai bune instrumente de productivitate de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

fila kte 201905


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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