Vai al contenuto principale

Come inserire interruzioni di pagina quando il valore cambia in Excel?

Supponendo, ho un intervallo di celle e ora voglio inserire interruzioni di pagina nel foglio di lavoro quando i valori nella colonna A cambiano come mostrato nell'immagine a sinistra. Certo, puoi inserirli uno per uno, ma ci sono modi rapidi per inserire le interruzioni di pagina contemporaneamente in base ai valori modificati di una colonna?

Inserisci interruzioni di pagina quando il valore cambia con il codice VBA

Inserisci interruzioni di pagina quando il valore cambia con una potente funzionalità


Inserisci interruzioni di pagina quando il valore cambia con il codice VBA

Il seguente codice VBA può aiutarti a inserire interruzioni di pagina di seguito in base a una volta che i dati delle colonne cambiano, fai come segue:

1. Tenere premuto il tasto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.

Codice VBA: inserisci interruzioni di pagina quando il valore cambia:

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. Quindi premere F5 chiave per eseguire questo codice, tutte le interruzioni di pagina sono state inserite nel foglio quando i dati cambiano nella colonna A. Vedi screenshot:

Nota:Nel codice sopra, A è l'intestazione di colonna su cui vuoi inserire un'interruzione di pagina, puoi cambiarla secondo le tue necessità.

Inserisci interruzioni di pagina quando il valore cambia con una potente funzionalità

Se si dispone di Kutools for Excel, Con la sua Distinguere le differenze è possibile inserire rapidamente interruzioni di pagina, righe vuote, linee del bordo inferiore o colore di sfondo in base alle modifiche del valore. Fai clic per scaricare Kutools per Excel!

Suggerimenti:Per applicare questo Distinguere le differenze in primo luogo, dovresti scaricare il file Kutools for Excele quindi applica la funzione in modo rapido e semplice.

Dopo l'installazione Kutools for Excel, per favore fai come questo:

1. Clic Kutools > Formato > Distinguere le differenze, vedi screenshot:

2. Nel saltò fuori Distinguere le differenze per colonna chiave finestra di dialogo, eseguire le seguenti operazioni:

  • Seleziona l'intervallo di dati e la colonna chiave che desideri utilizzare;
  • Scegli Interruzione di pagina dal Opzioni scatola.

3. Quindi fare clic Ok pulsante, le interruzioni di pagina sono state inserite nell'intervallo in base alle modifiche del valore vedi screenshot:

Scarica e prova gratuitamente Kutools per Excel adesso!


Articoli più relativi:

  • Evidenzia le righe quando il valore della cella cambia in Excel
  • Se è presente un elenco di valori ripetuti nel foglio di lavoro ed è necessario evidenziare le righe in base alla colonna A, il valore della cella cambia come mostrato nella seguente schermata. In effetti, puoi completare rapidamente e facilmente questo lavoro utilizzando la funzione di formattazione condizionale.
  • Aumenta i numeri quando il valore cambia in un'altra colonna
  • Supponendo di avere un elenco di valori nella colonna A e ora si desidera aumentare il numero di 1 nella colonna B quando il valore nella colonna A cambia, il che significa che i numeri nella colonna B aumentano fino a quando il valore nella colonna A cambia, quindi il L'incremento del numero inizia di nuovo da 1 come mostrato nell'immagine a sinistra. In Excel, puoi risolvere questo lavoro con il seguente metodo.
  • Somma celle quando il valore cambia in un'altra colonna
  • Quando si lavora su un foglio di lavoro Excel, a volte potrebbe essere necessario sommare le celle in base a un gruppo di dati in un'altra colonna. Ad esempio, qui, voglio sommare gli ordini nella colonna B quando i dati cambiano nella colonna A per ottenere il seguente risultato. Come hai potuto risolvere questo problema in Excel?
  • Inserisci righe vuote quando il valore cambia in Excel
  • Supponendo di avere un intervallo di dati e ora si desidera inserire righe vuote tra i dati quando il valore cambia, in modo da poter separare gli stessi valori sequenziali in una colonna come mostrato nelle schermate seguenti. In questo articolo, parlerò di alcuni trucchi per risolvere questo problema.
  • Esegui macro quando il valore della cella cambia in Excel
  • Normalmente, in Excel, possiamo premere il tasto F5 o il pulsante Esegui per eseguire il codice VBA. Ma hai mai provato a eseguire il codice macro specifico quando il valore di una cella cambia? In questo articolo, introdurrò alcuni trucchi rapidi per affrontare questo lavoro in Excel.

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
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