Làm thế nào để tìm thấy nếu một mảng chứa một chuỗi

Question

thể trùng lặp:
How to search for string in MS Access VBA array

Tôi hiện đang làm việc trên một macro Excel, và tôi không thể tìm thấy một cách để làm như if array.contains(mystring)

Tôi đã viết thông tin sau đây và nó cung cấp cho tôi thông báo "Bộ kiểm định Invaild" và đánh dấu Mainfram ngay sau 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 

Việc lựa chọn là một cột

Bất cứ ai giúp đỡ?

Xin chào, JP Tôi đã thử đề xuất của bạn và đối tượng được yêu cầu. Và Highlightd các Nếu IsInArray (cell.Text, Mainfram) Sau đó Heres mã đầy đủ của tôi

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, tôi thấy rằng lỗi ngu ngốc ... Cảm ơn bạn anyways

Answer 1

Sử dụng mã từ my answer cho một câu hỏi rất giống nhau:

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

tôi Tôi sợ tôi không nghĩ rằng có một phím tắt để làm điều này - nếu chỉ có ai đó sẽ viết một wrapper linq cho VB6!

Bạn có thể viết một hàm thực hiện nó bằng cách lặp qua mảng và kiểm tra từng mục nhập - tôi không nghĩ bạn sẽ sạch hơn.

Có một bài viết ví dụ cung cấp một số chi tiết ở đây: http://www.vb6.us/tutorials/searching-arrays-visual-basic-6

Answer 3

Sử dụng Filter) phương pháp (- http://msdn.microsoft.com/en-us/library/aa164525(v=office.10).aspx

Answer 4

Một cách đơn giản bằng cách sử dụng JOIN và 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