すべてのスライサーフィルターをクリアして選択するためのVBAコード

Question

私はまずスライサー内のすべてのフィルターをクリアしてからRBを選択したい非常に単純なVBAコードを持っています。以下は

私は成功せずに使用していますコードです：

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