In diesem Artikel erstellen wir ein Makro zum Einfügen von Seitenumbrüchen, basierend auf einer bestimmten Bedingung.
Rohdaten bestehen aus agentenbezogenen Daten, die den Namen des Agenten, den Namen des Kunden, die Telefonnummer und die E-Mail-ID umfassen.
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.
Logikerklä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.
Codeerklärung
ActiveSheet.ResetAllPageBreaks
Der obige Code wird verwendet, um alle vorherigen Seitenumbrüche zu entfernen, die in das Blatt eingefügt wurden.
Wenn Cells(LngRow, LngCol).Wert Cells(LngRow - 1, LngCol).Wert Dann
Der obige Code wird verwendet, um aufeinanderfolgende Zellen innerhalb der ersten Spalte zu vergleichen.
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(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() 'Variablen deklarieren Dim LngCol As Long Dim LngRow, MaxRow As Long 'Vorhandene Seitenumbrüche löschen ActiveSheet.ResetAllPageBreaks LngCol = 1 'Zeilennummer der letzten Zelle abrufen MaxRow = Range("A11").SpecialCells(xlCellType .LastCell).Row 'Durchlaufen aller Zeilen ab der dreizehnten Zeile For LngRow = 13 To MaxRow 'Vergleichen von Werten in der Zelle zweier aufeinanderfolgender Zeilen für die angegebene Spalte If Cells(LngRow, LngCol).Value Cells(LngRow - 1, LngCol).Value Then ' Seitenumbruch einfügen ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(LngRow, LngCol) End If Next LngRow End Sub
Wenn Ihnen dieser Blog gefallen hat, teilen Sie ihn mit Ihren Freunden auf Facebook. Außerdem können Sie uns auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site