V tem članku bomo ustvarili makro za vstavljanje prelomov strani na podlagi določenega pogoja.
Neobdelani podatki so posredniški podatki, ki vključujejo ime zastopnika, ime odjemalca, telefonsko številko in e -poštni naslov.
Med tiskanjem želimo podatke določenega zastopnika na ločenih straneh. Zato želimo vstaviti prelom strani na koncu podatkov vsakega agenta.
Logična razlaga
Ustvarili smo makro »InsertingPagebreak« za vstavljanje preloma strani. Primerjamo vrednosti 2 zaporednih celic v prvem stolpcu, da poiščemo zadnjo celico, povezano z določenim agentom, in vstavimo prelom strani.
Razlaga kode
ActiveSheet.ResetAllPageBreaks
Zgornja koda se uporablja za odstranjevanje vseh prelomov strani, vstavljenih v list.
Če celice (LngRow, LngCol) .Vrednost celice (LngRow - 1, LngCol).
Zgornja koda se uporablja za primerjavo zaporednih celic v prvem stolpcu.
ActiveWindow.SelectedSheets.HPageBreaks.Added Before: = Cellls (LngRow, LngCol)
Zgornja koda se uporablja za vstavljanje prelomov strani pred določenimi celicami.
Za kodo sledite spodaj
Sub InsertingPagebreak () 'Razglasitev spremenljivk Dim LngCol kot dolg Dim LngRow, MaxRow As Long' Počisti obstoječe prelome strani ActiveSheet.ResetAllPageBreaks LngCol = 1 'Pridobivanje številke vrstice zadnje celice MaxRow = Range ("A11"). SpecialCells (xlCellTypeLastCell) "Ponavljanje po vseh vrsticah, ki se začnejo od trinajste vrstice Za LngRow = 13 do MaxRow" Primerjava vrednosti v celici dveh zaporednih vrstic za podani stolpec Če celice (LngRow, LngCol). Vrednost celic (LngRow - 1, LngCol). Vstavljanje preloma strani ActiveWindow.SelectedSheets.HPageBreaks.Add Before: = Cells (LngRow, LngCol) End If Next LngRow End Sub
Če vam je bil ta blog všeč, ga delite s prijatelji na Facebooku. Prav tako nam lahko sledite na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo svoje delo in ga izboljšamo za vas. Pišite nam na spletnem mestu e -pošte