使用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天的数据。