EXCEL VBA按日期范围筛选轴心行标签

你好

我试图通过单元格引用（“E6:E12”）根据其他单元格中的日期范围（基本上是选择日期以及过去6天）过滤透视表行标签（“日期”）

我在谷歌上搜索了很多，找到了一些代码，这些代码非常有效；但是，代码会随机中断，不确定原因

有人能提出一个更简单的VBA来根据日期范围过滤行标签吗

代码：

---

不管怎样，第二个代码起作用了，我无意中调用了代码中不正确的透视表：

Call Filter_PivotField_by_Date_Range( _
PT.PivotFields("Date"), dtFrom, dtTo)

我只是把PT改成了PT1，瞧：） 希望这能帮助将来有类似问题的人

Dim dtFrom As Date, dtTo As Date

With Sheets("Sheet1")
    dtFrom = .Range("E12")
    dtTo = .Range("E7")
End With

With PT1
Call Filter_PivotField_by_Date_Range( _
    PT.PivotFields("Date"), dtFrom, dtTo)
End With

Call Filter_PivotField_by_Date_Range( _
PT.PivotFields("Date"), dtFrom, dtTo)