关于不同数据源的透视表切片器联动的问题

zzxww

三张透视表有两个相同项目：区域和城市
代码在2楼，现在只能实现2个切片器的联动，第三个切片器无法联动，还请帮忙看看，谢谢！

zzxww

1. Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
   
2. 
   
3.    If Target.Name = "数据透视表1" Then
   
4.     Call ddd
   
5.    End If
   
6. 
   
7. End Sub
   
8. 
   
9. Sub ddd()
   
10. Application.ScreenUpdating = False
    
11. 
    
12. Application.enableEvents = False
    
13. 
    
14. ActiveSheet.PivotTables("数据透视表1").PivotFields("区域").ClearAllFilters
    
15. 
    
16. Dim cachSlicer1 As SlicerCache
    
17. 
    
18. Dim cachSlicer2 As SlicerCache
    
19. 
    
20. Dim cachSlicer3 As SlicerCache
    
21. 
    
22. Set cachSlicer1 = ThisWorkbook.SlicerCaches("切片器_区域")
    
23. 
    
24. Set cachSlicer2 = ThisWorkbook.SlicerCaches("切片器_区域1")
    
25. 
    
26. Set cachSlicer3 = ThisWorkbook.SlicerCaches("切片器_区域2")
    
27. 
    
28. 
    
29. Dim item As SlicerItem
    
30. 
    
31. Dim item1 As SlicerItem
    
32. 
    
33. Dim item2 As SlicerItem
    
34. 
    
35. 
    
36. For Each item In cachSlicer1.SlicerItems
    
37.    
    
38.     For Each item1 In cachSlicer2.SlicerItems
    
39.         
    
40.         If item1.Name = item.Name Then
    
41.             item1.Selected = item.Selected
    
42.         End If
    
43.     Next item1
    
44. 
    
45. Next item
    
46. 
    
47. For Each item In cachSlicer1.SlicerItems
    
48.    
    
49.     For Each item2 In cachSlicer3.SlicerItems
    
50.         
    
51.         If item2.Name = item.Name Then
    
52.             item2.Selected = item.Selected
    
53.         End If
    
54.     Next item2
    
55. 
    
56. Next item
    
57. 
    
58. Application.ScreenUpdating = True
    
59. 
    
60. Application.enableEvents = True
    
61. 
    
62. End Sub

复制代码

上面这个可以让我的切片器_区域和切片器_区域1连接起来，我动切片器_区域的时候切片器_区域1也会跟着改变，但是切片器_区域2就不会变了。。。。
请大神指教

zzxww

问题已经解决了，现在用着没问题了

赵晨123

zzxww 发表于 2018-10-22 13:56
问题已经解决了，现在用着没问题了

请问您是怎样解决的？我这边还有这样的问题，按照你的编程导入的，但是无法实现

なつぞら

楼主，同问，不同数据源共用一个切片器是如何实现的

wht4451

如何解决的，正面临这样的问题，求告知

小佳旭

wht4451 发表于 2019-9-29 17:17
如何解决的，正面临这样的问题，求告知

请问你的多表联动实现的了吗，会两个的，但不会多个的