V tomto článku vytvoríme makro na vkladanie zlomov strán na základe určitej podmienky.
Nespracované údaje pozostávajú z údajov agenta, ktoré zahŕňajú meno agenta, meno klienta, telefónne číslo a e -mail.
Pri tlači chceme údaje konkrétneho agenta na oddelených stránkach. Chceme teda vložiť koniec stránky na koniec údajov každého agenta.
Logické vysvetlenie
Vytvorili sme makro „InsertingPagebreak“ na vloženie zlomu stránky. Porovnáme hodnoty 2 po sebe nasledujúcich buniek v prvom stĺpci, aby sme našli poslednú bunku súvisiacu s konkrétnym činiteľom, a vložíme koniec stránky.
Vysvetlenie kódu
ActiveSheet.ResetAllPageBreaks
Vyššie uvedený kód sa používa na odstránenie všetkých predchádzajúcich zlomov stránky vložených do hárka.
Ak bunky (LngRow, LngCol). Hodnota buniek (LngRow - 1, LngCol). Hodnota potom
Vyššie uvedený kód sa používa na porovnanie po sebe nasledujúcich buniek v prvom stĺpci.
ActiveWindow.SelectedSheets.HPageBreaks.Add Before: = Bunky (LngRow, LngCol)
Vyššie uvedený kód sa používa na vloženie zlomov stránky pred zadané bunky.
Pri kódovaní postupujte podľa nižšie uvedených pokynov
Sub InsertingPagebreak () 'Deklarovanie premenných Dim LngCol ako Long Dim LngRow, MaxRow As Long' Vymazať existujúce konce stránok ActiveSheet.ResetAllPageBreaks LngCol = 1 'Získava sa číslo riadku poslednej bunky MaxRow = rozsah („A11“). SpecialCells (xlCellTypeLastCell). „Opakovanie všetkých riadkov od trinásteho riadka pre LngRow = 13 až MaxRow“ Porovnanie hodnôt v bunke dvoch po sebe nasledujúcich riadkov pre zadaný stĺpec If Cells (LngRow, LngCol). Hodnota buniek (LngRow - 1, LngCol). Hodnota potom “ Vkladanie zlomu stránky ActiveWindow.SelectedSheets.HPageBreaks.Add Before: = Bunky (LngRow, LngCol) Koniec Ak Ďalej LngRow Koniec Sub
Ak sa vám tento blog páčil, zdieľajte ho so svojimi priateľmi na Facebooku. Môžete nás tiež sledovať na Twitteri a Facebooku.
Budeme radi, ak sa nám ozvete, dajte nám vedieť, ako môžeme zlepšiť našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku