VBA-将SlicerCache项目的选定属性设置为False

Question

我的工作簿中有3个Slicer，我试图通过第三个Slicer来控制其中的2个，在那里我要手动选择项目。当我在一个切片器上选择一个值时，我希望它也能在其他切片器上反映出来。

为此，我编写了此代码-

For Each SI3 In sc10.SlicerItems
       sc11.SlicerItems(SI3.Name).Selected = SI3.Selected
       sc12.SlicerItems(SI3.Name).Selected = SI3.Selected
Next SI3

问题是我在每个切片器中都有200个项目。因此，每次调用这段代码，循环都会运行200次。该循环执行时间太长（接近一分钟）。有什么办法可以优化这个？