vba - 清除 Power Pivot 切片器

Question

有没有人知道清除工作簿中切片器的好方法。我有一张带有许多切片器的工作表，我想有一个按钮来清除它们。

我写了一些 VBA 来做到这一点，但它有点慢：

Sub ClearSlicers()
  Dim cache As SlicerCache

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

只是想知道你有没有什么更光滑的东西？

谢谢约翰

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