При работе с большими книгами Excel может быть сложно перемещаться по нескольким страницам. Однако с помощью Visual Basic для приложений (VBA) вы можете автоматизировать процесс поиска номеров страниц в вашей книге. В этой статье мы рассмотрим несколько способов добиться этого на примерах кода VBA.

Метод 1. Использование свойства ActiveWindow:
Свойство ActiveWindow в VBA позволяет получить доступ к информации о текущем окне. Вы можете получить номер страницы активного листа, используя следующий фрагмент кода:

Sub FindPageNumber_ActiveWindow()
    Dim pageNumber As Long
    pageNumber = ActiveWindow.SelectedSheets(1).Page
    MsgBox "The active sheet is on page: " & pageNumber
End Sub

Метод 2. Использование свойства HPageBreaks.
Если в книге определены горизонтальные разрывы страниц, вы можете использовать свойство HPageBreaks для определения номера страницы конкретной ячейки. Рассмотрим следующий пример:

Sub FindPageNumber_HPageBreaks()
    Dim targetCell As Range
    Dim pageNumber As Long

    Set targetCell = ThisWorkbook.Worksheets("Sheet1").Range("A1")
    pageNumber = targetCell.HPageBreaks(1).Location.Page
    MsgBox "Cell " & targetCell.Address & " is on page: " & pageNumber
End Sub

Метод 3. Использование объекта PageSetup:
Объект PageSetup обеспечивает доступ к различным свойствам макета страницы. Вы можете использовать объект PageSetup для получения номера страницы определенного листа. Вот пример:

Sub FindPageNumber_PageSetup()
    Dim targetSheet As Worksheet
    Dim pageNumber As Long

    Set targetSheet = ThisWorkbook.Worksheets("Sheet1")
    pageNumber = targetSheet.PageSetup.Page
    MsgBox "Sheet " & targetSheet.Name & " is on page: " & pageNumber
End Sub

Метод 4. Использование свойства PrintPreview:
Свойство PrintPreview позволяет определить номер страницы определенного листа, пока он находится в режиме предварительного просмотра перед печатью. Рассмотрим следующий фрагмент кода:

Sub FindPageNumber_PrintPreview()
    Dim targetSheet As Worksheet
    Dim pageNumber As Long

    Set targetSheet = ThisWorkbook.Worksheets("Sheet1")
    targetSheet.PrintPreview
    pageNumber = targetSheet.PageSetup.Page
    MsgBox "Sheet " & targetSheet.Name & " in print preview mode is on page: " & pageNumber
End Sub

Используя VBA в Excel, вы можете легко находить номера страниц в книге различными методами. Если вам нужно получить номер страницы активного листа, конкретной ячейки или листа, эти примеры кода обеспечивают основу для автоматизации идентификации номеров страниц в ваших файлах Excel. Поэкспериментируйте с этими методами и настройте их в соответствии со своими конкретными требованиями, чтобы повысить производительность при работе с большими книгами Excel.

Не забудьте сэкономить время и силы, внедрив эти методы VBA в макросы Excel, и воспользуйтесь преимуществами мощных возможностей автоматизации, которые они предлагают.