In diesem Artikel erstellen wir ein Makro zum Einfügen von Seitenumbrüchen, basierend auf einer bestimmten Bedingung.

Rohdaten bestehen aus agentenbezogenen Daten, einschließlich Agentenname, Kundenname, Telefonnummer und E-Mail-ID.

ArrowRawData

Wir möchten, dass die Daten eines bestimmten Agenten beim Drucken auf separaten Seiten angezeigt werden. Daher möchten wir am Ende der Daten jedes Agenten einen Seitenumbruch einfügen.

ArrowOutput

Logische Erklärung

Wir haben das Makro „InsertingPagebreak“ erstellt, um einen Seitenumbruch einzufügen. Wir vergleichen die Werte von 2 aufeinanderfolgenden Zellen in der ersten Spalte, um die letzte Zelle zu finden, die sich auf einen bestimmten Agenten bezieht, und fügen einen Seitenumbruch ein.

Code Erklärung

ActiveSheet.ResetAllPageBreaks Mit dem obigen Code werden alle vorherigen Seitenumbrüche entfernt, die in das Blatt eingefügt wurden.

Wenn Zellen (LngRow, LngCol) .Wert <> Zellen (LngRow – 1, LngCol) .Wert Dann Der obige Code wird verwendet, um aufeinanderfolgende Zellen in der ersten Spalte zu vergleichen.

ActiveWindow.SelectedSheets.HPageBreaks.Add Before: = Zellen (LngRow, LngCol)

Der obige Code wird verwendet, um Seitenumbrüche vor angegebenen Zellen einzufügen.

Bitte folgen Sie unten für den Code

Sub InsertingPagebreak()

'Declaring variables

Dim LngCol As Long

Dim LngRow, MaxRow As Long

'Clear existing page breaks

ActiveSheet.ResetAllPageBreaks

LngCol = 1

'Getting row number of last cell

MaxRow = Range("A11").SpecialCells(xlCellTypeLastCell).Row

'Looping through all the rows starting from thirteenth row

For LngRow = 13 To MaxRow

'Comparing values in cell of two consecutive rows for the specified column

If Cells(LngRow, LngCol).Value <> Cells(LngRow - 1, LngCol).Value Then



'Inserting page break

ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(LngRow, LngCol)



End If



Next LngRow

End Sub

Wenn dir dieser Blog gefallen hat, teile ihn mit deinen Freunden auf Facebook und Facebook.

Wir würden gerne von Ihnen hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns unter [email protected]