vba - 有效隐藏枢轴项目

Question

我已经根据数据表提供的数据透视表构建了一个报告。详细信息相当长(数万行)，并且用户希望将数据按特定字段进行汇总，以便他只能向下钻取他感兴趣的总数。

我目前已成功通过循环遍历指定字段的所有数据透视表的所有数据透视项并隐藏它们。但是，这需要大量时间(> 15 分钟)才能运行。有没有办法通过使用不同的流程来优化此任务，或者是否有任何选项可以更快地批量执行此任务(通过设置或选项)？

这是被调用来执行此任务的函数:

Sub groupByjrnl_id()
    Dim ws As Worksheet
    Dim pi As PivotItem
    Dim pt As PivotTable

    Excel.Application.ScreenUpdating = False
    Excel.Application.Calculation = xlCalculationManual

    For Each ws In Worksheets
        If Left(ws.Name, 3) = "rap" Then
            Excel.Application.StatusBar = "Groupement des jrnl_id " & ws.Name
            For Each pt In ws.PivotTables
                With pt.PivotFields("jrnl_id")
                    For Each pi In .PivotItems
                        pi.ShowDetail = False
                    Next pi
                End With
            Next pt
        End If
    Next ws
    Excel.Application.StatusBar = ""

    Excel.Application.ScreenUpdating = True
    Excel.Application.Calculation = xlCalculationAutomatic
End Sub

我使用的是 Excel 2007。谢谢!

Answer 1

是的:您无需枚举数据透视字段的数据透视项，只需使用数据透视字段本身的 .ShowDetail 属性，例如:

替换

For Each pi In .PivotItems
    pi.ShowDetail = False
Next pi

与

.ShowDetail = False