使用切片器的选定项的值更新单元格值-Excel VBA

我尝试做的是在切片器中单击/选择一个项目，获取其值并用它更新单元格

我在网上做了一些搜索，并设法找到了下面的代码，它部分起作用，但问题是它需要运行（我想要一些正在收听“更改”的内容）才能看到任何更新，我觉得可能有一种更直接、更简单的方法

Sub update_cell()
    Dim x As Variant
    Dim a As Range
    
    Set a = shTestPV.Range("E4")

    For Each x In ActiveWorkbook.SlicerCaches("Slicer_Staff_Name").SlicerItems
        If x.Selected = True Then
            a = x.Value
        End If
    Next x

End sub

---

有什么建议吗？谢谢

如果您在谷歌中键入

vba切片器单击事件站点：stackoverflow.com

，您将看到如此多的线程