VBA代码_在几个数据透视表中的字段中更新一个数据透视表项

Question

我在年初至今基础上，所以在前一年，我将按表格更新所选周数（从第1周到本周（见下文））。 有没有办法以相同的方式更新同一工作表中的其他数据透视表，但不是全部或者应该只为下面的每个表操作。

Dim Pi As PivotItem
Dim Pf As PivotFields
Dim Pt As PivotTable

Set Pt = Sheets("FarmSheetPivot"). PivotTables("Farm_2012")
    With Pt.PivotFields("ReportWk")

For Each Pi In .PivotItems
If (Pi.Value) <= Range("b1") Then
                            Pi.Visible = True
                            Else
                            Pi.Visible = False
    End If
Next
End With

End Sub

很多