使用Excel更改數據透視表篩選器

Question

我正在開發一種解決方案，以供某些同事使用，並嘗試使其盡可能自動化/簡化。

我的同事有一個主信息表，該信息表通過復制/粘貼從外部來源不斷添加。 該表的示例可以在這里找到

上面的示例中的現有數據為黑色，並在其下方粘貼了新數據（紅色）。 該表位於名為“數據”的工作表上

然后，在名為“數據透視表”的單獨工作表上，通過名為“摘要”的數據透視表對信息進行匯總，如下所示：

我已經設置了一個供同事點擊的按鈕，該按鈕將使用新數據刷新數據透視表。

但是，我在尋找一種方法來更改“摘要”數據透視表的篩選器，以僅顯示最新添加的信息的信息。 在上面的示例中，它將隱藏31/04/2018的訂單並顯示01/05/2018的訂單。

我把下面的內容放在一起，但是不確定是否明智。 或者，我如何使所有其他日期不可見而又不一一列舉。

任何幫助將不勝感激。

謝謝

Sub PivotUpdate()

Dim CurrDate As Date

Worksheets("Data").Activate
CurrDate = Cells(.Rows.Value, "A").End(xlUp).Row

Workbook.RefreshAll

Worksheets("Pivot").Activate
With ActiveSheet.PivotTables("Summary").PivotFields("Date")
    'Clear all other filter items
    PivotItems(CurrDate).Visible = True
End With

結束子

Answer 1

您可以使用我在vba篩選數據透視表中發布的非常全面的功能來執行此操作。 那個答案的許多圖像顯示了它處理的事情，包括顯示最近x天的數據。