不在工作表上运行宏

Question

我正在尝试在不同的工作表上激活宏。我编写了一个宏，以便当我从下拉列表中选择一个选项时，它会更新另一张表上的数据透视过滤器字段。问题是我必须在活动表上才能工作。如果有人可以帮忙，我有以下代码，谢谢

Sub FilterPageValue()    
   Dim pvFld As PivotField    
   Dim strFilter As String    
   Set pvFld = ActiveSheet.PivotTables("PivotTable3").PivotFields("Reporting entity")    
   strFilter = ActiveWorkbook.Sheets("Sheet1").Range("b2").Value       
   pvFld.CurrentPage = strFilter        
End Sub    

Answer 1

通过下拉过滤数据透视表

• 您必须在两个代码中调整包含数据透视表的工作表的名称（我选择了Sheet2）。

标准模块，例如Module1

• 此代码将手动运行。

Option Explicit

Sub FilterPageValue()
   
    Dim wb As Workbook: Set wb = ThisWorkbook ' workbook containing this code
    
    ' Worksheet with cell 'B2'.
    Dim sws As Worksheet: Set sws = wb.Worksheets("Sheet1")
    
    ' Worksheet with 'PivotTable3'.
    Dim dws As Worksheet: Set dws = wb.Worksheets("Sheet2") ' adjust! this
    
    
    Dim pvFld As PivotField
    Set pvFld = dws.PivotTables("PivotTable3").PivotFields("Reporting entity")
    
    Dim strFilter As String
    strFilter = sws.Range("B2").Value
    
    pvFld.CurrentPage = strFilter

End Sub

表格模块Sheet1

• 每次您更改单元格 B2 中的值时，此代码将自动运行 Sheet1（下拉菜单）。

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
   
    If Not Intersect(Range("B2"), Target) Is Nothing Then
       
        ' Worksheet with 'PivotTable3': adjust!
        Dim dws As Worksheet: Set dws = ThisWorkbook.Worksheets("Sheet2")
        
        Dim pvFld As PivotField
        Set pvFld = dws.PivotTables("PivotTable3").PivotFields("Reporting entity")
        
        Dim strFilter As String
        strFilter = Target.Value
        
        pvFld.CurrentPage = strFilter
    
    End If

End Sub

跟进

• 您可以将代码重写为带有参数的子代码，以便轻松地为多个数据透视表运行代码。

表格模块Sheet1

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("B2"), Target) Is Nothing Then
        Dim pFilter As String: pFilter = Target.Value
        UpdateCurrentPage "Sheet2", "PivotTable3", "Reporting entity", pFilter
        UpdateCurrentPage "Sheet3", "PivotTable3", "Reporting entity", pFilter
    End If
End Sub

Sub UpdateCurrentPage( _
        ByVal WorksheetName As String, _
        ByVal PivotTableName As String, _
        ByVal PivotFieldName As String, _
        ByVal PivotPage As String)
    Dim wb As Workbook: Set wb = ThisWorkbook
    Dim ws As Worksheet: Set ws = wb.Worksheets(WorksheetName)
    Dim pTable As PivotTable: Set pTable = ws.PivotTables(PivotTableName)
    Dim pField As PivotField: Set pField = pTable.PivotFields(PivotFieldName)
    pField.CurrentPage = PivotPage
End Sub