În acest articol, vom crea o macro pentru a insera pauze de pagină, pe baza unei anumite condiții.
Datele brute constau în date de agent, care includ numele agentului, numele clientului, numărul de telefon și ID-ul de e-mail.
Vrem date despre un anumit agent pe pagini separate în timpul tipăririi. Deci, dorim să inserăm o întrerupere de pagină la sfârșitul datelor fiecărui agent.
Explicație logică
Am creat macrocomanda „InsertingPagebreak” pentru a insera o întrerupere de pagină. Facem compararea valorilor a 2 celule consecutive din prima coloană pentru a găsi ultima celulă legată de un anumit agent și a insera o întrerupere de pagină.
Explicarea codului
ActiveSheet.ResetAllPageBreaks
Codul de mai sus este folosit pentru a elimina orice pauze anterioare inserate în foaie.
Dacă celulele (LngRow, LngCol). Valorați celulele (LngRow - 1, LngCol). Valorați atunci
Codul de mai sus este utilizat pentru a compara celulele consecutive din prima coloană.
ActiveWindow.SelectedSheets.HPageBreaks.Add Before: = Celule (LngRow, LngCol)
Codul de mai sus este folosit pentru a insera pauze de pagină înainte de celulele specificate.
Vă rugăm să urmați codul de mai jos
Sub InsertingPagebreak () 'Declararea variabilelor Dim LngCol Long Dim LngRow, MaxRow As Long' Șterge paginile existente ActiveSheet.ResetAllPageBreaks LngCol = 1 'Obținerea numărului rândului ultimei celule MaxRow = Range ("A11"). SpecialCells (xlCellTypeLastCell). „Buclarea prin toate rândurile începând de la al treisprezecelea rând Pentru LngRow = 13 până la MaxRow” Compararea valorilor în celulă a două rânduri consecutive pentru coloana specificată If Cells (LngRow, LngCol). Valorați celulele (LngRow - 1, LngCol). Inserarea pauzei de pagină ActiveWindow.SelectedSheets.HPageBreaks.Add Before: = Cells (LngRow, LngCol) End If Next LngRow End Sub
Dacă ți-a plăcut acest blog, distribuie-l prietenilor tăi de pe Facebook. De asemenea, ne puteți urmări pe Twitter și Facebook.
Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți munca noastră și o putem îmbunătăți. Scrieți-ne pe site-ul de e-mail