|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Verificar se um elemento existe num Array
|
 |
|
|
|
Postada em 14/7/2007 por Vilmar Brazão
Como verificar se um elemento existe num Array?
1)
'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
OU
2)
percorrer o array procurando pelo valor, ou 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
[]´s,
===============
Vilmar Brazão de Oliveira
|
|
|
|
|
