VBA判斷arraylist中是否有某個值
时间: 2024-02-20 15:56:55 浏览: 18
在 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` 的值输出结果。