Выберите несколько элементов среза (ошибка 1004) - PullRequest
Новая
       27

Выберите несколько элементов среза (ошибка 1004)

0 голосов
/ 16 июня 2020

У меня есть слайсер со всеми номерами недель, и я хочу выбрать диапазон недель (от недели 1 до текущей недели). Для этого я написал следующий код: 

Dim SL as SlicerCacheLevel
Dim SI as SlicerItem
Dim Week as Integer
Week = Range("B1")
For Each SL In ActiveWorkbook.SlicerCaches("Slicer_Week").SlicerCacheLevels
  For Each SI In SL.SlicerItems
    If SI.Value < week + 1 Then
        SI.Selected = True
    Else
        SI.Selected = False
    End If
  Next
Next

Когда я запускаю этот код, я получаю

Error (1004).

Когда Я меняю SI.select на MsgBox(SI.Value), это дает мне все значения в слайсере.

Кто-нибудь может мне объяснить, как исправить эту ошибку?

...