遍历切片器中的过滤项目答案

【问题标题】：Looping through filtered items in slicer遍历切片器中的过滤项目
【发布时间】：2017-03-11 03:30:45
【问题描述】：

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

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

切片机：

【问题讨论】：

【解决方案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

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

【讨论】：

【解决方案2】：

您可以通过使用 sliceritems 中的属性 HasData 来解决它。

【讨论】：