如何使用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

更改上面代码中的工作表名称以使其更有用。

添加评论

您的邮箱地址不会被公开。 必填项已用 * 标注