是否可以通过工作表事件实现表格长度随切片器选择项目变化

凡尘158

目前只是用几个按钮分别指定了对应的宏命令，缺点是，只能一个一个的显示，不能实现多个项目同时选择，图表左上角的图列在全年状态下和各个月状态下位置不固定。

是否可以通过工作表事件实现表格的长度随切片器选择项目的多少而变化？

正常情况下图表的长度是不随切片器中选择项目的多少而改变的，
这就造成当切片器选择一个项目或选择全部项目时，要不就是所有的图形全部挤在一起
要不就是图形分散的距离很远，影响使用体验。
想要实现的效果：当切片器选择一个项目时，图表是正常的设置好的大小以及图形之间合理的距离。

                         当切片器选择两个项目时，图表的总长度变为两倍，
                         当切片器选择三个项目时，图表的总长度变为三倍，
                         以此类推
                         这样可以保证图形之间的距离大致不变。


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim slc As Slicer
    Dim slicerItem As slicerItem
    Dim selectedCount As Integer
    Set slc = ActiveWorkbook.SlicerCaches("切片器_月份").Slicers(1)
    selectedCount = 0
    For Each slicerItem In slc.SlicerCache.SlicerItems
        If slicerItem.Selected Then
            selectedCount = selectedCount + 1
        End If
    Next slicerItem

    For n = 1 To 12
    If selectedCount = n Then
        ActiveSheet.ChartObjects("图表 4").Width = ActiveSheet.ChartObjects("图表 4").Width * n
    End If
    Next
End Sub

这个写的好像不对，选择切片器多个项目时，在任意单元格先点击一下，图表才会变大，
但是如果切片器上面仅仅选择了两个或三个项目，鼠标在任意单元格里面随便点几下，图表宽度就增加几下，不会受到切片器选择项目多少约束。
但是如果切片器上面只选中一个项目，鼠标怎么点，图表都不变，
不知道代码里面哪里出错了。
3月目标达成情况统计（2024-03-02）.rar (126.99 KB, 下载次数: 1)

2024-3-4 19:36 上传

点击文件名下载附件

铁马1980

切片器可以指定宏，就是用着不爽快。只要你单击了切片器，无论是否选择了月份，都会触发指定宏，造成点选无效。折中办法是先右键单击切片器，让切片器进入选定状态（四周有框线），这样就可以点选月份了。其实可以自己造啊，简单的，月份写进单元格，通过单元格selection_change事件控制，复杂的，弄个小窗体

凡尘158

问题解决，自己琢磨出来了。
但是每次切片器中选择后，都要在任意单元格里面点一下，图表大小才会变。