値が配列内にあるかどうかをExcel VBAで確認する

Question

値が配列内にあるかどうかを確認するコードがあります。

Sub test() 
    vars1 = Array("Examples") 
    vars2 = Array("Example") 
    If IsInArray(Range("A1").Value, vars1) Then 
     x = 1 
    End If 

    If IsInArray(Range("A1").Value, vars2) Then 
     x = 1 
    End If 
End Sub 

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

セルA1はIsInArrayの両方が、それが唯一のそれは私が変更する必要が何をすべきかvars1配列

に存在を見つける必要があるときに、両方の配列のために、既存のようにそれを検出し、何らかの理由で単語Examplesが含まれている場合私のIsInArray機能を完全に一致させるためには？

Answer 1

は、あなたはそれが右の例をチェックするために失敗した場合例範囲（「A1」）。値に存在するかどうかをチェックしたいですか？私はmycodeが完璧に動作すると思います。チェックしてください。値が配列内に存在するかどうかを確認するために、Excel VBAで

Sub test() 
Dim string1 As String, string2 As String 
string1 = "Examples" 
string2 = "Example" 
If InStr(1, Range("A1").Value, string1) > 0 Then 
    x = 1 
ElseIf InStr(1, Range("A1").Value, string2) > 0 Then 
    x = 2 
End If 

End Subの

Answer 2

使用一致（）関数。

Sub test() 
    Dim x As Long 

    vars1 = Array("Abc", "Xyz", "Examples") 
    vars2 = Array("Def", "IJK", "MNO") 

    If IsNumeric(Application.Match(Range("A1").Value, vars1, 0)) Then 
     x = 1 
    ElseIf IsNumeric(Application.Match(Range("A1").Value, vars2, 0)) Then 
     x = 1 
    End If 

    MsgBox x 
End Sub 

Answer 3

この質問はここに頼まれた：VBA Arrays - Check strict (not approximative) match

Sub test() 
    vars1 = Array("Examples") 
    vars2 = Array("Example") 
    If IsInArray(Range("A1").value, vars1) Then 
     x = 1 
    End If 

    If IsInArray(Range("A1").value, vars2) Then 
     x = 1 
    End If 
End Sub 

Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean 
    IsInArray = Not IsError(Application.Match(stringToBeFound, arr, 0)) 
End Function 

Answer 4

あなたはこのようにそれをブルートフォースすることができます：アイアイ、私が見た

IsInArray("example", Array("example", "someother text", "more things", "and another"))