Выберите только один элемент слайсера в слайсере

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