我想知道VBA代码,以便在切片器中一次选择一项。实际上,我有一个有10个项目的切片机。我还记录了宏以查看代码。在该代码中,它使我希望看到的项和所有其他项都为假。我想知道是否有任何其他的方法,我不需要使1为真,所有其他的假。
发布于 2022-09-21 12:24:14
此宏将仅将您在ItemToFilter中指定的项设置为true。
Sub Slicer_Filtering()
Dim SlicerName As String
Dim ItemToFilter As String
Dim sl As SlicerItem
SlicerName = "Slicer_test" 'Change as needed
ItemToFilter = "Test3" 'Change as needed
ThisWorkbook.SlicerCaches(SlicerName).ClearAllFilters
For Each sl In ThisWorkbook.SlicerCaches(SlicerName).SlicerItems
If sl.Name = ItemToFilter Then
sl.Selected = True
Else
sl.Selected = False
End If
Next
End Subhttps://stackoverflow.com/questions/73800333
复制相似问题