В тази статия ще създадем макрос за вмъкване на прекъсвания на страници въз основа на определено условие.
Необработените данни се състоят от агенти, които включват име на агент, име на клиент, телефонен номер и имейл име.
Искаме данни на конкретен агент на отделни страници по време на печат. И така, искаме да вмъкнем прекъсване на страница в края на данните на всеки агент.
Логично обяснение
Създадохме макрос „InsertingPagebreak“, за да вмъкнем прекъсване на страница. Правим сравнение на стойностите на 2 последователни клетки в първата колона, за да намерим последната клетка, свързана с конкретен агент, и вмъкнем прекъсване на страница.
Обяснение на кода
ActiveSheet.ResetAllPageBreaks
Горният код се използва за премахване на всички предишни разкъсвания на страници, вмъкнати в листа.
Ако клетки (LngRow, LngCol). Значение на клетките (LngRow - 1, LngCol).
Горният код се използва за сравняване на последователни клетки в първата колона.
ActiveWindow.SelectedSheets.HPageBreaks.Add Before: = Cells (LngRow, LngCol)
Горният код се използва за вмъкване на прекъсвания на страници преди посочените клетки.
Моля, следвайте кода по -долу
Sub InsertingPagebreak () "Деклариране на променливи Dim LngCol като дълъг Dim LngRow, MaxRow As Long" Изчистване на съществуващите прекъсвания на страници ActiveSheet.ResetAllPageBreaks LngCol = 1 'Получаване на номер на ред от последната клетка MaxRow = Range ("A11"). SpecialCells (xlCellTypeLast „Превключване през всички редове, започвайки от тринадесетия ред For LngRow = 13 To MaxRow“ Сравняване на стойности в клетка от два последователни реда за посочената колона If Cells (LngRow, LngCol). Value Cells (LngRow - 1, LngCol). Вмъкване на прекъсване на страница ActiveWindow.SelectedSheets.HPageBreaks.Add Before: = Cells (LngRow, LngCol) End If Next LngRow End Sub
Ако този блог ви е харесал, споделете го с приятелите си във Facebook. Също така можете да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим работата си и да я направим по -добра за вас. Пишете ни на имейл сайта