Question

我有一点简单的测试代码：

Sub test()
    Dim testList As Object
    Set testList = CreateObject("System.Collections.ArrayList")
    testList.Add Range("a1")
    Debug.Print testList.IndexOf(Range("a1"))
End Sub

返回错误而不是列表中对象的索引。为什么会这样，如果不是添加Range，而是添加自定义myClass，那么必须myClass Implement才能使其生效？或者是否无法在ArrayList？

中查找对象

Answer 1

你走了：

Option Explicit

Sub TestMe()

    Dim testList As Object
    Set testList = CreateObject("System.Collections.ArrayList")

    Range("A1") = "soready"
    Range("B1") = "tohelp"        

    testList.Add (Range("A1"))
    testList.Add (Range("B1"))

    Debug.Print testList.IndexOf("tohelp", 0)

End Sub

它打印1，这是＆＃34; tohelp＆＃34;的正确索引。

在ArrayList中查找indexof对象

1 个答案: