vba遍历字符串_vba-如何查找数组是否包含字符串

可能重复：

如何在MS Access VBA数组中搜索字符串

我目前正在处理Excel宏，但找不到解决方法Mainfram

我写了以下内容，它给我消息“ Invalid Qualifier”，并在If之后立即突出显示Mainfram

Dim Mainfram(4) As String

Mainfram(0) = "apple"

Mainfram(1) = "pear"

Mainfram(2) = "orange"

Mainfram(3) = "fruit"

For Each cel In Selection

If Mainfram.Contains(cel.Text) Then

Row(cel.Row).Style = "Accent1"

End If

Next cel

选择是一列

有人帮忙吗？

嗨，JP我尝试了您的建议，并说需要对象。 并突出了  如果IsInArray(cell.Text，Mainfram)然后这是我的完整代码

Sub changeRowColor()

Columns("B:B").Select

Dim cel As Excel.Range

Dim Mainfram(4) As String

Mainfram(0) = "apple"

Mainfram(1) = "pear"

Mainfram(2) = "orange"

Mainfram(3) = "Banana"

For Each cel In Selection

If IsInArray(cell.Value, Mainfram) Then

Rows(cel.Row).Style = "Accent1"

End If

Next cel

End Sub

Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean

IsInArray = (UBound(Filter(arr, stringToBeFound)) > -1)

End Function

没关系，我发现了这个愚蠢的错误...反正谢谢你