Værdi i array, mangler IN metode..

Hmm.. Det ved jeg ikke..

Men man kan lave en funktion, der løber alle elementerne igennem, og checker..
Hvis den finder værdien, returneres TRUE.. ellers returneres FALSE..

Eksempel:

Private Sub Command1_Click()
MsgBox Find(25)
End Sub

Private Function Find(tal As Integer) As Boolean
Dim i As Integer
Dim fundet As Boolean
fundet = False
For i = LBound(arrayens_navn) To UBound(arrayens_navn)
    If (arrayens_navn(i) = tal) Then fundet = True
Next
Find = fundet
End Function


Problemet med den nuværende kode er, at man ikke kan sende en array med, som parameter..

I koden er navnet på arrayen foruddefineret.. Ret "arrayens_navn" til navnet på din array.

I mit eksempel er arrayen defineret i toppen af Visual Basic (globalt)..

Jeg har optimeret koden lidt:

Private Sub Command1_Click()
MsgBox Find(25)
End Sub

Private Function Find(tal As Integer) As Boolean
Dim i As Integer
Dim fundet As Boolean
fundet = False
For i = LBound(arrayens_navn) To UBound(arrayens_navn)
    If (arrayens_navn(i) = tal) Then
        fundet = True
        Exit For
    End If
Next
Find = fundet
End Function

Ændringen er:

    If (arrayens_navn(i) = tal) Then
        fundet = True
        Exit For
    End If

Den hopper ud af løkken, så snart at den har fundet værdien..

Ingen grund til at lede mere, når den har fundet værdien.. :-)

Jo man kan godt sende et array med ned i en funktion. Ser således ud:


Private Sub Command1_Click()
Dim MyArray As Variant

MyArray = Array(1, 2, 3, "Hej", "dav", "HELLO WORLD")
Debug.Print IsInArray(MyArray, 2)

End Sub

Private Function IsInArray(Arg As Variant, Find As Variant) As Boolean
Dim X1 As Long

For X1 = LBound(Arg) To UBound(Arg)
    If StrComp(Arg(X1), Find, vbTextCompare) = 0 Then
        IsInArray = True
    End If
Next X1

End Function

Hey,

Det var mere for at undgå selv at skulle løbe det igennem. Troede der var en smart function der kunne kaldes, men det tyder det ikke på. så jeg må løbe det igennem selv.

Takker for foreslagene.

Som jeg skrev i mit første indlæg, ved jeg ikke om det er muligt.. det kan det godt være..

Du er velkommen til at vente, på et andet svar..