通过VBA，需要控制切片器中的隐藏项

Question

我有一个目标，我需要在名为Client的切片器中选择单个项目，执行一些功能并选择同一个切片器中的下一个项目。重复这个过程。 我真的不是VBA的专业人士，但写了一个可以完成这项工作的代码。然而，在该过程中，也没有选择在相同切片器中没有数据或隐藏项目的项目，这不应该发生。有人可以帮我解决这段代码以及我如何控制只选择切片器中的可见项目，并在完成可见项目后停止运行。

以下是为我运行的代码：

Sub Test()
Dim slItem As SlicerItem
Dim i As Long

With ActiveWorkbook.SlicerCaches("Slicer_Client")
'deselect all items except the first
    .SlicerItems(1).Selected = True
    For Each slItem In .VisibleSlicerItems
        If slItem.Name <> .SlicerItems(1).Name Then _
            slItem.Selected = False
    Next slItem
'step through each item and run custom function
    For i = 2 To .SlicerItems.Count
        .SlicerItems(i).Selected = True
        .SlicerItems(i).Selected = False
    Next i
End With
End Sub

提前谢谢