一个全部取消切片器筛选的宏代码:
Private Sub CommandButton2_Click()
ActiveSheet.Shapes.Range(Array("职称01")).Select
ActiveSheet.Shapes.Range(Array("职称01", "职称02")).Select
ActiveWorkbook.SlicerCaches("切片器_职称01").ClearManualFilter
ActiveWorkbook.SlicerCaches("切片器_职称02").ClearManualFilter
MsgBox ("已复位!")
End Sub
出现报错如下:
