VBA Pivot Table One Cell Reference Различный лист

Question

Я использую этот текущий код для обновления фильтра сводной таблицы на основе значения ячейки (E1) на одном листе. То, что я хотел бы сделать, - это обновить фильтр на основе ячейки в листе с именем summary. Если я установил подачу в текущем поданном равном ячейке в сводке, мне нужно нажать f2 и ввести иначе, это не сработает. Я уверен, что немного подстройки, и мой код может сработать.

Любые советы?

Private Sub Worksheet_Change(ByVal Target As Range) 
Set Target = Range("E1") 
If Target Is Nothing Then Exit Sub 
On Error Resume Next 
Application.EnableEvents = False 
Sheets("Tech Pivot Table").PivotTables("PivotTable2").PivotCache.Refresh 
With Me.PivotTables("PivotTable2") 
    .PivotCache.Refresh 
    .PivotFields("Name").CurrentPage = Target.Value 
End With 
Application.EnableEvents = True 





    End Sub 

Answer 1

Я думаю, проблема в том, что вы изменяете значение целевой переменной перед началом, когда вы должны проверять, есть ли Target = "E1". Попробуйте код ниже и сообщите мне, если он будет работать.

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target = Range("E1") Then 
     If Target Is Nothing Then Exit Sub 
     On Error Resume Next 
     Application.EnableEvents = False 
     Sheets("Tech Pivot Table").PivotTables("PivotTable2").PivotCache.Refresh 
     With Me.PivotTables("PivotTable2") 
      .PivotCache.Refresh 
      .PivotFields("Name").CurrentPage = Target.Value 
     End With 
     Application.EnableEvents = True 
    End If 
End Sub