У меня есть сводная таблица с слайсером, в котором пользователь может сделать несколько выборов. Я пытаюсь перечислить выбранные значения в слайсере, чтобы затем их можно было объединить в другой ячейке с помощью CONCATENATE. Я использую код ниже.
В данный момент ячейки L5:L7 заполняются первым выбором, выполненным в слайсере, но не другими.
Я провел некоторое исследование и нашел возможное решение с помощью функции CUBESET, но я не могу заставить его работать в моей электронной таблице. Отсюда и попытка VBA. Кто-нибудь знает, что с ним не так?
Sub City_Click()
Dim cache As Excel.SlicerCache
Set cache = ActiveWorkbook.SlicerCaches("Slicer_City")
Dim sItem As Excel.SlicerItem
For Each sItem In cache.SlicerItems
If sItem.Selected = True Then Range("L5").Value = sItem.Name
If sItem.Selected = True Then Range("L6").Value = sItem.Name
If sItem.Selected = True Then Range("L7").Value = sItem.Name
Next sItem
End Sub