需要VBA代碼取消選擇所有切片器項目

Question

ActiveWorkbook.SlicerCaches("Slicer_xxxxx").ClearManualFilter 

我需要取消選擇所有切片器項目。 我想這

For i = 1 To numberOfItems 
On Error Resume Next 
.SlicerItems(i).Selected = False 
Next i 

請幫

Answer 1

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，您要選擇的項目標題）