过滤数据透视表的最后一项 (vba)

Question

SNapshot 我有一个只需要显示最后 13 个项目（周）的数据透视表。下面是我使用的代码。但是，无论透视中项目的可见状态如何，它都不会改变，甚至强制它为真/假。已经尝试过 if/else 语句，但仍然可见状态没有改变。

感谢您对此的帮助。谢谢！

Sub ShowLastXDays()
Dim pi As PivotItem
Dim lLoop As Long
Dim pt As PivotTable
Dim pf As PivotField
Dim lCount As Long
Dim lDays As Long
Dim Count As Long

On Error Resume Next
lDays = 13


' Application.ScreenUpdating = False
Set pt = ActiveSheet.PivotTables("WeeklyPivot")
' Count = pt.PivotFields("[FTYieldData].[Week].[Week]").PivotItems.Count

  Set pf = ActiveSheet.PivotTables("WeeklyPivot").PivotFields("[FTYieldData].[Week].[Week]")

        For Each pi In pf.PivotItems
            pi.Visible = False  'issue encountered. after False code, pi.VISIBLE value remains TRUE (not skipped)
        Next pi

    With pt.PivotFields("[FTYieldData].[Week].[Week]")
        Count = .PivotItems.Count
        For lLoop = .PivotItems.Count To 1 Step -1
            .PivotItems(lLoop).Visible = True  'issue encountered. after TRUE code, since earlier it was not change to FALSE (no error encountered)
            lCount = lCount + 1
            If lCount = lDays Then Exit For
        Next lLoop
    End With

  On Error GoTo 0

Answer 1

问题：

• .ClearFilters 在您的代码中使所有项目一次可见。因此，隐藏所有项目的循环不再有效。之后，您将循环将其中一些项目设置为 Visible，这不会应用，因为所有项目都已经可见。
• On Error Resume Next。您无法隐藏数据透视字段中的所有项目，这应该会给您一个错误，至少一个项目应该是可见的。所以在你的第一个循环中你会得到一个错误。

试试：

    Sub ShowLastXDays()
    Dim pf As PivotField
    Dim i As Integer

        ActiveSheet.PivotTables("WeeklyPivot").RefreshTable
        ActiveSheet.PivotTables("WeeklyPivot").PivotCache.MissingItemsLimit = xlMissingItemsNone


        Set pf = ActiveSheet.PivotTables("WeeklyPivot").PivotFields("[FTYieldData].[Week].[Week]")

        For i = 1 To pf.PivotItems.Count
            If i > pf.PivotItems.Count - 13 Then
                  pf.PivotItems(i).Visible = True
            Else: pf.PivotItems(i).Visible = False
            End If
        Next i

    End Sub

工作：

注意：使用On Error Resume Next 不是一个好方法，因为它只会跳过错误，这在调试时有时会非常混乱。相反，您应该尝试处理错误。