问如何使用VBA通过透视切片器进行筛选？

EN

Option Explicit

Sub Select4Slices()

Dim slicer As SlicerCache
Dim slice As SlicerItem
Dim selectNextOne As Boolean
Dim selectedCount As Integer

Set slicer = ThisWorkbook.SlicerCaches(1)
For Each slice In slicer.SlicerItems
    If slice.Selected Then
        selectNextOne = True
        selectedCount = selectedCount + 1
    Else
        If selectNextOne Then
            slice.Selected = True
            selectedCount = selectedCount + 1
        End If
    End If

    If selectedCount >= 4 Then
       Exit For
    End If
Next slice

End Sub