需要 VBA 代码来取消选择所有切片器项目

【问题标题】：Need VBA Code for Deselect all slicer items需要 VBA 代码来取消选择所有切片器项目
【发布时间】：2014-03-13 08:25:03
【问题描述】：

ActiveWorkbook.SlicerCaches("Slicer_xxxxx").ClearManualFilter

我需要取消选择所有切片器项目。我试过这个

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

请帮忙

【问题讨论】：

标签： excel vba

【解决方案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, 您要选择的项目标题)

【讨论】：