excel - 工作表的组合框选择，隐藏和取消隐藏工作表

Question

我创建了这个 VBA，它链接到名为“ActiveX”的主工作表上的组合框。即使更改了工作表名称、添加或删除了工作表，此组合框也会自动填充每个现有工作表的名称。 When a dropdown item of the combobox representing a worksheet is selected, the user is taken to the selected worksheet.

我正在做的工作是尝试添加:

在选定的工作表上，我想添加一个按钮，将我带回到名为“ActiveX”的主工作表

隐藏除选定工作表和名为“activeX”的工作表(即主菜单工作表)之外的所有工作表

由于用户偶尔可以添加或删除其他工作表，因此是否可以仅将按钮自动插入选定的工作表。而不必为每个工作表添加一个按钮？

我在创建 VBA 代码方面效率不高，所以我尝试从类似这样的网站复制、修改和改编。

`Private Sub cbSheet_Change()
      If cbSheet.Value <> "Select Item" Then
      Worksheets(cbSheet.Value).Select
      End If
      cbSheet.Value = "Select Item"
End Sub

Private Sub Worksheet_Activate()
     Dim Sh As Worksheet
     Me.cbSheet.Clear
     For Each Sh In ThisWorkbook.Worksheets
     Me.cbSheet.AddItem Sh.Name
 Next Sh

End Sub

Answer 1

隐藏和取消隐藏工作表

Sub Hide_SH()
    Dim sh As Worksheet
    For Each sh In Sheets
        If sh.Name <> "ActiveX" Then sh.Visible = False
    Next sh
End Sub
Sub UnHide_SH()
    Dim sh As Worksheet
    For Each sh In Sheets
        sh.Visible = True
    Next sh
End Sub

您可以将超链接添加到选定的工作表。

Private Sub cbSheet_Change()
    Dim ws As Worksheet
    If cbSheet.Value <> "Select Item" Then
        Set ws = Sheets(Me.cbSheet.Value)
        With ws
            .Visible = True
            .Select
            .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", SubAddress:= _
                            "ActiveX!A1", TextToDisplay:="ActiveX!A1"
        End With
    End If
    cbSheet.Value = "Select Item"
End Sub