Excel VBA -从切片器返回选定元素

Question

我有一个只有一个选定元素的切片器，我只需要用我的透视切片器中所选项目的相应文本来调暗一个变量。我试过了，但没有成功：

Dim i As Integer

For i = 1 To ActiveWorkbook.SlicerCaches("Slicer_HeaderTitle").Slicers.Count
MsgBox ("Level" & CStr(i) & "; – > " & ActiveWorkbook.SlicerCaches("Slicer_HeaderTitle").Slicers(i).Name)
Next i

Answer 1

这里的问题是，您正在尝试迭代切片器而不是切片器项。

你可以试试这样的东西

Dim o_slicer_item As Object

For Each o_slicer_item In ActiveWorkbook.SlicerCaches("Slicer_HeaderTitle").SlicerItems
    If o_slicer_item.Selected = True Then MsgBox o_slicer_item.Name
Next

这将只显示一个项目名称，如果它是被选中的(所以它将为每个所选项目显示一个msgbox，而不考虑计数)。如果您只想显示一个(第一个、最后一个或第n个)，则需要修改它以在正确的点上中断循环。