Çok boyutlu değişkende değişkenin değerine göre bulunduğu sırayı öğrenmek

[sergions]

Merhaba arkadaşlar,

Sub deneme()
Dim adlar(1 To 3) As String
adlar(1) = "Ali"
adlar(2) = "Veli"
adlar(3) = "Ayşe"
End Sub

1- Yukarıdaki gibi bir örnekte mesela "Veli" değerinin ilgili matrisin 2. öğesi olduğunu öğrenmemi sağlayacak bir komut v.s. var mıdır? ( msgbox adlar("Veli") gibi).

2- Bu matrisin içindeki değişken sayısını (örneğimizde 3 adet) söyleyen bir komut var mıdır?

 

[Orion1]

Bu şekilde döngüye girmeden bulamazsınız.

Sub deneme()
Dim i As Byte
Dim adlar(1 To 3) As String
adlar(1) = "Ali"
adlar(2) = "Veli"
adlar(3) = "Ayşe"
For i = 1 To 3
    If adlar(i) = "Veli" Then
        MsgBox "Eleman : " & i & vbLf & "Veri : " & "Veli"
         exit for
    End If
Next i
End Sub

 

[sergions]

Bu şekilde döngüye girmeden bulamazsınız.

Ben de bundan korkuyordum
Yoksa döngü ile çözülebileceği aşikar.