Bir vektör içindeki en küçük değeri bulma

[yzu91]

Merhaba,
Yazdığım bir programda f_vector() isimli dizi içindeki en küçük değeri bulmak istiyorum.

Örneğin:

f_vector(1)=23
f_vector(2)=12
f_vector(3)=44

olsun.

ben bana minimum değeri(12) veren ve altına da onun indisini(2) veren kodu nasıl yazarım?

Yardımlarınızı rica ediyorum. Selamlar

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Sub TEST()
    Dim f_vector(1 To 3)
    f_vector(1) = 23
    f_vector(2) = 12
    f_vector(3) = 44
    Minimum = WorksheetFunction.Min(f_vector())
    Indeks = WorksheetFunction.Match(Minimum, f_vector(), 0)
    MsgBox "Minimum Değer ; " & Minimum & Chr(10) & _
           "İndeks No ; " & Indeks
End Sub

 

[yzu91]

Ellerinize sağlık Korhan Bey, çok işime yaradı.

Selamlar sevgiler

 

[yzu91]

Bir sorum daha olacak. Yordam içinde tanımlamış olduğum bir dizi değişkeni için dizi boyutunu da değişken olarak girip sonradan dizi boyutu değerini inputbox ile alabilir miyim?

Bu konu hakkında bir kaç denemem oldu örneğin:

Sub abc()

boyut = Application.InputBox("Dizi boyutunu giriniz.", , , , , , , 1)
Dim dizi(boyut) As Double
Dim i As Byte

For i = 1 To boyut
dizi(i) = Math.Rnd
MsgBox (dizi(i))
Next


End Sub

Fakat constant expression required hatası alıyorum.

Yardımınızı rica ederim.