仅选择切片器中的单个切片器项目

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