vba - 遍历切片器中的过滤项目

Question

我正在尝试编写宏，但被赶上了。您如何创建一个循环，该循环将仅遍历已过滤的切片器中的可见对象。

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

切片机：

Answer 1

我不知道你想做什么，但这会通过可见项目：

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 来解决它。