Как активировать лист с помощью vba?

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

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

Рабочий лист. Метод активации

В этом методе вы можете указать имя или номер листа, который хотите активировать. Допустим, вам нужно активировать лист 1, тогда код будет такой:

 Worksheets("Sheet1").Activate

Или вы также можете использовать номера листов.

 Worksheets("1").Activate

Итак, окончательный код будет:

 Sub ActivateSheet1() Worksheets("Sheet1").Activate End Sub

Примеры: активация электронной таблицы с помощью VBA

В реальной жизни вы можете использовать этот метод по-разному. Вот некоторые из них.

1. Активируйте электронную таблицу при открытии

Если вы хотите активировать определенный лист каждый раз, когда вы открываете книгу, назовите этот код VBA auto_open.

 Sub auto_open() Worksheets("Sheet1").Activate End Su

2. Включите один лист и скройте все остальные.

Возможно, вы хотите перейти на один лист и скрыть все остальные листы в книге. Вы можете сделать это, используя код ниже.

 Sub HideWorksheet() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name <> "Sheet1" Then ws.Visible = xlSheetHidden End If Next ws End Sub

Измените имя листа из приведенного выше кода, чтобы сделать его более полезным.