点击隐藏/取消隐藏工作表按钮后如何停留在当前工作表及优化咨询

一、解决点击按钮跳转工作表的问题 #

原代码执行时，Excel会自动激活刚设置为可见的工作表，导致离开当前操作页。只需在代码开头记录当前工作表，操作完成后重新激活即可：

Sub Button()
    Dim currentSheet As Worksheet
    ' 保存当前活动工作表
    Set currentSheet = ActiveSheet
    
    If Range("B8") = "SBEA" Then
        Sheets("SBEA - DataEntry").Visible = Not Sheets("SBEA - DataEntry").Visible
        Sheets("SBEA - CSV").Visible = Not Sheets("SBEA - CSV").Visible
        Sheets("SBEA - Existing Equipment").Visible = Not Sheets("SBEA - Existing Equipment").Visible
    ElseIf Range("B8") = "EO" Then
        Sheets("Amplify - Spaces").Visible = Not Sheets("Amplify - Spaces").Visible
        Sheets("Amplify - Measures").Visible = Not Sheets("Amplify - Measures").Visible
        Sheets("Amplify - Controls").Visible = Not Sheets("Amplify - Controls").Visible
    ElseIf Range("B8") = "" Then
        MsgBox "Please select Project Type in Cell B8"
    End If
    
    ' 切回原来的工作表
    currentSheet.Activate
End Sub

顺便把嵌套的If改成ElseIf，代码结构更简洁易读。

二、列表框与B8联动的建议 #

不是必须用列表框，但用它能优化操作体验：

• 杜绝输入错误：用户只能从预设选项里选，避免手动打错项目名称（比如把"SBEA"写成"SBE"）
• 操作更流畅：可以直接把列表框的选择同步到B8，甚至不用按钮，选完就自动触发工作表显示/隐藏

简单实现步骤（表单控件列表框） #

1. 点击「开发工具」→「插入」→「表单控件」→「列表框」，在工作表上画一个列表框
2. 右键列表框→「格式控件」→「控制」，设置数据源区域为你预先输入项目类型的单元格（比如A1:A2，内容是"SBEA"、"EO"），再把「单元格链接」选B8
3. 保持原来的按钮逻辑，选完列表框后点按钮就能生效

自动触发版本（ActiveX列表框） #

如果想选完列表框直接执行操作，用ActiveX列表框，绑定Change事件：

Private Sub ListBox1_Change()
    Dim currentSheet As Worksheet
    Set currentSheet = ActiveSheet
    
    ' 先隐藏所有相关工作表，避免切换类型时多个系列同时显示
    Sheets("SBEA - DataEntry").Visible = False
    Sheets("SBEA - CSV").Visible = False
    Sheets("SBEA - Existing Equipment").Visible = False
    Sheets("Amplify - Spaces").Visible = False
    Sheets("Amplify - Measures").Visible = False
    Sheets("Amplify - Controls").Visible = False
    
    Select Case ListBox1.Value
        Case "SBEA"
            Sheets("SBEA - DataEntry").Visible = True
            Sheets("SBEA - CSV").Visible = True
            Sheets("SBEA - Existing Equipment").Visible = True
        Case "EO"
            Sheets("Amplify - Spaces").Visible = True
            Sheets("Amplify - Measures").Visible = True
            Sheets("Amplify - Controls").Visible = True
        Case ""
            MsgBox "Please select Project Type"
    End Select
    
    currentSheet.Activate
End Sub

内容的提问来源于stack exchange，提问作者MM1234