Question

我的电子表格上有一个按钮点击项，可以为每个位置设置一个具有相应主管的切片器。问题是需要太长时间。在切片器上的每次更改之后，例如将“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

Answer 1

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

Application.Calculation = xlmanual 
Application.Calculation = xlautomatic

<磷>氮

枢轴切片器更新速度慢，我可以暂停所有功能，直到切片器更新完成？ VBA Excel

1 个答案: