Ссылки на листы по номеру индекса
Номер индекса — это последовательный номер, присваиваемый листу, основанный на положении его вкладки листа (отсчет слева) между листами того же типа. Следующая процедура использует свойство Worksheets для активации первого листа в активной книге.
Sub FirstOne() Worksheets(1).Activate End Sub Если вы хотите работать со всеми типами листов (листами, диаграммами, модулями и листами диалоговых окон), используйте свойство Листы . Следующая процедура активирует четвертый лист в книге.
Sub FourthOne() Sheets(4).Activate End Sub Примечание Порядок индексов может измениться при перемещении, добавлении или удалении листов.
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
Обратная связь
Были ли сведения на этой странице полезными?
Ссылки на листы по имени
Листы можно определить по имени с помощью свойств Worksheets и Charts . Следующие инструкции активируют различные листы в активной книге.
Worksheets("Sheet1").Activate Charts("Chart1").Activate DialogSheets("Dialog1").Activate Используйте свойство Sheets для возврата листа, диаграммы, модуля или диалогового листа. Коллекция Листов содержит все эти типы листов. В следующем примере активируется лист с именем Chart1 в активной книге.
Sub ActivateChart() Sheets("Chart1").Activate End Sub Примечание Диаграммы, внедренные в лист, являются членами коллекции ChartObjects, а диаграммы , существующие на собственных листах, относятся к коллекции Диаграммы .
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
Обратная связь
Были ли сведения на этой странице полезными?
Как обратиться к листу excel vba
Argument ‘Topic id’ is null or empty
Сейчас на форуме
© Николай Павлов, Planetaexcel, 2006-2023
info@planetaexcel.ru
Использование любых материалов сайта допускается строго с указанием прямой ссылки на источник, упоминанием названия сайта, имени автора и неизменности исходного текста и иллюстраций.
| ООО «Планета Эксел» ИНН 7735603520 ОГРН 1147746834949 |
ИП Павлов Николай Владимирович ИНН 633015842586 ОГРНИП 310633031600071 |
Свойство 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 и обратная связь.