excel 中用于打开隐藏选项卡并跳转到该选项卡的命令按钮

Question

我对 VBA 不是很有经验，希望社区可以帮助我应对我面临的挑战。我有一个包含大约 20 个选项卡的 excel 工作簿。我正在尝试完成以下任务：

当用户打开工作簿时，只出现一个主选项卡。这对我有用（在这个例子中只有 3 张）

    Private Sub Workbook_Open()
      Sheet1.Visible = xlSheetVisible
      Sheet2.Visible = xlSheetHidden
      Sheet3.Visible = xlSheetHidden
    End Sub

每个隐藏的选项卡都有命令按钮。用户将 select 他们选择的命令按钮，excel 将取消隐藏该选项卡，工作簿将自动跳转到该选项卡（本例中为“test_tab”）。我有下面的代码打开未隐藏的选项卡，但我留在包含所有命令按钮的主选项卡上。我希望命令按钮在单击命令按钮后将用户带到“test_tab”。

    Private Sub CommandButton1_Click()
      ThisWorkBook.Worksheets ("test_tab").Visible = xlSheetVisible
    End Sub

我做了很多研究，看了教程，但 none 似乎有这个确切的用例。希望有人能帮帮我。

Answer 1

您需要添加一行来激活工作表。

Private Sub CommandButton1_Click()
   ThisWorkBook.Worksheets ("test_tab").Visible = xlSheetVisible
   ThisWorkBook.Worksheets ("test_tab").Activate
End Sub

Answer 2

您可以使用 Activate 属性为每个 sheet 编写单独的代码，或者使用“Sheet1”和“.Range(“A1”).Select”选择行在那 sheet.

excel 中用于打开隐藏选项卡并跳转到该选项卡的命令按钮

Command button in excel to open hidden tab and jump to that tab

excel

vba

commandbutton