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

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

Источник

0 ответов

Другие вопросы по тегам