如何使用 Excel VBA 过滤具有日期范围的数据透视项目

Question

我需要帮助过滤具有日期范围的数据透视项目。这些项目是 2014 年至 2018 年间格式为 YYYY-MM-DD 的日期。我希望只有过去 12 个月的项目在数据透视表中可见。

我想出的代码首先检查数据透视表下拉列表中的所有项目。然后它应该取消选中所有不在 12 个月范围内的项目。

问题：代码没有过滤任何内容，因此所有项目仍然可见。

Dim pivot As PivotItem
Dim currentMonth As Integer
Dim currentYear As Integer
currentMonth = Month(Date)
currentYear = Year(Date)

ActiveSheet.PivotTables("OEMI").RefreshTable
ActiveSheet.PivotTables("OEMI").PivotFields("Date sent to Coordinator").EnableMultiplePageItems = True

For Each pivot In ActiveSheet.PivotTables("OEMI").PivotFields("Date sent to Coordinator").PivotItems
        If Not (Year(pivot) = currentYear And Month(pivot) <= currentMonth) Or _
                (Year(pivot) = currentYear - 1 And Month(pivot) > currentMonth) Then
                    pivot.Visible = False

                Else
                'Do nothing and stay visible in the drop-down list
                End If
    Next pivot

编辑********************** 当代码通过 For Each 循环时，我使用监视窗口查看变量的值和类型。看来我的 pivot.visible = true/false 方法存在类型不匹配问题。任何想法可能是什么问题？ Watch Window

Snippet of the data

Answer 1

我找到了显示过去 12 个月的所有项目的解决方案。我使用了日期的 excel 数值并用它来过滤数据透视项目。

'Define the pivot items
Dim pivot As PivotItem

'Refresh the pivot table
ActiveSheet.PivotTables("OEMI").RefreshTable 'VBA will now use the current pivot item rather than the previously cached _
                                              pivot items


'Add filters for "Date sent to Coordinator"
ActiveSheet.PivotTables("OEMI").PivotFields("Date sent to Coordinator").EnableMultiplePageItems = True 'Select Multiple Items

'Define the date variables
Dim CurrentDate As Long 'Convert the current date to excel numerical date
Dim LastYear As Long
LastYear = CurrentDate - 365 'Numerical value of the date 12 months ago

For Each pivot In ActiveSheet.PivotTables("OEMI").PivotFields("Date sent to Coordinator").PivotItems

    If CLng(pivot) >= LastYear Then
        pivot.Visible = True
    Else
        pivot.Visible = False
    End If

Next pivot

此解决方案非常适合数据透视表的应用。我本身并没有解决问题，但我得到了我需要的东西。

感谢那些花时间阅读帖子并尝试提供帮助的人。

祝你有美好的一天！

Answer 2

DateFrom = DateAdd("yyyy", -1, Date)
DateTo = Date

ActiveSheet.PivotTables("OEMI").PivotCache.Refresh
ActiveSheet.PivotTables("OEMI").PivotFields("Date Sent to Coordinator").ClearAllFilters
ActiveSheet.PivotTables("OEMI").PivotFields("Date Sent to Coordinator").PivotFilters.Add Type:=xlDateBetween, Value1:=DateFrom, Value2:=DateTo