VBA代码清除所有切片器过滤器并选择

Question

我有一个非常简单的VBA代码，我想首先清除切片器中的所有过滤器，然后选择RB。

以下是我使用的代码但没有成功：

ActiveWorkbook.SlicerCaches("Slicer_Manufacturer1").ClearManualFilter    
With ActiveWorkbook.SlicerCaches("Slicer_Manufacturer1")
.SlicerItems("RB").Selected = True
End With
End Sub

有人可以帮忙吗？

Answer 1

试试这个，让我知道会发生什么：

Dim cache As SlicerCache 

For Each cache In ActiveWorkbook.SlicerCaches 
 cache.ClearManualFilter 
Next cache

With ActiveWorkbook.SlicerCaches("Slicer_Manufacturer1")
.SlicerItems("RB").Selected = True
End With
End Sub