Dizi boyutunu inputbox ile girebilir miyiz?

[yzu91]

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.

 

[Necdet]

Merhaba,

Aşağıdaki gibi dener misiniz?

Sub abc()
    
    Dim boyut As Integer
    Dim dizi
    Dim i As Byte
    
    boyut = Application.InputBox("Dizi boyutunu giriniz.", Type:=1)
    
    ReDim dizi(boyut)
    
    MsgBox UBound(dizi)
    
    For i = 1 To boyut
        dizi(i) = Math.Rnd
        MsgBox (dizi(i))
    Next
 
End Sub

 

[yzu91]

Necdet Bey teşekkür ederim.
Yalnız ben bu dizinin içindeki minimum değeri de bulmak istiyorum.

Sub abc()


Dim boyut As Integer
Dim dizi
Dim i As Byte

boyut = Application.InputBox("Dizi boyutunu giriniz.", Type:=1)

ReDim dizi(boyut)

MsgBox UBound(dizi)

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

Next
a = WorksheetFunction.Min(dizi())



End Sub

Şeklinde bir denemem oldu lakin Subscript is out of range hatası alıyorum.

Bilginizi rica ederim.

 

[Necdet]

Merhaba,

a = WorksheetFunction.Min(dizi())

satırını

a = Application.WorksheetFunction.Min(Application.Transpose(dizi()))

olarak dener misiniz?

Sondaki parantez fazla olabilir, denemeden yazdım.

 

[Levent Menteşoğlu]

Aşağıdaki satırdaki kırmızı renkli parantezleri kaldırın.

a = WorksheetFunction.Min(dizi[COLOR=Red][B]()[/B][/COLOR])

 

[yzu91]

İlk başta Necdet Bey'in kodunu girdim fakat aynı hatayı aldım.

Levent Bey'in kodu çalıştı.

İkinize de çok teşekkür ederim.

Ellerinize sağlık.

 

[Necdet]

Merhaba,

a = WorksheetFunction.Min(dizi())

satırını

a = Application.WorksheetFunction.Min(Application.Transpose(dizi()))

olarak dener misiniz?

Sondaki parantez fazla olabilir, denemeden yazdım.

Denmeden yazmamak gerekiyor

Transpose VLookUp için geçerli