一直试图将相同的项目列表设置为基于我在工作簿中的多个数据透视表之一中所做的更改的多个OLAP数据透视表。将项目列表设置为多个数据透视表
录制的宏(这将删除旧的选择以及):
Sub GetPivotFilter()
ActiveSheet.PivotTables("Pivottabell4").PivotFields(_
"[DimCampaign].[Campaigns].[Campaign]").VisibleItemsList = Array(_
"[DimCampaign].[Campaigns].[Campaign].&[106679]", _ 'generated after i select campaing
"[DimCampaign].[Campaigns].[Campaign].&[106680]", _'generated after i select campaing
"[DimCampaign].[Campaigns].[Campaign].&[107049]")'generated after i select campaing
End Sub
我如何可以提取改变我的第一枢轴做(我不知道这些数字之前,我作出改变)?
我该如何得到这适用于那些可以添加广告系列选项的数据透视表?
目前的解决方案,我有看起来杂乱无章,但工程:
Sub SetPivotFilter()
ActiveSheet.PivotTables("Pivottabell4").PivotFields(_
"[DimCampaign].[Campaigns].[Campaign]").VisibleItemsList = Array(_
"[DimCampaign].[Campaigns].[Campaign].&[106679]", _
"[DimCampaign].[Campaigns].[Campaign].&[106680]", _
"[DimCampaign].[Campaigns].[Campaign].&[107049]")
ActiveSheet.PivotTables("Pivottabell18").PivotFields(_
"[DimCampaign].[Campaigns].[Campaign]").VisibleItemsList = Array(_
"[DimCampaign].[Campaigns].[Campaign].&[106679]", _
"[DimCampaign].[Campaigns].[Campaign].&[106680]", _
"[DimCampaign].[Campaigns].[Campaign].&[107049]")
'and so on
End Sub
所有帮助是非常赞赏
问题 - 都106679,10680,107049枢轴字段'Campaign'中的所有项目? –
@ShaiRado是的,这一次,但NeXT时间我需要改变活动有可能是或多或少的选定项目 – krib
看到我的答案下面,它不包括设置数据透视表和字段,只筛选您请求的项目枢轴表 –