0

我创建了一个数据透视表，其中列出了给定日期到商店的访客数量。有 3 列数据，日期列和代表访问者的两列数字。当我从这些数据创建图表时，我得到一个数据条，表示构成数据的日期范围之前和之后的日期。我可以使用以下命令抑制在我想要查看的日期之前发生的所有日期：

With Worksheets("Pivot Tables").PivotTables("Weekly Statistics").PivotFields("Date")
    .PivotItems.Item(1).Visible = False

但是，我找不到一种方法来抑制今天日期之后发生的日期。这让我的条形图上有一列是空白的，并且轴值“>3/27/2013”​​。我可以通过实际输入这一行来抑制它：

    .PivotItems.Item(">3/27/2013").Visible = False

但是每次更新工作表时都必须手动执行此操作很费力，并且使工作表对其他人无法使用。我试图创建一个变量来更新 () 中的值，但我无法让它工作。 

     Dim t
     t = Worksheets("Data").Range("i3").Value   
     .PivotItems.Item(t).Visible = False

（其中i3的一个单元格Worksheet("Data")是日期的串联；在这种情况下，单元格内容是">3/27/2013"）

谢谢

4

1 回答 1

0

您可以尝试使用替代过滤技术：

t="3/27/2013"
Worksheets("Pivot Tables").PivotTables("Weekly Statistics").PivotFields("Date").PivotFilters.Add Type:=xlBefore, Value1:=t

但是，它从 Excel 2007 开始使用。

如果不工作尝试开始：

    Worksheets("Pivot Tables").PivotTables("Weekly Statistics").PivotFields("Date").ClearAllFilters
于 2013-03-28T07:02:31.500 回答