将切片器选择添加到列表中的工作表 - Excel VBA
我有一个带有切片器的数据透视表,用户可以在其中进行多项选择。我试图在切片器中列出所选的值,以便它们可以使用CONCATENATE在另一个单元格中连接在一起。我正在使用下面的代码。 此时,单元格L5:L7填充了切片器中的第一个选择,但没有其他选择。 我做了一些研究,发现了一个可能的CUBESET功能解决方案,但我无法在我的电子表格中使用它。因此VBA尝试。有人知道它有什么问题吗? Sub City_Click() Dim cache As Excel.SlicerCache Set cache = ActiveWorkbook.SlicerCaches("Slicer_City") Dim sItem As Excel.SlicerItem For Each sItem In cache.SlicerItems If sItem.Selected = True Then Range("L5").Value = sItem.Name If sItem.Selected = True Then Range("L6").Value = sItem.Name If sItem.Selected = True Then Range("L7").Value = sItem.Name Next sItem End Sub