对于我的生活,我无法弄清楚如何为所有立方体字段做一个循环到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
任何帮助将不胜感激!
答案 0 :(得分:2)
请参阅: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
答案 1 :(得分:0)
我认为这是因为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