关于切片器关联透视表问题

solon

我用sql在一张表上创建了四张透视表，想用切片器把四张透视表按照到款日期辅助列关联起来，当选择2016-01时，四张透视表都切换到1月份数据。
当插入切片器后，发现只有一张透视表可选，别的都没有，如何才能将四张透视表关联起来？
谢谢了~~
下载附件后，请注意重新获取数据，看求助说明。
2016火运到款表.rar (437.35 KB, 下载次数: 199)

2016-4-21 15:17 上传

点击文件名下载附件

solon

select 到款日期辅助列,客户名称,类型Ⅰ,类型Ⅱ,金额,0 as 地销金额 from [2016火运收款$A4:G2000] union all select 到款日期辅助列,客户名称,类型Ⅰ,类型Ⅱ,0,金额 from [2016地销收款$A4:G2000]

ly

请自行完善内容及格式

2016火运到款表.rar (645.09 KB, 下载次数: 210)

2016-4-21 18:10 上传

点击文件名下载附件

solon

ly 发表于 2016-4-21 18:10
请自行完善内容及格式

是下面的vba代码搞定的吗？

1. Sub 宏1()
   
2. '
   
3. ' 宏1 宏
   
4. '
   
5. 
   
6. '
   
7.     With ActiveWorkbook.SlicerCaches("切片器_到款日期辅助列5")
   
8.         .SlicerItems("2016-02").Selected = True
   
9.         .SlicerItems("1900-01").Selected = False
   
10.         .SlicerItems("2016-01").Selected = False
    
11.         .SlicerItems("到款日期辅助列").Selected = False
    
12.         .SlicerItems("(空白)").Selected = False
    
13.         .SlicerItems("2016-03").Selected = False
    
14.         .SlicerItems("2016-04").Selected = False
    
15.     End With
    
16.     With ActiveWorkbook.SlicerCaches("切片器_到款日期辅助列5")
    
17.         .SlicerItems("2016-01").Selected = True
    
18.         .SlicerItems("1900-01").Selected = False
    
19.         .SlicerItems("2016-02").Selected = False
    
20.         .SlicerItems("到款日期辅助列").Selected = False
    
21.         .SlicerItems("(空白)").Selected = False
    
22.         .SlicerItems("2016-03").Selected = False
    
23.         .SlicerItems("2016-04").Selected = False
    
24.     End With
    
25.     With ActiveWorkbook.SlicerCaches("切片器_到款日期辅助列5")
    
26.         .SlicerItems("到款日期辅助列").Selected = True
    
27.         .SlicerItems("1900-01").Selected = False
    
28.         .SlicerItems("2016-01").Selected = False
    
29.         .SlicerItems("2016-02").Selected = False
    
30.         .SlicerItems("(空白)").Selected = False
    
31.         .SlicerItems("2016-03").Selected = False
    
32.         .SlicerItems("2016-04").Selected = False
    
33.     End With
    
34. End Sub

复制代码

ly

solon 发表于 2016-4-22 08:16
是下面的vba代码搞定的吗？

没有用vba，一行代码都没写。

再说，上面的代码在实际工作中是不能发挥作用的！

solon

ly 发表于 2016-4-22 08:51
没有用vba，一行代码都没写。

再说，上面的代码在实际工作中是不能发挥作用的！

能不能说下详细步骤，还是没有搞定

solon

能不能做个动态图示范下？谢谢

ly

solon 发表于 2016-4-22 09:03
能不能做个动态图示范下？谢谢

solon

我的怎么不显示别的透视表？

solon

ly，您好，我做了一个gif动态图片，您帮忙看看我错在哪里，谢谢指点。
看不清的话，复制图片链接，放到浏览器中看即可。