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