图片张数随着切片器选择变化

Tuva

如何让奖杯图张数随着数字的改变而改变

Datous

通过透视表的事件响应，读取切片器-透视表的合计项（没想到非VBA的方法）

1. Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)
   
2.     Dim A
   
3.     With ThisWorkbook.SlicerCaches(1).PivotTables(1)
   
4.         If .RowGrand Then
   
5.             A = .DataBodyRange.Formula
   
6.             MsgBox A(UBound(A), UBound(A, 2))
   
7.         End If
   
8.     End With
   
9. End Sub

复制代码

wxg0007

拿 去,透视表完美解决

Tuva

wxg0007 发表于 2020-9-1 18:25
拿 去,透视表完美解决

能说下操作步骤吗？ 非常感谢

悠悠的炊烟

Tuva 发表于 2020-9-1 19:04
能说下操作步骤吗？ 非常感谢

透视图（条形图）》复制奖杯》粘贴到条形上》选中条形，设置数据系列格式：层叠并缩放

Tuva

悠悠的炊烟 发表于 2020-9-1 22:37
透视图（条形图）》复制奖杯》粘贴到条形上》选中条形，设置数据系列格式：层叠并缩放

我的是2016版，找不到“层叠并缩放”这个选项，还是实现不了你之前图中的效果

悠悠的炊烟

“层叠并缩放”自execl很老的版本到最新的版本一直就有，2016版的应该是这个界面吧