Как найти, если массив содержит строку

Question

Можно создать дубликат:
How to search for string in MS Access VBA array

В настоящее время я работаю над макро 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 

Выбор столбец

кто-нибудь помочь?

Hi, JP Я попробовал ваше предложение, и он сказал, что требуется объект. И Highlightd Если IsInArray (cell.Text, Mainfram) Тогда Heres мой полный код

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 

Nevermind, я обнаружил, что глупая ошибка ... Спасибо в любом случае

Answer 1

Используя код от my answer к очень похожий вопрос:

Sub DoSomething() 
Dim Mainfram(4) As String 
Dim cell As Excel.Range 

Mainfram(0) = "apple" 
Mainfram(1) = "pear" 
Mainfram(2) = "orange" 
Mainfram(3) = "fruit" 

For Each cell In Selection 
    If IsInArray(cell.Value, MainFram) Then 
    Row(cell.Row).Style = "Accent1" 
    End If 
Next cell 

End Sub 

Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean 
    IsInArray = (UBound(Filter(arr, stringToBeFound)) > -1) 
End Function 

Answer 2

Я Я боюсь, что не думаю, что есть ярлык для этого - если бы кто-то написал linq-упаковку для VB6!

Вы можете написать функцию, которая делает это, перейдя через массив и проверив каждую запись - я не думаю, что вы получите чище, чем это.

Там пример статья, которая предусматривает некоторые подробности здесь: http://www.vb6.us/tutorials/searching-arrays-visual-basic-6

Answer 3

Используйте метод Filter() - http://msdn.microsoft.com/en-us/library/aa164525(v=office.10).aspx

Answer 4

Другой простой способ с использованием JOIN и INSTR

Sub Sample() 
    Dim Mainfram(4) As String, strg As String 
    Dim cel As Range 
    Dim Delim As String 

    Delim = "#" 

    Mainfram(0) = "apple" 
    Mainfram(1) = "pear" 
    Mainfram(2) = "orange" 
    Mainfram(3) = "fruit" 

    strg = Join(Mainfram, Delim) 
    strg = Delim & strg 

    For Each cel In Selection 
     If InStr(1, strg, Delim & cel.Value & Delim, vbTextCompare) Then _ 
     Rows(cel.Row).Style = "Accent1" 
    Next cel 
End Sub