|
楼主 |
发表于 2022-9-10 12:12
|
显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
拓展了一下版主老师的代码,看起来的效果是单击切片器的选项,图表随着变动,对付能看
实在没找到切片器相关的事件,
直接指定宏后又无法单击选项
想了个曲线的解决办法,单击切片器选项-------公式变动------触发工作表重算-------触发代码-------更新图表
绕了一大圈
代码写的有点乱,有老师要是实在看不下去的话,帮忙优化一下,哈哈
有老师知道更简单触发的切片器选择事件的求指点!
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
|
|