时间戳

首页 > 解决方案 > 循环优化

excel - 循环优化

问题描述

我需要一些建议或技巧来优化这个循环。我的代码有三个循环，如下所示：

Worksheets("Prod.Lines").PivotTables("QTY").PivotFields("Production group").EnableMultiplePageItems = True
        With Worksheets("Prod.Lines").PivotTables("QTY").PivotFields("Production group")
            For i = 1 To .PivotItems.Count - 1
            .PivotItems(.PivotItems(i).Name).Visible = False
            Next i
             .PivotItems("A").Visible = True
             .PivotItems("B").Visible = True
             .PivotItems("BA").Visible = True
        End With

编辑：问题在于“取消选中”此数据透视表中的 60 个数据透视项目。它花费了很多时间，并且每个循环都在清除这些过滤器。所以我的宏必须总共隐藏 180 个项目。

试图解决我的数组问题，但我无法创建一个循环来检查具有已定义数组的单元格的值。

提前感谢您的帮助

标签： excelvba

解决方案

推荐阅读