Как удалить кеш-порт для конкретного листа?

Question

У меня есть код, который очищает кешью слайдера таблицы в моей книге. У меня есть две сводные таблицы в книге, и я хотел бы изменить код, чтобы очистить слайсер только на конкретном листе. Кто-нибудь знает, как я могу это изменить?

Dim cache As SlicerCache 
For Each cache In ActiveWorkbook.SlicerCaches 
    If cache.FilterCleared = False Then cache.ClearManualFilter 
Next cache 

Спасибо!

Answer 1

Это должно направить вас в правильном направлении

Sub test() 

Dim pt As PivotTable 
Dim cache As Slicer 

For Each pt In ActiveSheet.PivotTables 
    For Each cache In pt.Slicers 
     cache.SlicerCache.ClearAllFilters 
    Next cache 
Next pt 

End Sub