Question

我对数据透视表的切片器有疑问。尝试了几件事，但是没有用。如果以前曾问过这个问题，我真的很抱歉，直到现在我都没有找到解决方案。

因此，我想取消选择某个数据透视表中所有选定的切片器项，然后选择一个存储在变量中的特定项。

这是我的最后一个代码：

Sub select_slicer()

Dim myval As String
myval = "Value1"

Dim sli As SlicerItem

ThisWorkbook.Sheets("mysheet").Activate
    For Each sli In ActiveWorkbook.SlicerCaches("Slicer_Sales")
        If sli.name = myval Then
         sli.Selected = True
        Else
         sli.Selected = False
        End If
Next sli

    End Sub

所有帮助将不胜感激。

Answer 1

未经测试（在与您相似的宏中起作用）：

ThisWorkbook.Sheets("mysheet").Activate
With ActiveWorkbook.SlicerCaches("Slicer_Sales")
For Each sli In .SlicerItems
    If sli.Name = myval Then
     sli.Selected = True
    Else
     sli.Selected = False
End if
Next sli
End With

切片器中仅选择一个切片器项目

1 个答案: