excel實時刷新過濾器

Question

在excel的數據透視表中，我有一個關於某些報告的到期日期的字段列表。

例如，2016年10月5日

我的問題是，每天我都必須選擇日期，以便可以查看報告代碼，但我不希望這樣。 我想要的是，每天打開excel時，過濾器都會自動從10/5/2016更改為11/5/2016。

我應該使用什么功能/ 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 。