VBA - установить для выбранного свойства элементов SlicerCache значение False - PullRequest
0 голосов
/ 18 сентября 2018

У меня есть 3 слайсера в моей рабочей книге, и я пытаюсь контролировать 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 раз каждый раз, когда вызывается этот фрагмент кода.Этот цикл выполняется слишком долго (около минуты).Есть ли способ оптимизировать это?

...