遍历切片器筛选器集合的VBA代码异常问题及疑问

我已经找到了解决方法，但对该场景下切片器筛选器的行为存在疑问。我有多个切片器，需要遍历每个切片器并设置相同值，方法是遍历SlicerItems直至找到匹配项。原代码运行时报错“无效的过程调用或参数”：

Dim filter As New Collection
Dim i As Integer
Dim j As Integer
Dim tags As Variant
Dim slcName As String

If ActiveSheet.Name = "3.CABLES_max_$AVE" Then
    tags = Array(1, 2, 3)
Else
    tags = Array(6, 7, 8)
End If
    
For i = 0 To UBound(tags)
    slcName = "Slicer_Hub_Height__m" & tags(i)
    filter.Add ThisWorkbook.SlicerCaches(slcName)
Next i

For i = 1 To filter.count
    For j = 1 To filter(i).SlicerItems.count
        filter(i).SlicerItems(j).Selected = False
        If filter(i).SlicerItems(j).Name = box.ControlFormat.List(box.ControlFormat.ListIndex) Then
            filter(i).SlicerItems(j).Selected = True
        End If
    Next j
Next i

通过将取出的SlicerCache和SlicerItems对象存入中间变量，代码可正常运行：

Dim slcCache As SlicerCache
Dim slcItem As SlicerItem

For i = 1 To filter.count
    For j = 1 To filter(i).SlicerItems.count
        Set slcCache = filter(i)
        Set slcItem = slcCache.SlicerItems(j)

        slcItem.Selected = False
        If slcItem.Name = box.ControlFormat.List(box.ControlFormat.ListIndex) Then
            slcItem.Selected = True
        End If
    Next j
Next i

这确实是VBA集合操作中的典型行为，原因如下：

• 直接通过filter(i).SlicerItems(j)重复访问时，VBA每次都会重新从集合中检索对象，而非复用已有引用。这种重复检索在操作依赖Excel界面状态的集合（如SlicerItems）时，容易引发对象引用不稳定，进而触发“无效的过程调用或参数”错误。
• 存入中间变量后，相当于创建了稳定的本地引用，后续操作直接针对该引用执行，避免了重复检索带来的不确定性，解决了报错问题。
• 另外，SlicerItems集合在筛选状态变化时内部状态会更新，直接多次访问同一索引项可能因状态变化导致引用失效，而本地变量的引用不受这种动态变化影响。

内容的提问来源于stack exchange，提问作者Alexander