使用 VBA 在 Excel 切片器中选择特定项目

问题描述

我正在尝试根据单元格值的更改更改在数据透视表切片器上选择的项目。这就是我这样做的目的：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sc As SlicerCache,si As SlicerItem
    If Target.Address = "$C$3" Then
        Set sc = ActiveWorkbook.SlicerCaches("Slicer_Test")      
        sc.ClearallFilters
      
       If Range("C3").Value = "X" Then
            With ActiveWorkbook.SlicerCaches("Slicer_Test")
                .SlicerItems("Y").Selected = True
                .SlicerItems("Z").Selected = False
                .SlicerItems("M ").Selected = False

             End With
        End If
    End If
End Sub

但是，由于 sc.ClearallFilters，所有值都被选中，但尽管我将它们设置为 false，但值 Z 和 M 并没有在切片器中被取消选择。

有什么想法吗？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）