如何基于单元格下拉菜单隐藏/显示Excel工作表？

思路正确性 #

你的核心思路没问题：遍历指定单元格区域，匹配工作表名称并显示；对未被选中的目标工作表执行隐藏。但现有代码片段不完整，需要补全逻辑，用数组管理目标工作表确实更简便，能避免遗漏或重复操作。

优化后的完整代码 #

Sub ToggleRainSheetsVisibility()
    ' 定义所有需要控制的雨水措施工作表名称数组
    Dim targetSheets As Variant
    targetSheets = Array("Sediment Trap", "Sediment Basin", "Wet Pond", "Swale")
    
    Dim wsName As Variant
    Dim cell As Range
    Dim sheetName As String
    
    ' 第一步：先隐藏所有目标工作表（初始状态或重置）
    For Each wsName In targetSheets
        On Error Resume Next ' 防止工作表不存在报错
        Worksheets(wsName).Visible = xlSheetHidden
        On Error GoTo 0
    Next wsName
    
    ' 第二步：遍历C10:C15区域，显示选中的工作表
    For Each cell In Range("C10:C15")
        sheetName = Trim(cell.Value) ' 去除单元格内容前后空格
        ' 检查当前单元格内容是否在目标数组中
        For Each wsName In targetSheets
            If wsName = sheetName Then
                On Error Resume Next
                Worksheets(sheetName).Visible = xlSheetVisible
                On Error GoTo 0
                Exit For ' 找到匹配项就跳出内层循环
            End If
        Next wsName
    Next cell
End Sub

代码逐行解释 #

• 定义数组：targetSheets把所有需要控制的工作表名称存起来，后续遍历、判断都基于这个数组，逻辑更清晰，修改工作表列表只需改数组内容。
• 初始隐藏：先遍历数组里的所有工作表，统一设为隐藏，确保初始状态符合需求。On Error Resume Next是防止输入的工作表名称不存在时代码崩溃。
• 遍历选中区域：逐个检查C10:C15的单元格内容，先去除空格避免匹配失败，再和数组里的工作表名称比对，匹配成功就设为可见。
• 错误处理：两处On Error语句都是为了增强代码稳定性，避免因单元格为空、工作表名称错误导致程序报错。

自动触发设置 #

你可以把这个宏绑定到工作表的内容更改事件里，这样当C10:C15的内容变化时，代码自动执行：
右键工作表标签→查看代码→粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当修改的单元格在C10:C15范围内时执行宏
    If Not Intersect(Target, Range("C10:C15")) Is Nothing Then
        ToggleRainSheetsVisibility
    End If
End Sub

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