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

Question

I have a question regarding the slicers of a Pivot table. Tried several things but it is not working. I am really sorry if this question has been asked before, I did not find a solution until now.

So I want to dis-select all selected slicer items inside a certain pivot table and then select one specific which is stored inside a variable.

Here is my last code:

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

All help will be appreciated.

Answer 1

Untested (works in one of my macros similar to yours):

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