1

下面的代码在我的使用 Excel 2013 的计算机和另外两台使用 Excel 2010 和 2016 的计算机上运行良好，但它在切片器部分（下面以粗体显示）中为其中一个用户提供了无效的过程。

这是我第一次从其他用户那里看到此错误，并且之前在其他报告中使用过此错误。我不知道是什么原因造成的，因为宏在其他计算机和我的计算机上也能正常工作。

我该如何解决？

   Sheets("Scorecard").Select
**ActiveWorkbook.SlicerCaches("Slicer_Country").ClearManualFilter**
With ActiveWorkbook.SlicerCaches("Slicer_Resourcing_Team")
    .SlicerItems("RT1").Selected = True
    .SlicerItems("RT2").Selected = True
    .SlicerItems("RT3").Selected = True
    .SlicerItems("RT4").Selected = False
End With
4

1 回答 1

1

下面的代码将与名为“Country”和“Resourcing_Team”的 2 个切片器一起使用（在您的工作簿中确认这是切片器的名称）。

建议：尽量避免使用ActiveWorkbook，而是使用完全限定的对象。我在此代码中使用“SO_1.xlsm”，将其修改为您的工作簿名称）。

代码：

Option Explicit

Sub SlicersTst()

Dim WB                      As Workbook
Dim CountrySlcrCache        As SlicerCache
Dim ResourcingSlcrCache     As SlicerCache

Set WB = Workbooks("SO_1.xlsm")
Set CountrySlcrCache = WB.SlicerCaches("Slicer_Country") '<-- set Slicer Cache to "Slicer_Country"      
CountrySlcrCache.ClearManualFilter '<-- clear manual filters

Set ResourcingSlcrCache = WB.SlicerCaches("Slicer_Resourcing_Team") '<-- set Slicer Cache to "Slicer_Resourcing_Team"
With ResourcingSlcrCache
    .SlicerItems("RT1").Selected = True
    .SlicerItems("RT2").Selected = True
    .SlicerItems("RT3").Selected = True
    .SlicerItems("RT4").Selected = False
End With

End Sub
于 2017-01-22T08:50:22.850 回答