vba - 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

很多