Метод Worksheet.Activate (Excel)
Выражение Переменная, представляющая объект Worksheet .
Замечания
Вызов этого метода эквивалентен выбору вкладки листа.
Пример
В этом примере активируется Лист 1.
Worksheets("Sheet1").Activate Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
Обратная связь
Были ли сведения на этой странице полезными?
Обратная связь
Отправить и просмотреть отзыв по
Как сделать активный лист в excel
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 и обратная связь.
Выбор листов
Вы можете быстро выбрать один или несколько листов, щелкнув по ярлычкам листов в нижней части окна Excel. Можно ввести или изменить данные на нескольких листах одновременно, выделив и сгруппировав их. Кроме того, в Excel можно одновременно отформатировать или распечатать несколько выделенных листов.
Чтобы выделить
Выполните следующие действия
Выберите ярлычок листа, который нужно изменить. Активный лист будет отличаться по цвету от остальных. В данном случае выбран Лист 4.
Если ярлычок нужного листа не виден, найдите его с помощью кнопок прокрутки листов. Добавить лист можно путем нажатия кнопки Добавить лист справа от ярлычков листов.
Несколько смежных листов
Щелкните ярлычок первого листа, а затем, удерживая нажатой клавишу SHIFT, щелкните ярлычок последнего листа в диапазоне, который требуется выделить.
На клавиатуре: сначала нажмите F6, чтобы активировать ярлычки листов. Затем с помощью клавиш СТРЕЛКА ВЛЕВО и СТРЕЛКА ВПРАВО выберите нужный лист и нажмите CTRL+SPACE для его выделения. Повторите действия со стрелками и нажатием клавиш CTRL+SPACE для выбора дополнительных листов.
Несколько несмежных листов
Щелкните ярлычок первого листа, а затем, удерживая нажатой клавишу CTRL, щелкните ярлычки других листов, которые нужно выделить.
На клавиатуре: сначала нажмите F6, чтобы активировать ярлычки листов. Затем с помощью клавиш СТРЕЛКА ВЛЕВО и СТРЕЛКА ВПРАВО выберите нужный лист и нажмите CTRL+SPACE для его выделения. Повторите действия со стрелками и нажатием клавиш CTRL+SPACE для выбора дополнительных листов.
Все листы книги
Щелкните правой кнопкой мыши ярлычок листа и выберите в контекстном меню команду Выделить все листы.
СОВЕТ: После выбора нескольких листов в заголовке в верхней части листа отображается надпись [Группа]. Чтобы отменить выделение нескольких листов книги, щелкните любой невыделенный лист. Если невыделенных листов нет, щелкните правой кнопкой мыши ярлычок выделенного листа и в контекстном меню выберите команду Разгруппировать листы.
- Изменения, вносимые на активном листе, отражаются на всех выделенных листах. При внесении изменений данные заменяются не только на активном листе, но и на других (иногда пользователи забывают об этом).
- Данные, скопированные или вырезанные из сгруппированных листов, нельзя вставить на другой лист, поскольку область копирования включает все слои выделенных листов (отличаясь по размеру от области вставки на отдельном листе). Перед копированием или переносом данных на другой лист убедитесь, что выделен только один лист.
- Если сохранить и закрыть книгу со сгруппированными листами, при последующем открытии файла выделенные листы останутся сгруппированными.
В Excel для Интернета нельзя одновременно выбрать больше одного листа, но выбрать нужный лист очень просто.
-
Щелкните меню Все листы и выберите лист, который нужно открыть.
Дополнительные сведения
Вы всегда можете задать вопрос эксперту в Excel Tech Community или получить поддержку в сообществах.