En küçük Sayı

[delvinja]

Merabalar,

Oluşturduğum bir dizi içerisindeki en küçü sayıyı bulmak istiyorum. Yardımcı olursanız sevinirim. Örnek olarak da şu verilebilir:

ReDim dizi(10)
For i = 1 To 10
dizi(i) = Int(Rnd() * 100) + 1
Cells(12, i) = dizi(i)
Next


teşekkürler...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub DİZİDEKİ_MİNİMUM_SAYI()
    Dim i As Integer
    ReDim dizi(10)
    For i = 1 To 10
    dizi(i) = Int(Rnd() * 100) + 1
    Cells(12, i) = dizi(i)
    Next
    MsgBox WorksheetFunction.Min(dizi())
End Sub