小编Nic*_*a-V的帖子

可能重复:
如何在MS Access VBA阵列中搜索字符串

我目前正在研究一个Excel宏,我找不到一种方法 if array.contains(mystring)

我写了以下内容,它给了我"Invaild Qualifier"的信息,并在Mainfram之后突出显示If

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我尝试了你的建议,并说它需要对象.并突出显示 If 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) …