Çözüldü Değişken Tanımlama Problem

[FERAZ]

Merhaba.
Alttaki koda göre mesaj kutusuna 2 gelmeli.Fakat arr1(1) olarak geliyor sonuç.
A1 hücresinede arr1(1) olarak sonuç çıkıyor.
Sormamdaki amaç daha fazla array tanımlayıp döngüye sokmak basit kod ekledim anlaşılması için olayın.
Yani excelin dolaylı formülü gibi düşünülebilinir.

https://dosya.co/2lmcmtihlh6f/arr.xlsm.html

Private Sub CommandButton1_Click()

   arr0 = Array(3, 15)
   arr1 = Array(1, 2, 6, 3, 4, 5, 7, 8, 9)
  
    MsgBox "arr" & 1 & "(" & 2 & ")"
    [A1] = "arr" & 1 & "(" & 2 & ")"

End Sub

 

[ÖmerBey]

Merhaba,
Şu şekilde düşünülebilir.

Private Sub CommandButton1_Click()
arr0 = Array(3, 15)
arr1 = Array(1, 2, 6, 3, 4, 5, 7, 8, 9)
diziler = Array(arr0, arr1)
MsgBox diziler(1)(2)

End Sub

 

[Orion1]

Aksi bildirilmediği sürece dizilerin ilk indexi 0 (sıfır) olur.

 

[FERAZ]

Merhaba,
Şu şekilde düşünülebilir.

Private Sub CommandButton1_Click()
arr0 = Array(3, 15)
arr1 = Array(1, 2, 6, 3, 4, 5, 7, 8, 9)
diziler = Array(arr0, arr1)
MsgBox diziler(1)(2)

End Sub

Bugün deneyeceğim inşAllah.

 

[FERAZ]

Aksi bildirilmediği sürece dizilerin ilk indexi 0 (sıfır) olur.

Evet hocam.

 

[FERAZ]

Merhaba,
Şu şekilde düşünülebilir.

Private Sub CommandButton1_Click()
arr0 = Array(3, 15)
arr1 = Array(1, 2, 6, 3, 4, 5, 7, 8, 9)
diziler = Array(arr0, arr1)
MsgBox diziler(1)(2)

End Sub

Daha deneyemedim lakin extra dizi içine almadan olmuyormu yani diziler=array ... gibi

 

[ÖmerBey]

Bilmiyorum, belki oluyordur.

 

[FERAZ]

Merhaba,
Şu şekilde düşünülebilir.

Private Sub CommandButton1_Click()
arr0 = Array(3, 15)
arr1 = Array(1, 2, 6, 3, 4, 5, 7, 8, 9)
diziler = Array(arr0, arr1)
MsgBox diziler(1)(2)

End Sub

Ömer hocam elinize sağlık süper oldu.
Döngüylede denedim sorunsuz çalışıyor

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar diliyorum...