EXCEL工作表用宏实现隐藏和显示

Option Explicit

Const str1 As String = "Sheet1"  ' 设置固定表格1的名称
Const str2 As String = "Sheet2"  ' 设置固定表格2的名称

Private Sub CommandButton1_Click()
    Dim i As Integer
    For i = 1 To Sheets.Count
        Select Case Sheets(i).Name
            Case str1, str2
            Case CommandButton1.Caption
                Sheets(i).Visible = xlSheetVisible
            Case Else
                Sheets(i).Visible = xlSheetHidden
        End Select
    Next
End Sub

Private Sub CommandButton2_Click()
    Dim i As Integer
    For i = 1 To Sheets.Count
        Select Case Sheets(i).Name
            Case str1, str2
            Case CommandButton2.Caption
                Sheets(i).Visible = xlSheetVisible
            Case Else
                Sheets(i).Visible = xlSheetHidden
        End Select
    Next
End Sub

Sub test()
    For i = 1 To Sheets.Count
        If Sheets(i).Name = "汇总页" Or Sheets(i).Name = "固定表格1" Or Sheets(i).Name = "固定表格2" Or Sheets(i).Name = ActiveSheet.Name Then
            Sheets(i).Visible = True
        Else
            Sheets(i).Visible = False
        End If
    Next
End Sub

你好，怎么做的，代码可以发给我吗？

思路 变通一下，不通过按钮，通过下拉 选择是不是可以了？