使用VBA按日期间隔过滤数据透视表

Question

我正在编写一个宏，以根据 年份过滤器更改我的数据透视表中的数据。只要数据透视表中的数据在以下字符串格式的2年 - 月 之内，就应该显示。

2016 - 01 
2016 - 05 

日期间隔也是这种格式。 这根本没有更新数据透视表。我感谢任何反馈或替代更新数据透视表给定两个日期间隔作为其过滤器。

私人小组Worksheet_Change（BYVAL目标作为范围）

Dim shPT As Worksheet 
    Dim pt As PivotTable 
    Dim pi As PivotItem 

    Dim d As Date 
    Dim dStart As Date 
    Dim dEnd As Date 

    '' G4 and G7 are the cell locations of the start and ending year-months. 
    dStart = DateSerial(Left(Range("G4"), 4), Right(Range("G4"), 2), 15) 
    dEnd = DateSerial(Left(Range("G7"), 4), Right(Range("G7"), 2), 15) 


    '' Calendar Filter in the Pivot Tables 
    Dim strCal 

    strCal = "Date Entered UTC" 

    On Error Resume Next 
    Application.EnableEvents = False 
    Application.ScreenUpdating = False 


      Set shPT = ActiveWorkbook.Worksheets("PivotTables") 

       For Each pt In shPT.PivotTables 


        With pt.PageFields(strCal) 

         For Each pi In .PivotItems 

          '' Loop through all year-month for each pi. 
          For d = dStart To dEnd Step 30 
           If pi.Value = Year(d) & " - " & Month(d) Then 
            .CurrentPage = Year(d) & " - " & Month(d) 
            Exit For 
           Else 
            .CurrentPage = "(All)" 
           End If 
          Next d 
         Next pi 
        End With 
      Next pt 


    Application.EnableEvents = True 
    Application.ScreenUpdating = True 

结束子

Answer 1

我发现工作的替代方案。 更换

For Each pt In shPT.PivotTables 
      With pt.PageFields(strCal) 

        For Each pi In .PivotItems 

         '' Loop through all year-month for each pi. 
         For d = dStart To dEnd Step 30 
          If pi.Value = Year(d) & " - " & Month(d) Then 
           .CurrentPage = Year(d) & " - " & Month(d) 
           Exit For 
          Else 
           .CurrentPage = "(All)" 
          End If 
         Next d 
        Next pi 
       End With 
     Next pt 

随着

Dim i As Integer 
       Dim checkDate As Date 

       For Each pt In shPT.PivotTables 

        Set pf = pt.PivotFields(strCal) 
        pf.ClearAllFilters 
        pf.EnableMultiplePageItems = True 

        '' Loop through the dates in the Pivot Table. 
        For i = 1 To pf.PivotItems.Count 

         checkDate = DateSerial(Left(pf.PivotItems(i), 4), Right(pf.PivotItems(i), 2), 15) 

         '' If each date is outside the boundaries of the date intervals, then 
         '' turn them off. 
         If checkDate < dStart Or checkDate > dEnd Then 
          pf.PivotItems(i).Visible = False 
         End If 
        Next i 

克里斯·纽曼的blog有枢轴tabless过滤多种选择好的建议。