没问题，这个需求完全可以实现！你的思路方向是对的，但之前的代码因为事件选择错误和可能的细节匹配问题导致失效，我来帮你修正并说明关键要点：

核心问题分析 #

你原代码使用了Worksheet_SelectionChange事件，但切片器的选择变化不会触发单元格选择变更事件，这是代码根本没执行的主要原因。另外还要确保切片器缓存名称、选项名称和实际完全匹配（包括大小写、空格）。

修正后的解决方案 #

方案1：使用数据透视表更新事件（推荐，适合切片器关联数据透视表的场景） #

把代码放在ThisWorkbook模块里（右键Excel窗口左上角的工作簿图标→查看代码，就能打开这个模块）：

Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
    ' 检查是否是目标切片器关联的数据透视表
    If Target.Name = "你的数据透视表名称" Then ' 替换成你的透视表实际名称
        Dim slicerCache As SlicerCache
        Set slicerCache = ThisWorkbook.SlicerCaches("Slicer_Chain") ' 确认这个缓存名称正确
        
        ' 检查特定Chain选项是否被选中
        Dim isSelected As Boolean
        isSelected = False
        ' 遍历切片器选项，避免单个选项判断的局限性（比如多选场景）
        For Each item In slicerCache.SlicerItems
            If item.Name = "ChainName" And item.Selected Then
                isSelected = True
                Exit For
            End If
        Next item
        
        ' 控制行的显示/隐藏
        ThisWorkbook.Worksheets("你的工作表名称").Rows("287:346").Hidden = Not isSelected
    End If
End Sub

方案2：使用工作表计算事件（适合切片器关联普通Excel表格的场景） #

如果你的切片器是关联普通Excel表格（而非数据透视表），可以把代码放在目标工作表的模块里：

Private Sub Worksheet_Calculate()
    Dim slicerCache As SlicerCache
    Set slicerCache = ThisWorkbook.SlicerCaches("Slicer_Chain")
    
    Dim isSelected As Boolean
    isSelected = False
    For Each item In slicerCache.SlicerItems
        If item.Name = "ChainName" And item.Selected Then
            isSelected = True
            Exit For
        End If
    Next item
    
    Me.Rows("287:346").Hidden = Not isSelected
End Sub

关键注意事项 #

• 切片器缓存名称：你可以通过右键切片器→「切片器设置」查看准确的缓存名称，确保和代码里的Slicer_Chain完全一致。
• 选项名称：ChainName必须和切片器里的选项名称完全匹配，包括大小写、空格，比如选项是「Main Chain」就不能写成「MainChain」。
• 多选场景处理：上面的代码会在选中目标选项时显示行，不管是否同时选中其他选项；如果需要仅当只选中目标选项时才显示，需要额外判断选中选项的数量。

内容的提问来源于stack exchange，提问作者H.Step