I denne artikel vil vi oprette en makro til at indsætte sideskift baseret på en bestemt betingelse.
Rådata består af agent -kloge data, som omfatter agentnavn, klientnavn, telefonnummer og e -mail -id.
Vi ønsker data fra en bestemt agent på separate sider under udskrivning. Så vi vil indsætte et sideskift i slutningen af hver agents data.
Logisk forklaring
Vi har oprettet “InsertingPagebreak” makro for at indsætte et sideskift. Vi foretager sammenligning af værdier for 2 på hinanden følgende celler i den første kolonne for at finde den sidste celle relateret til et bestemt middel og indsætte et sideskift.
Kode forklaring
ActiveSheet.ResetAllPageBreaks
Ovenstående kode bruges til at fjerne eventuelle tidligere sideskift indsat i arket.
If Cells (LngRow, LngCol) .Value Cells (LngRow - 1, LngCol) .Value Then
Ovenstående kode bruges til at sammenligne på hinanden følgende celler i den første kolonne.
ActiveWindow.SelectedSheets.HPageBreaks.Add Before: = Celler (LngRow, LngCol)
Ovenstående kode bruges til at indsætte sideskift før specificerede celler.
Følg venligst nedenstående for koden
Sub InsertingPagebreak () 'Deklarationsvariabler Dim LngCol As Long Dim LngRow, MaxRow As Long' Ryd eksisterende sideskift ActiveSheet.ResetAllPageBreaks LngCol = 1 'Få rækkenummer på sidste celle MaxRow = Range ("A11"). SpecialCells (xlCellTypeLastCell). 'Looping gennem alle rækker, der starter fra trettende række For LngRow = 13 til MaxRow' Sammenligning af værdier i celle af to på hinanden følgende rækker for den angivne kolonne If Cells (LngRow, LngCol) .Value Cells (LngRow - 1, LngCol) .Value Then ' Indsættelse af sideskift ActiveWindow.SelectedSheets.HPageBreaks.Add Before: = Celler (LngRow, LngCol) End If Next LngRow End Sub
Hvis du kunne lide denne blog, kan du dele den med dine venner på Facebook. Du kan også følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet
