Question

对于我的生活，我无法弄清楚如何为所有立方体字段做一个循环到EnableMultiplePageItems。所以我不得不求助于这样的事情。

Sub MultipleFilter()

ActiveSheet.PivotTables("PivotTable1").CubeFields(1).EnableMultiplePageItems = True
ActiveSheet.PivotTables("PivotTable1").CubeFields(2).EnableMultiplePageItems = True
ActiveSheet.PivotTables("PivotTable1").CubeFields(3).EnableMultiplePageItems = True
ActiveSheet.PivotTables("PivotTable1").CubeFields(4).EnableMultiplePageItems = True
ActiveSheet.PivotTables("PivotTable1").CubeFields(5).EnableMultiplePageItems = True
ActiveSheet.PivotTables("PivotTable1").CubeFields(6).EnableMultiplePageItems = True
ActiveSheet.PivotTables("PivotTable1").CubeFields(7).EnableMultiplePageItems = True
ActiveSheet.PivotTables("PivotTable1").CubeFields(8).EnableMultiplePageItems = True
ActiveSheet.PivotTables("PivotTable1").CubeFields(9).EnableMultiplePageItems = True
ActiveSheet.PivotTables("PivotTable1").CubeFields(10).EnableMultiplePageItems = True
ActiveSheet.PivotTables("PivotTable1").CubeFields(11).EnableMultiplePageItems = True

End Sub

任何帮助将不胜感激！

Answer 1

请参阅：https://msdn.microsoft.com/en-us/library/office/ff193066.aspx

Dim objCubeFld 
For Each objCubeFld In ActiveSheet.PivotTables("PivotTable1").CubeFields 
     objCubeFld.EnableMultiplePageItems = True
Next objCubeFld

Answer 2

我认为这是因为EnableMultiplePageItems对措施不起作用。循环几乎与您预期的一样，但您希望测试每个CubeFieldType的{{1}}属性，并仅为类型为CubeField的属性启用该属性。

xlHeirarchy

欲了解更多信息： https://msdn.microsoft.com/en-us/library/office/ff835244.aspx https://msdn.microsoft.com/en-us/library/office/ff823030.aspx

PowerPivot中的CubeFields的“For”循环

2 个答案: