vba - VBA コード _ 複数のピボット テーブル内のフィールドで 1 つのピボット アイテムを更新する

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

どうも