透视切片器更新慢，我可以暂停所有功能直到切片器更新完成吗？ VBA Excel答案

【问题标题】：Pivot Slicer Update To Slow, Can I pause all functions until slicer update is complete? VBA Excel透视切片器更新慢，我可以暂停所有功能直到切片器更新完成吗？ VBA Excel
【发布时间】：2013-12-14 00:07:27
【问题描述】：

我的电子表格上有一个按钮单击项目，它设置了一个切片器，每个位置都有相应的主管。问题是时间太长了。在切片器上进行每次更改后，例如将“Smith”设置为 true，整个工作簿都会重新计算所有公式，然后再移动到下一个项目。我可以暂停工作簿中的所有公式，直到设置最后一项，然后重新启用它们。

Sub Rectangle_Click()
 ActiveWorkbook.SlicerCaches("Slicer_Supervisor1").ClearManualFilter
    With ActiveWorkbook.SlicerCaches("Slicer_Supervisor1")
        .SlicerItems("Smith").Selected = True
        .SlicerItems("Fox").Selected = True
        .SlicerItems("Dougan").Selected = True
        .SlicerItems("Milton").Selected = True
        .SlicerItems("Johnson").Selected = True
        .SlicerItems("Johnsen").Selected = True
        .SlicerItems("Jones").Selected = False
        .SlicerItems("Davis").Selected = False
        .SlicerItems("Miller").Selected = True
        .SlicerItems("Moore").Selected = False
        .SlicerItems("(blank)").Selected = True
        .SlicerItems("Taylor").Selected = True
        .SlicerItems("Anderson").Selected = True
    End With
    Call Auto_SortAndFilter
End Sub

【问题讨论】：

标签： vba excel

【解决方案1】：

我没有使用 .SlicerItems 方法，所以我不知道它会如何影响它，但是，我认为您只想将代码放在这两个命令中。

Application.Calculation = xlmanual 
Application.Calculation = xlautomatic

没有

【讨论】：

这是完美的，正是我需要的。非常感谢您的帮助:)