用于工作表上多个数据透视表的单元格值

Question

我有一个在工作表上运行的仪表板。仪表板由来自不同数据源的多个数据透视表组成。

我希望能够从下拉列表中选择经理姓名来构建此报告并使其正常工作。选择经理名称的单元格是“vp_email_rm_rpt”

我为一个数据透视表工作 - 但是我有 6 个。

我将如何更改它以使其循环到下一个具有不同名称的数据透视表并且可能具有不同的数据透视字段

我很接近 - 但我一直遇到错误。

    Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

'
    Dim rng As Range

    Set rng = Me.Range("rm_email_rm_rpt")
    If Not Application.Intersect(Target, rng) Is Nothing Then

 ' change revenue numbers
        With Sheets("RM_Rpt").PivotTables("RM_Account_List").PivotFields("LVL6_TERRITORY_EMAIL")
            .ClearAllFilters
            If Len(rng.Value) > 0 Then .CurrentPage = rng.Value
        End If

Answer 1

您的代码只需要为每个数据透视表添加额外的部分。理论上，您可以遍历所有内容，而不是专门识别每个内容，但为简单起见，请尝试以下操作。您只需要调整数据透视表名称和字段名称。如果您需要更多，请继续添加。

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.ScreenUpdating = False

    Dim rng As Range

    Set rng = Me.Range("rm_email_rm_rpt")
    If Not Application.Intersect(Target, rng) Is Nothing Then

        ' change revenue numbers
        With Sheets("RM_Rpt").PivotTables("RM_Account_List").PivotFields("LVL6_TERRITORY_EMAIL")
            .ClearAllFilters
            If Len(rng.Value) > 0 Then .CurrentPage = rng.Value
        End With '<this line changes
        With Sheets("RM_Rpt").PivotTables("Pivot Table 2").PivotFields("LVL6_TERRITORY_EMAIL")
            .ClearAllFilters
            If Len(rng.Value) > 0 Then .CurrentPage = rng.Value
        End With '< This line too
    End If
End Sub

编辑以回复评论

刚刚意识到错误。您正在开始一个With 语句，然后用End If 而不是End With 关闭它。我已经更新了上面的代码。试试看吧。

再次编辑以回复评论

原来我忘记了End If。