Ir para conteúdo
Fórum Script Brasil
  • 0

Verificar Se Um Elemento Existe Num Array Ou Collection ?


vilmarbr

Pergunta

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,

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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

 

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...