使用一个切片器更改 Excel 表和数据透视表数据

Question

我有 Excel 表 (Ctr + T)，并在不同的 Excel 选项卡上使用相同的 Excel 表制作了一个数据透视表。 有什么方法可以用一个切片器同时更改（Excel 表和数据透视表）。或者可能更改一个切片器会导致另一个切片器发生变化。

我看过视频和其他问答论坛，它们没有达到目的。

我尝试通过进入切片器中的 报告连接 选项来连接两个切片器。但我找不到第二个切片器名称。

Answer 1

如果您创建两个切片器，一个用于表格，一个用于数据透视表，您可以通过事件宏控制表格切片器。把它放在你的 ThisWorkbook 模块中：

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Dim PivotSlicer As SlicerCache
    Dim TableSlicer As SlicerCache

    Set PivotSlicer = ActiveWorkbook.SlicerCaches("<Name of pivot slicer>")
    Set TableSlicer = ActiveWorkbook.SlicerCaches("<Name of table slicer>")

    Dim PivotSlicerItem As SlicerItem
    Dim TableSlicerItem As SlicerItem

    TableSlicer.ClearAllFilters
    For Each PivotSlicerItem In PivotSlicer.SlicerItems
        Set TableSlicerItem = TableSlicer.SlicerItems(PivotSlicerItem.Name)
        TableSlicerItem.Selected = PivotSlicerItem.Selected
    Next
End Sub

更新第 5 行和第 6 行中切片器的名称。这将遍历数据透视切片器中的项目并将表切片器设置为相同的值。

需要表格切片器，但应使其不可见。