VBA 检查a是否存在于arrayList中

你可以使用 VBA 中的 InStr 函数来检查一个字符串是否存在于 ArrayList 中。以下是一个示例代码：

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

' 添加一些元素到 ArrayList
arrayList.Add "apple"
arrayList.Add "banana"
arrayList.Add "orange"

' 检查字符串是否存在于 ArrayList 中
If InStr(Join(arrayList.ToArray, ","), "apple") > 0 Then
    MsgBox "apple 存在于 ArrayList 中"
Else
    MsgBox "apple 不存在于 ArrayList 中"
End If

在上面的代码中，我们首先创建一个 ArrayList 对象。然后，我们向 ArrayList 中添加一些元素。最后，我们使用 InStr 函数来检查字符串 "apple" 是否存在于 ArrayList 中。要使用 InStr 函数，我们需要将 ArrayList 转换为字符串，这可以通过使用 ArrayList 的 ToArray 方法和 VBA 的 Join 函数来完成。如果字符串存在于 ArrayList 中，则 InStr 函数将返回大于 0 的值；否则，它将返回 0。

相关问题

VBA判斷arraylist中是否有某個值

在 VBA 中，可以使用 `InStr` 函数来判断一个字符串是否包含另一个字符串。如果你想要判断一个 `ArrayList` 中是否包含某个值，可以使用 `For Each` 循环遍历该列表，然后使用 `InStr` 函数来判断每个元素是否包含该值。以下是一个示例代码：

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

' 向列表中添加一些元素
myList.Add "apple"
myList.Add "banana"
myList.Add "orange"

' 要查找的值
Dim searchValue As String
searchValue = "banana"

' 遍历列表，查找是否包含该值
Dim found As Boolean
found = False
For Each item In myList
    If InStr(item, searchValue) > 0 Then
        found = True
        Exit For
    End If
Next

' 输出结果
If found Then
    Debug.Print "列表中包含 " & searchValue
Else
    Debug.Print "列表中不包含 " & searchValue
End If

这段代码首先创建了一个 `ArrayList`，并向其中添加了三个元素。然后定义了一个要查找的值 `searchValue`，并使用 `For Each` 循环遍历列表，查找是否包含该值。如果找到了该值，则将 `found` 标志设置为 `True` 并退出循环。最后根据 `found` 的值输出结果。

VBA ArrayList

VBA中没有原生的ArrayList类，但可以通过使用Collection类来实现类似ArrayList的功能。Collection类允许您在其中存储和访问任意数量的项，这些项可以是任何VBA数据类型。以下是一个创建和使用Collection类的示例：

Sub ArrayListExample()
    Dim myArrayList As New Collection
    myArrayList.Add "Item 1"
    myArrayList.Add "Item 2"
    myArrayList.Add "Item 3"
    For i = 1 To myArrayList.Count
        Debug.Print myArrayList(i)
    Next i
End Sub

在这个示例中，我们使用Collection类来创建一个名为“myArrayList”的ArrayList。我们使用Add方法向ArrayList添加三个字符串项，然后使用Count属性循环遍历ArrayList并打印每个项。