Vérifier si un nombre existe déjà dans un tableau VBA

Question

J'ai un court morceau de code qui vérifie si le nombre calculé "Birthday (i, 0)" existe déjà dans le tableau "Birthday" et s'il le fait pour quitter le Pour le compteur. Existe-t-il un moyen plus simple de tester si "Birthday (i, 0)" existe déjà sans utiliser un compteur For pour vérifier chaque élément du tableau "Birthday".

Un grand merci à l'avance.

Le code est ci-dessous:

For i = 1 To MaxPeople 

     Birthday(i, 0) = WorksheetFunction.RoundUp(Rnd() * 365, 0) 

     For j = 1 To i - 1 
      If Birthday(i, 0) = Birthday(j, 0) Then 
        NumberofPeople = i 
        Exit For 
      End If 

     Next j 

     If NumberofPeople > 0 Then Exit For 

    Next i 

Answer 1

Dim rv 

'find the position of a value in the first dimension of an array 
rv = Application.Match(yourDate, Application.Index(Birthday, 0, 1), 0) 
'if not found, rv will be an error value 
If IsError(rv) Then 
    Debug.Print "Not found" 
Else 
    Debug.Print "Found at pos " & rv 
End If 

Answer 2

Voir si cet exemple aide? Il utilise un délimiteur pour rejoindre le tableau, puis utilise le INSTR pour trouver la valeur dans le tableau.

Sub Sample() 
    Dim n As Long 
    Dim MyArray(5, 0) As Long 
    Dim Delim As String 

    n = 4 

    Delim = Chr$(1) 

    MyArray(0, 0) = 2 
    MyArray(1, 0) = 3 
    MyArray(2, 0) = 4 
    MyArray(3, 0) = 5 
    MyArray(4, 0) = 1 

    If InStr(1, Delim & Join(WorksheetFunction.Transpose(MyArray), Delim) & _ 
    Delim, Delim & n & Delim, 1) Then 
     Debug.Print "Exists" 
    Else 
     Debug.Print "Does Not Exist" 
    End If 
End Sub