vba - Excel VBA - 返回切片器中选定的元素

Question

我有一个名为“Slicer_HeaderTitle”的切片器。我只需要能够使用所选元素的值来调暗 VBA 中的变量。我一次只会选择一个元素。

由于我的数据透视表连接到外部数据源，因此我在通过 VBA 动态地从切片器中选择和取消选择元素时遇到了很多问题。我不知道这是否与这个确切的示例相关，但该表连接到相同的外部数据源。

我曾经有一行代码，它可以返回这个值，但我现在能找到的所有内容都需要您循环遍历切片器中的每个元素并检查它是否被选中。我希望避免这种情况，因为我一次只有 1 个选定的元素。

' This is what I'm trying to achieve.
Dim sValue as String
sValue = ActiveWorkbook.SlicerCaches("Slicer_HeaderTitle").VisibleSlicerItems.Value

msgbox(sValue)
'Returns: "Uge 14 - 2016 (3. Apr - 9. Apr)"

<小时/>

当前状态:

Answer 1

这就是我所做的:

Public Function GetSelectedSlicerItems(SlicerName As String) As String
Dim SL As SlicerCacheLevel
Dim sI As SlicerItem

Set SL = ActiveWorkbook.SlicerCaches(SlicerName).SlicerCacheLevels(1)
For Each sI In SL.SlicerItems
    If sI.Selected = True Then
         GetSelectedSlicerItems = (sI.Value)
    End If
Next
End Function


Dim sValue As String
sValue = GetSelectedSlicerItems("Slicer_HeaderTitle")

感谢 Droktor OSwaldo 为我提供了很多帮助!