如何用VBA根据索引表YES/NO值实现Excel工作表的显示与隐藏

完全可以通过循环逻辑实现，同时可以配合Excel的工作表变更事件，实现修改C列YES/NO后自动触发显隐操作，无需手动运行宏。

1. 进入VBA编辑界面 #

按Alt + F11打开VBA编辑器，在左侧工程资源管理器中找到你的索引工作表，双击打开该工作表的代码编辑窗口。

2. 粘贴如下代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当修改的单元格在C27:C61范围内时触发逻辑
    If Not Intersect(Target, Me.Range("C27:C61")) Is Nothing Then
        Dim i As Integer
        Dim shtName As String
        Dim targetSht As Worksheet
        
        ' 循环遍历27到61行，核心循环逻辑
        For i = 27 To 61
            shtName = Me.Range("B" & i).Value
            ' 跳过B列空值行
            If shtName <> "" Then
                On Error Resume Next
                Set targetSht = ThisWorkbook.Worksheets(shtName)
                On Error GoTo 0
                
                ' 判断工作表是否存在，再处理显隐
                If Not targetSht Is Nothing Then
                    If UCase(Me.Range("C" & i).Value) = "YES" Then
                        targetSht.Visible = xlSheetVisible
                    ElseIf UCase(Me.Range("C" & i).Value) = "NO" Then
                        ' 普通隐藏，用户可手动取消，要彻底隐藏可替换为xlSheetVeryHidden
                        targetSht.Visible = xlSheetHidden
                    End If
                    Set targetSht = Nothing
                End If
            End If
        Next i
    End If
End Sub

3. 代码使用说明 #

• 如果你不需要自动触发，只需要手动运行控制显隐，可以把循环部分的逻辑单独提取出来，放在普通模块中做成可手动执行的宏即可
• 代码中加入了工作表存在性判断，避免B列填写了不存在的工作表名称时程序报错
• 如果不希望普通用户可以手动调出隐藏的工作表，可以把xlSheetHidden替换为xlSheetVeryHidden，隐藏后只有通过VBA才能重新显示

注意事项 #

• 保存文件时需要选择Excel 启用宏的工作簿(*.xlsm)格式，否则VBA代码会被自动清除
• 代码不需要额外修改索引工作表名称，只要确保代码粘贴在对应索引工作表的代码模块中即可生效

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