Question

我已经提到了一些与此问题相关的其他线程，但没有一个答案解决了我的问题。我试图在数据透视字段中选择枢轴项目，其日期等于昨天，前天和前天两天。

我已经尝试更改我的代码，以便我只编写xxx.Visible = False（而不是true），刷新表格，并更改＆＃34;每个字段保留的项目数量＆＃34;数据透视表选项为＆＃34;无。＆＃34;

这是我目前的代码 - 非常感谢任何建议！

ActiveSheet.PivotTables("PivotTable1").RefreshTable
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Complete Date"). _
        CurrentPage = "(All)"
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Complete Date")
        .ClearAllFilters
        For Each ptItem In .PivotItems
            If "2/3/15" = ptItem Then     'I still have the problem when I enter an actual date as opposed to the Now function
                ptItem.Visible = True
            ElseIf  (Now - 2) = ptItem Then
                ptItem.Visible = True
            ElseIf  (Now - 3) = ptItem Then
                ptItem.Visible = True
            Else
                ptItem.Visible = False
            End If
        Next
    End With
End Sub

无法设置PivotItem类的Visible属性

0 个答案: