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

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 Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
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!
fundul officetab
Comentarii (8)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna ziua multumesc! Gândul la VBA mă face să transpir. Totuși, am o problemă cu rezultatele acestui cod. Prima coloană este un antet de coloană. Codul tratează acest lucru ca pe o schimbare. Prima mea pagină arată doar antetul coloanei, dar paginile următoare sunt în regulă. FYI: Acesta este pentru un raport lunar și numărul de rânduri pentru fiecare criteriu se modifică lunar. Vreo idee? Vă mulțumesc anticipat.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Îmi pare rău. EDITARE: primul RÂND este un antet de coloană.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Asta este cu adevărat genial! Am urmat exemplul tău VB și a funcționat! De asemenea, sunt proprietarul KUTools, așa că mă voi juca și cu asta.

Foarte impresionat si multumesc!

Mike
Acest comentariu a fost redus la minimum de moderatorul de pe site
Este posibil să săriți peste primele 20 de rânduri ale foii? Dacă am încercat tot felul de lucruri, dar cunoștințele mele despre VBA se limitează la a ajusta codul eu însumi.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Wilco,
Pentru a insera pauză de pagină, dar să omiteți primele 20 de rânduri, trebuie doar să modificați un parametru, după cum urmează:

Sub insertpagebreaks()

'updateby Extendoffice

Dim I As Long, J As Long

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

Pentru I = J La 21 Pasul -1

Dacă Interval(„A” și I).Valoare <> Interval(„A” și I - 1).Valoare Atunci

ActiveSheet.HPageBreaks.Add Before:=Range(„A” și I)

Final, dacă

Apoi eu

End Sub

Vă rugăm să încercați, mulțumesc!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Tôi không muốn ngắt trang tại những hàng bị ẩn. Thì phải làm sao?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Lê Tuấn
Pentru a vă rezolva problema, vă rugăm să aplicați codul VBA de mai jos:
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


Vă rugăm să încercați, sper că vă poate ajuta!
Acest comentariu a fost redus la minimum de moderatorul de pe site
bonjour,

Merci pentru codul care funcționează foarte bine, numai dacă doriți să adăugați un saut de pagina după ce nu înainte de fiecare schimbare de valoare... că trebuie să schimbați codul?

Vă mulțumesc foarte mult!
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL