Verificar Se Um Elemento Existe Num Array Ou Collection ?

[vilmarbr]

Existe algum outro jeito de verificar se um elemento existe num Array ou Collection que não seja a forma baixo usando manipulação de erros ?

'Exemplo usando array:

Dim arrayX

Dim erro As Boolean

arrayX = Array(1, 2, 85, 63)

On Error Resume Next

Debug.Print arrayX(10)

erro = (Err.Number = 9)

If erro Then

Debug.Print "ocorreu erro por que não existe este elemento no array"

End If

[]´s,

[Graymalkin]

Você pode percorrer o array procurando pelo valor, ou pode usar as funções Filter e UBound:

arrayX = Array(1, 2, 85, 63)
n = 10
    
If UBound(Filter(arrayX, n)) = -1 Then
    MsgBox "Não existe o " & n
Else
    MsgBox "Existe o " & n
End If

Abraços,

Graymalkin

[vilmarbr]

Valeu ! :D

[Geanderson Ferreira]

Uma opção simples também é criar essa função no seu projeto:

Function is_in(value_to_verify As Variant, arr As Variant) As Boolean
' Passar o parâmetro arr como Array()

For Each Item In arr
	
    If value_to_verify = Item Then
		'Se encontrar o item no Array a função retornar True
    	is_in = True
    	Exit Function
    Else
		'Se não encontrar, retorna False
    	is_in = False
    End If

Next Item

End Function