VBA Excel：一次选择多个切片器而不更新

Question

我有一个包含我的切片项目的数组，我想模仿前端，用户可能 ctrl / shift +点击一些切片器。我不希望循环在每次迭代时更新切片器，但是一次全部。我使用的是Application.EnableEvents = false，但它似乎没有工作，看起来它一次只运行一个切片器并且每次都更新数据透视表。

arr(0) = "South"
arr(1) = "West"
arr(2) = "North"

Application.EnableEvents = false

For i = 0 To UBound(arr)
   ActiveWorkbook.SlicerCaches("Slicer_Region").SlicerItems(arr(i)).Selected = True
Next i

Application.EnableEvents = True