U ovom ćemo članku stvoriti makronaredbu za umetanje prijeloma stranica na temelju određenog uvjeta.
Sirovi podaci sastoje se od agenata koji uključuju naziv agenta, ime klijenta, telefonski broj i id e -pošte.
Želimo podatke o određenom agentu na zasebnim stranicama tijekom ispisa. Dakle, želimo umetnuti prijelom stranice na kraju podataka svakog agenta.
Logično objašnjenje
Napravili smo makro "InsertingPagebreak" za umetanje prijeloma stranice. Napravimo usporedbu vrijednosti 2 uzastopne ćelije u prvom stupcu kako bismo pronašli posljednju ćeliju vezanu za određenog agenta i umetnuli prijelom stranice.
Objašnjenje koda
ActiveSheet.ResetAllPageBreaks
Gornji kôd koristi se za uklanjanje svih prethodnih prijeloma stranica umetnutih u list.
Ako ćelije (LngRow, LngCol) .Vrijedne ćelije (LngRow - 1, LngCol) .Vrijedite tada
Gornji kôd koristi se za usporedbu uzastopnih ćelija unutar prvog stupca.
ActiveWindow.SelectedSheets.HPageBreaks.Add Before: = Cells (LngRow, LngCol)
Gornji kôd koristi se za umetanje prijeloma stranice prije navedenih ćelija.
Molimo slijedite dolje za kôd
Sub InsertingPagebreak () 'Deklariranje varijabli Dim LngCol kao dugo Dim LngRow, MaxRow As Long' Očisti postojeće prijelome stranica ActiveSheet.ResetAllPageBreaks LngCol = 1 'Dobivanje broja retka zadnje ćelije MaxRow = Range ("A11"). SpecialCells (xlCellTypeRastCell 'Petlja kroz sve retke počevši od trinaestog reda Za LngRow = 13 do MaxRow' Usporedba vrijednosti u ćeliji od dva uzastopna retka za navedeni stupac If Cells (LngRow, LngCol) .Vrijednost ćelija (LngRow - 1, LngCol) .Vrijednost Zatim ' Umetanje prijeloma stranice ActiveWindow.SelectedSheets.HPageBreaks.Add Before: = Cells (LngRow, LngCol) End If Next LngRow End Sub
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte