Możliwy duplikat:
Jak wyszukać ciąg znaków w tablicy MS Access VBA

Obecnie pracuję nad makrem programu Excel i nie mogłem znaleźć sposobu, aby to zrobićif array.contains(mystring)

Napisałem następujący tekst i daje mi komunikat „Invaild Qualifier” i podkreślaMainfram zaraz poIf

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

Wybór jest kolumną

Czy ktoś pomaga?

Cześć, JP Próbowałem twojej sugestii i powiedział, że obiekt jest wymagany. I wyróżnijIf IsInArray (cell.Text, Mainfram) Następnie Oto mój pełny kod

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

Nieważne, znalazłem ten głupi Błąd ... W każdym razie dziękuję