excel - PowerPivot 中 CubeFields 的 "For"循环

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