Свойство Application.ActiveSheet (Excel)
Возвращает объект, представляющий активный лист (лист сверху) в активной книге или в указанном окне или книге. Возвращает значение Nothing, если отсутствует активный лист.
Синтаксис
выражение.ActiveSheet
выражение: переменная, представляющая объект Application.
Примечания
Если не указать квалификатор объекта, это свойство возвращает активный лист в активной книге.
Если книга отображается в нескольких окнах, свойство ActiveSheet может различаться в разных окнах.
Пример
В этом примере отображается имя активного листа.
MsgBox "The name of the active sheet is " & ActiveSheet.Name
В этом примере создается предварительный просмотр активного листа с номером страницы в верхней части столбца B на каждой странице.
Sub PrintSheets()
'Set up your variables.
Dim iRow As Integer, iRowL As Integer, iPage As Integer
'Find the last row that contains data.
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
'Define the print area as the range containing all the data in the first two columns of the current worksheet.
ActiveSheet.PageSetup.PrintArea = Range("A1:B" & iRowL).Address
'Select all the rows containing data.
Rows(iRowL).Select
'display the automatic page breaks
ActiveSheet.DisplayAutomaticPageBreaks = True
Range("B1").Value = "Page 1"
'After each page break, go to the next cell in column B and write out the page number.
For iPage = 1 To ActiveSheet.HPageBreaks.Count
ActiveSheet.HPageBreaks(iPage) _
.Location.Offset(0, 1).Value = "Page " & iPage + 1
Next iPage
'Show the print preview, and afterwards remove the page numbers from column B.
ActiveSheet.PrintPreview
Columns("B").ClearContents
Range("A1").Select
End Sub
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.