超级表的切片器-筛选区域动态引用

493861364

研究上一个帖子，发现超级表添加切片器，然后筛选出的动态区域，问题是：不知道怎么直接关联到图表里（附件借助subtotal函数）

百度上，都是添加柱形图，折线图，然后添加切片器，就可以生成动态图表了，但复杂一点的图表，以上步骤实现不了
哪位老师指点一下，感谢赐教！
1、鼠标选切片器的某一个选项，能否返回一个对应的数值，比如index编号1，2，3之类的
2、切片器筛选出来的区域能否直接读取出来，而不是借助subtotal，间接才能获取
3、vba能否有什么属性得到筛选的结果区域

wangg913

第3：

1. Sheets(1).ListObjects(1).DataBodyRange.SpecialCells(xlCellTypeVisible)

复制代码

493861364

wangg913 发表于 2022-9-9 21:37
第3：

返回的是一个数组，感谢版主出手指点，研究一下怎么应用，
祝版主中秋快乐哈！

wangg913

493861364 发表于 2022-9-9 22:03
返回的是一个数组，感谢版主出手指点，研究一下怎么应用，
祝版主中秋快乐哈！

回祝！
返回的是 Range。

493861364

wangg913 发表于 2022-9-9 22:06
回祝！
返回的是 Range。

对的，对的，多谢提醒哈

493861364

wangg913 发表于 2022-9-9 21:37
第3：

拓展了一下版主老师的代码，看起来的效果是单击切片器的选项，图表随着变动，对付能看
实在没找到切片器相关的事件，
直接指定宏后又无法单击选项
想了个曲线的解决办法，单击切片器选项-------公式变动------触发工作表重算-------触发代码-------更新图表
绕了一大圈
代码写的有点乱，有老师要是实在看不下去的话，帮忙优化一下，哈哈
有老师知道更简单触发的切片器选择事件的求指点！




Private Sub Worksheet_Calculate()
Dim rng, arr(1 To 4)

rng = Sheets(1).ListObjects(1).DataBodyRange.SpecialCells(xlCellTypeVisible)
v = "{"
For i = 1 To 4
v = v & rng(1, i + 3) & ";"
Next
v = Left(v, Len(v) - 1) & "}"
   
    ActiveSheet.ChartObjects("图表 3").Activate
    ActiveChart.FullSeriesCollection(1).Values = v
    ActiveChart.FullSeriesCollection(1).XValues = "=Sheet1!$D$1:$G$1"

End Sub

wangg913

493861364 发表于 2022-9-10 12:12
拓展了一下版主老师的代码，看起来的效果是单击切片器的选项，图表随着变动，对付能看
实在没找到切片器 ...

直接硬算。

1. With Me.ChartObjects("图表 3").Chart
   
2.     .FullSeriesCollection(1).Values = Me.ListObjects(1).DataBodyRange.SpecialCells(xlCellTypeVisible).Rows(1).Offset(, 3).Resize(1, 4)
   
3.     .FullSeriesCollection(1).XValues = "=Sheet1!$D$1:$G$1"
   
4. End With

复制代码

493861364

wangg913 发表于 2022-9-10 21:17
直接硬算。

硬核，厉害 我再试试能不能直接指定address

xiaojia8211

1. Dim o_slicer_item As Object
   
2. Dim s_slicer_item As Object
   
3. 
   
4. For Each o_slicer_item In ActiveWorkbook.SlicerCaches("切片器_月1").SlicerItems
   
5.    ' If o_slicer_item.Selected = True Then MsgBox o_slicer_item.Name
   
6.    If o_slicer_item.Selected = True Then Cells(1, 20) = o_slicer_item.Name
   
7. Next
   
8. 
   
9. For Each s_slicer_item In ActiveWorkbook.SlicerCaches("切片器_机构名称2").SlicerItems
   
10.    ' If o_slicer_item.Selected = True Then MsgBox o_slicer_item.Name
    
11.    If s_slicer_item.Selected = True Then Cells(2, 20) = s_slicer_item.Name
    
12. Next

复制代码

这段能读出切片器的选择项

493861364

xiaojia8211 发表于 2022-9-13 11:06
这段能读出切片器的选择项

万分感谢，找到钥匙了
这下就自行可以搜索相关的代码了，感谢不吝赐教！