In questo articolo, creeremo una macro per inserire interruzioni di pagina, in base a una determinata condizione.
I dati grezzi sono dati relativi all'agente, che includono il nome dell'agente, il nome del cliente, il numero di telefono e l'ID e-mail.
Vogliamo i dati di un particolare agente su pagine separate durante la stampa. Quindi, vogliamo inserire un'interruzione di pagina alla fine dei dati di ciascun agente.
Spiegazione logica
Abbiamo creato la macro "InsertingPagebreak" per inserire un'interruzione di pagina. Confrontiamo i valori di 2 celle consecutive nella prima colonna per trovare l'ultima cella relativa a un particolare agente e inseriamo un'interruzione di pagina.
Spiegazione del codice
ActiveSheet.ResetAllPageBreaks
Il codice sopra viene utilizzato per rimuovere eventuali interruzioni di pagina precedenti inserite nel foglio.
If Cells(LngRow, LngCol).Value Cells(LngRow - 1, LngCol).Value Then
Il codice sopra viene utilizzato per confrontare le celle consecutive all'interno della prima colonna.
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(LngRow, LngCol)
Il codice sopra viene utilizzato per inserire interruzioni di pagina prima delle celle specificate.
Si prega di seguire sotto per il codice
Sub InsertingPagebreak() 'Dichiarazione delle variabili Dim LngCol As Long Dim LngRow, MaxRow As Long 'Cancella interruzioni di pagina esistenti ActiveSheet.ResetAllPageBreaks LngCol = 1 'Ottenimento del numero di riga dell'ultima cella MaxRow = Range("A11").SpecialCells(xlCellTypeLastCell).Row 'Esegui il ciclo di tutte le righe a partire dalla tredicesima riga For LngRow = 13 To MaxRow 'Confronto dei valori nella cella di due righe consecutive per la colonna specificata If Cells(LngRow, LngCol).Value Cells(LngRow - 1, LngCol).Value Then ' Inserimento dell'interruzione di pagina ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(LngRow, LngCol) End If Next LngRow End Sub
Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook. Inoltre, puoi seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica