• Home
 · 
• VB function enhancement
 · 
• Is in Array Function

Is in Array Function

Find if a value exists in an array WITHOUT LOOPING. Often we need to find out if a value exists in an array. This one does it VERY FAST.
NOTE: This Function only return True / False regarding the Existence of a Value. If you need the Index you will have to LOOP.

Rate Is in Array Function

• 1
• 2
• 3
• 4
• 5

(8(8 Vote))

Public Function IsInArray(FindValue As Variant, arrSearch As Variant) As Boolean
 On Error GoTo LocalError
 If Not IsArray(arrSearch) Then Exit Function
 If Not IsNumeric(FindValue) Then FindValue = UCase(FindValue)
 IsInArray = InStr(1, vbNullChar & Join(arrSearch, vbNullChar) & vbNullChar, vbNullChar & FindValue & vbNullChar) > 0
Exit Function
LocalError:
 'Justin (just in case)
End Function