0

我有一个需要处理的项目列表，有些项目需要更深入的分析。基本上我有两张桌子。第一个显示生产结果，通过过滤列 U，我得到一个异常值列表，如下图所示。

异常值表

然后，S 列中显示的值需要进一步分析，为此设置了数据透视图。在此图表中，我过滤了特定的 VRTY 号码以仔细查看。

用于分析的数据透视图

两张工作表都包含在同一个工作簿中，我基本上是在打开两个窗口的情况下工作的，但要浏览列表，我必须在数据透视过滤器中手动输入每个 VRTY 值。

数据透视图的表和异常值表不相关，数据源不同。

在离群值表 (VRTY) 的 S 列中，理想情况下，我会将值转换为链接，单击时会自动将数据透视过滤器设置为此值。

我是 VBA 的新手，但从我所做的研究来看，这将是唯一的选择——我只是没有得到如何实现这个特定功能的说明。

指示/建议将不胜感激。

4

1 回答 1

0

Sambo：确保PivotChart底层PivotTable中“Number”字段的方向是PageField，然后将以下代码放入Outliers PivotTable所在工作表对应的Sheet代码模块中：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim pf          As PivotField
    Dim pf_Slave    As PivotField

    Set pf = ActiveSheet.PivotTables("PivotTable1").PivotFields("VRTY")
    Set pf_Slave = ActiveSheet.PivotTables("PivotTable2").PivotFields("number")


    If Not Intersect(Target, pf.DataRange) Is Nothing Then
        On Error Resume Next
        pf_Slave.CurrentPage = CStr(Target)
        On Error GoTo 0
    End If

End Sub

根据需要更改“数据透视表 1”和“数据透视表 2”。

“工作表代码模块”是指这种类型的东西： 在此处输入图像描述

于 2016-08-12T11:20:00.560 回答