使用VBA基于单元格值选择PowerPivot切片器

Question

我在使用vba自动化PowerPivot切片器方面遇到了一些问题。我要做的是让切片器更新，只选择某个单元格中的内容。

因此，例如假设单元格是J3，那么在J3中键入的内容就是切片器中更新的内容。

我的切片机中的值只是数字。我目前拥有的代码（不起作用）抛出运行时错误。切片器的公式名称是“Syndicatenumber”，我希望它查看的单元格然后更新是单元格J3。

任何想法/帮助都会非常感激。

非常感谢

 Public Sub Worksheet_Change(ByVal Target As Range)
    Dim SI As SlicerItem
    Application.EnableEvents = False
    If Not Intersect(Target, Range("J3")) Is Nothing Then
        With ActiveWorkbook.SlicerCaches("Slicer_Syndicatenumber")
            .ClearManualFilter
            For Each SI In .SlicerItems
                SI.Selected = UCase(SI.Value) = UCase(Range("J3").Value)
            Next SI
        End With
    End If
ExitSub:
    Application.EnableEvents = True
End Sub