VBA如何基于双击单元格对应行的值设置跨文件透视表筛选

解决方案 #

首先将代码放置到你当前操作的工作表的代码模块中：按Alt+F11打开VBA编辑器，在左侧工程窗口找到对应工作表，双击打开代码窗口后粘贴下方代码即可：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' 仅响应H列的双击操作
    If Target.Column <> 8 Then Exit Sub
    Cancel = True ' 取消默认双击进入单元格编辑的行为
    
    ' 获取双击行对应C列的筛选值
    Dim filterValue As String
    filterValue = Me.Cells(Target.Row, "C").Value
    
    ' 定位test.xlsx文件
    Dim wbTest As Workbook
    On Error Resume Next
    Set wbTest = Workbooks("test.xlsx")
    On Error GoTo 0
    
    ' test文件未打开的提示，如果你已经实现双击自动打开test文件的逻辑，可替换这段
    If wbTest Is Nothing Then
        MsgBox "请先打开test.xlsx文件", vbExclamation
        Exit Sub
    End If
    
    ' 给透视表设置筛选值
    wbTest.ActiveSheet.PivotTables("PivotTable3").PivotFields( _
        "[Abfrage].[D_JL_NR].[D_JL_NR]").VisibleItemsList = Array( _
        "[Abfrage].[D_JL_NR].&[" & filterValue & "]")
    
    ' 可选：设置完成后跳转至test文件
    wbTest.Activate
End Sub

• 代码直接读取单元格值拼接筛选条件，不需要调用复制粘贴，不会干扰剪贴板内容，运行效率更高
• 如果透视表不在test.xlsx的默认激活工作表，可把wbTest.ActiveSheet改成wbTest.Sheets("你的透视表所在工作表名称")，避免报错

内容的提问来源于stack exchange，提问作者CMag