VBA宏来更改数据透视表中的过滤器

Question

I'm trying do automate a daily report and therefore I want to create two buttons which change the filters of three pivot tables. In detail the buttons shall change the day which is shown. The first filters on yesterday the second one is a reset button do clear all filters and show all days. The "Resest"-Button is working but the "Yesterday"-Button not.

At the moment the macro looks like that:

Private Sub CommandButton2_Click()
    MsgBox ActiveSheet.Range("B1")
    With ActiveSheet.PivotTables("Detail_Digital").PivotFields("Tag").CurrentPage = _
    ACtiveSheet.Range("B1").Value
    End With
End Sub

I've also tried PivotFilters.Add _ , Type:=xlDateYesterday but that isn't working either.

Any suggestions?

Answer 1

Try the code below, it should work, unless your "Date" is formatted differently between the Pivot's data source and Range("B1") .

Note : try to avoid using ActiveSheet , instead use referenced objects. In the case below, replace Worksheets("Sheet1") with your sheet's name.

Code

Option Explicit

Private Sub CommandButton2_Click()

Dim PvtTbl      As PivotTable
Dim PvtItm      As PivotItem

' set the Pivot Table
Set PvtTbl = Worksheets("Sheet1").PivotTables("Detail_Digital")

With PvtTbl
    .PivotFields("Tag").ClearAllFilters ' <-- clear all filters to "Tag"
    'Debug.Print Worksheets("Sheet1").Range("B1").Value
    For Each PvtItm In .PivotFields("Tag").PivotItems
        If PvtItm.Name = Worksheets("Sheet1").Range("B1").Value Then
            PvtItm.Visible = True
        Else
            PvtItm.Visible = False
        End If
    Next PvtItm
End With

End Sub