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 个），则需要对其进行修改以在正确的点中断循环。