用于过滤数据透视表的宏

Question

我有一个数据集，我想点击A列中的单元格，它会在不同的工作表上过滤数据透视表。到目前为止我有这个代码：

JsonConverter

它做我想要的但仅适用于一个细胞。我希望能够单击A列中的任何单元格并让单元格值过滤透视表。如何指定范围而不是仅指定一个单元格？

Answer 1

请改为尝试：

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 And Target.Value <> "" Then
        Sheets("Labor Detail").Select
        ActiveSheet.PivotTables("PivotTable1").PivotFields("WBS1").ClearAllFilters
        ActiveSheet.PivotTables("PivotTable1").PivotFields("WBS1").CurrentPage = Target.Value
    End If
End Sub

我摆脱了Selection.Count = 1，因为我不认为他真的在做任何事情。相反，我会针对Target.Value进行测试，以确保您有一些东西来过滤您的数据透视表。