Как я могу выбрать несколько элементов среза с массивом?

Question

Я пытаюсь выбрать несколько элементов в слайсере для сводной таблицы.

Я создал массив со всеми элементами, которые следует выбрать. Мой код выбирает только один элемент.

For cnt = UBound(Visible_Both_Years) To 0 Step -1

'filled array
MsgBox Visible_Both_Years(cnt)

'Loop through filter 
With k
    For Each l In .PivotItems
        Select Case l.Name
            Case Is = Visible_Both_Years(cnt)
                l.Visible = True
            Case Else
                l.Visible = False
        End Select
    Next

End With

Я новичок ie в VBA.

Answer 1

Нет необходимости в l oop через ваш массив, попробуйте ...

'Loop through filter
With k
    .ClearAllFilters 'clear any existing filters
    For Each l In .PivotItems
        If IsError(Application.Match(l.Name, Visible_Both_Years, 0)) Then
            l.Visible = False
        End If
    Next
End With

Надеюсь, это поможет!