Güç Pivot Dilimleyicileri Temizleme

Question

, çalışma kitabındaki dilimleyicileri temizlemenin iyi bir yolu olduğunu bilen var mı? Birçok dilimleyici içeren bir sayfam var ve bunları temizlemek için tek bir düğmeye sahip olmak istiyorum.

VBA biraz o yapmak yazdım ama biraz yavaş var: Bir şey biraz yağmurluk varsa

Sub ClearSlicers() 
    Dim cache As SlicerCache 

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

Sadece merak ettiniz mi?

Teşekkür John

Answer 1

Bu levha

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