[英]Need VBA Code for Deselect all slicer items
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,您要选择的项目标题)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.