📌 Практикум VBA Excel: Объект HPageBreaks. Как установить горизонтальные разрывы страниц по условию

Используя методы и свойства объекта HPageBreaks, можно автоматизировать процесс управления разрывами страниц и улучшить визуальное представление информации на листе Excel.

О том, как установить горизонтальные разрывы страниц по условию обсудим сегодня в обзоре 😉.

Для удобства поиска нужного материала у нас на канале есть удобный рубрикатор, а все видео предыдущих уроков также доступны на youtube (ссылка внизу поста и в описании канала)

Практикум VBA Excel: Объект HPageBreaks. Как установить горизонтальные разрывы страниц по условию

📢 Файл с примером размещен в конце статьи 🔽

Рассмотренный пример позволит автоматически добавлять горизонтальные разрывы страниц после каждой ячейки, содержащей предопределенный пользователем текст "месяц" (независимо от регистра) на активном листе

▶️ Объект HPageBreaks в VBA Excel

- представляет собой часть объекта Worksheet и предназначен для управления горизонтальными разрывами страниц в листе Excel.

Этот объект позволяет программно управлять разбиением страницы на отдельные части при печати документа.

Объект HPageBreaks в VBA Excel

С помощью методов и свойств объекта HPageBreaks можно добавлять, удалять и изменять горизонтальные разрывы страниц, что позволяет оптимизировать отображение данных при печати или просмотре.

▶️ Как установить горизонтальные разрывы страниц по условию

Для целей данного примера в качестве условия определяющего место разрыва примем строку содержащую текст "месяц" (независимо от регистра) на активном листе:

Пример исходных данных

🔘 Решение

Чтобы выполнить поиск ячеек с текстом "месяц" на активном листе Excel и добавляет горизонтальные разрывы страниц после каждой найденной ячейки применим макрос:

Макрос предназначен для автоматического добавления горизонтальных разрывов страниц после каждой ячейки, содержащей текст "месяц" (независимо от регистра) на активном листе

⚙️ Краткое описание

• Объявляем переменную "criteria" типа Range, которая будет использоваться для поиска ячеек с текстом "месяц".
• Set criteria = Cells.Find(What:="месяц", LookAt:=xlPart): находим первую ячейку с текстом "месяц" (регистр не имеет значения) на активном листе Excel и присваивает ее переменной "criteria".
• If Not criteria Is Nothing Then: проверяем, была ли найдена хотя бы одна ячейка с текстом "месяц".

• Do: Начало цикла "Do", который будет выполняться до тех пор, пока условие не будет истинным.

• If criteria Is Nothing Or criteria.Row = 1 Then Exit Do: проверяем, является ли "criteria" пустым или находится ли ячейка в первой строке. Если это так, цикл прерывается (выход из цикла).
• ActiveSheet.HPageBreaks.Add criteria: добавляем горизонтальный разрыв страницы после текущей ячейки "criteria".
• Set criteria = Cells.FindNext(criteria): поиск следующей ячейки с текстом "месяц" и присваивание ее переменной "criteria".

➡️ Результат

На активном листе Excel будут добавлены горизонтальные разрывы страниц после каждой найденной ячейки с текстом "месяц", кроме той, которая находится в первой строке:

Пример решения: Как установить горизонтальные разрывы страниц по условию

🔶 Подводя итог...

Использование объекта HPageBreaks позволяет автоматизировать процесс управления макетом печати в Excel, что может быть полезно при настройке вывода информации на печать в соответствии с определенными требованиями и предпочтениями пользователя.

Рассмотренный пример является типовым решением и может быть дополнен/изменен в соответствии с условиями конкретной задачи.

Подписывайтесь на канал, чтобы не пропустить новые уроки и полезные фишки Excel.

➡️ Изучить дополнительные материалы о VBA Excel, вы можете просмотрев наши предыдущие обзоры 🔽

🙌 Оставайся с нами на связи и узнавай больше о других методах и приемах работы в Excel:

Следите за новостями, чтобы узнать больше о VBA и Excel, в частности.

✅ СКАЧАТЬ ПРИМЕР 🔽

Если вы нашли предоставленный материал полезным, будем благодарны за вашу поддержку