通过单元格值过滤切片器

Question

我希望能够通过我在工作表中手动键入的单元格值的内容来过滤切片器。

我有切片器“country_of_origin”，它控制三个数据透视表“applications”、“decisions”、“invitations”。 我想通过在单元格 B2 中手动输入的“原产国”过滤切片器，而不滚动切片器列表中的整个国家列表。

我尝试录制宏，但这对我来说不是一个解决方案，因为如果我在工作表的单元格中手动输入国家/地区名称，它将无法正常工作。看起来是这样的：

slicer_Country_of_origin")
        .SlicerItems("ALBANIA").Selected = True
        .SlicerItems("AFGHANISTAN").Selected = False
        .SlicerItems("ALGIERIA").Selected = False
        .SlicerItems("ARMENIA").Selected = True
    End With
End Sub

我进一步在 mrexcel.com 论坛上找到了一些代码，我复制了它，将切片器的名称更改为“原产国”并将单元格的位置更改为“$b$2”。

sub Macro6()   
' sheet module
    Private Sub Worksheet_Change(ByVal Target As Range)
        Dim sc As SlicerCache, si As SlicerItem
        If Target.Address = "$B$2" Then                    
            Set sc = ActiveWorkbook.SlicerCaches("Country of origin")      ' desired slicer
            sc.ClearAllFilters
            For Each si In sc.SlicerItems
                If si.Caption = CStr(Target) Then
                    si.Selected = True
                Else
                    si.Selected = False
                End If
            Next
        End If
    End Sub

启动此宏后，行后 sub Macro6() 我收到了消息：

编译错误：预期结束子。

我想转换/更正代码，以满足我的需求，即通过我在工作表中手动键入的单元格值的内容来过滤切片器。**

Answer 1

您的代码无效。应该是

sub Macro6()   
' sheet module
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sc As SlicerCache, si As SlicerItem
    If Target.Address = "$B$2" Then                    
        Set sc = ActiveWorkbook.SlicerCaches("Country of origin")      ' desired slicer
        sc.ClearAllFilters
        For Each si In sc.SlicerItems
            If si.Caption = CStr(Target) Then
                si.Selected = True
            Else
                si.Selected = False
            End If
        Next
    End If
End Sub

请注意，Worksheet_Change 是一个事件，不会出现在您可以运行宏的列表中。此宏不能手动运行，它会在每次更改单元格时自动运行。