选择/取消选择切片器时隐藏/取消隐藏行

Question

我正在仪表板中创建一个嵌套的切片器视图，其中两个切片器将在Excel中的两个不同行中彼此相邻。

我希望在选择Slicer1中的任何选项时取消隐藏Slicer2所在的行。当在Slicer1中再次取消选择所有选项，将其重置为显示所有数据时，我想再次隐藏slicer 2所在的行。

我过去曾经使用宏切换来隐藏/取消隐藏行，但是我找不到解决该问题的方法。

Answer 1

我可以使用以下代码解决此问题：

Sub Worksheet_PivotTableUpdate _
    (ByVal Target As PivotTable)

Dim cache As Excel.SlicerCache
Set cache = ActiveWorkbook.SlicerCaches("Slicer_Region1")
Dim sItem As Excel.SlicerItem

For Each sItem In cache.SlicerItems
    If sItem.Selected = True Then
    Rows(69).Hidden = True
    End If

    If sItem.Selected = False Then
    Rows(69).Hidden = False
    End If

Next

End Sub

希望这可以帮助某人。