循环切片器中的过滤项目

Question

我正在尝试写一个宏但是被追上了。如何创建一个循环，只循环已经过滤的切片器中的可见对象。

下面的图片是我想要使用的切片器（“slicer_Route”），我只有循环来遍历前4个变暗的对象。 （这是另一个过滤器的结果）

切片机：

Answer 1

我不知道你想做什么，但这可以通过Visible Items：

Dim sC As SlicerCache
Dim sI As SlicerItem

Set sC = ActiveWorkbook.SlicerCaches("Slicer_Route")

For Each sI in sC.SlicerItems
If sI.Selected = True Then

Debug.Print sI.Name 'This is an example, you can do what you want with that item

End If

Next sI

如果您提供更详细的问题，可能会获得进一步的帮助。

Answer 2

您可以通过在sliceritems中使用属性HasData来解决此问题。