ActiveWorkbook.SlicerCaches("Slicer_xxxxx").ClearManualFilter
我需要取消选择所有的切片器项。我试过这个
For i = 1 To numberOfItems
On Error Resume Next
.SlicerItems(i).Selected = False
Next i
请帮
Public Sub unselectAllBut(slicerName As String, newSelection As String)
ThisWorkbook.SlicerCaches(slicerName).SlicerItems(newSelection).Selected = True
Dim slc As SlicerItem
For Each slc In ThisWorkbook.SlicerCaches(slicerName).SlicerItems
If Not slc.Caption = newSelection Then
slc.Selected = False
End If
Next slc
End Sub
试试这个!:)
交货:unselectAllBut(UrSlicerName, Item的标题你想选择)