excel实时刷新过滤器

Question

在excel的数据透视表中，我有一个关于某些报告截止日期的字段列表。

例如，10/5/2016

我的问题是，每天我都要选择日期，这样才能看到报告代码，我不希望这样。我想要的是，每天打开excel，过滤器将自2016年10月5日起改为2016年5月11日。

我应该使用什么功能/ VBA？

帮助

Answer 1

如果您需要VBA解决方案，请将以下内容添加到ThisWorkbook代码中。

Private Sub Workbook_Open()

Dim tDay As Date, pf As PivotField
tDay = Date

    Set pf = Sheets("name of worksheet").PivotTables("pivot table name").PivotFields("insert the name of your filter here")

    pf.ClearAllFilters
    pf.CurrentPage = tDay

End Sub

更改工作表名称，数据透视表名称和过滤器名称。

如果您需要对数据透视表进行更多VBA操作，建议您阅读以下http://www.thespreadsheetguru.com/blog/2014/9/27/vba-guide-excel-pivot-tables。