• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Excelde iki boyutlu dizi nasıl tanımlanır ?

Katılım
31 Mart 2010
Mesajlar
184
Excel Vers. ve Dili
excel 2010/2013
t ve s ındileri ile talep degerlerini ıkı boyutlu dizin olarak nasıl tanımlamam gerekir ? yardımcı olur musunuz ??

t s talep
1 1 24
1 2 18
1 3 60
1 4 54
1 5 25
2 1 22
2 2 54
2 3 62
2 4 46
2 5 33
 
2 boyutlu 10 elemanlı dizi aşağıdaki örnekte verdim.
Umarım size bir fikir verir.
Prosedürün üstüne option base 1 yazılırsa dizilerin indexi 1 den başlar.
Yazılmazsa sıfırdan başlar.
Kod:
Option Base 1
Sub dizi59()
Dim myarr() As Variant, s As Long
s = 10
ReDim myarr(1 To 2, 1 To s)
For i = 1 To 10
    myarr(1, i) = "evren" & i
    myarr(2, i) = i
Next i
For i = 1 To 10
    MsgBox myarr(1, i)
    MsgBox myarr(2, i)
Next i
End Sub
 
Alternatif..

Kod:
[FONT="Trebuchet MS"][SIZE="2"]Option Base 1
Sub Emre()
    Dim dizi(2, 5), i%, a%, b%: b = 1
    For i = 2 To Range("a65536").End(3).Row
        a = a + 1
        If a > 5 Then b = b + 1: a = 1
        dizi(b, a) = Cells(i, 3).Value
    Next i
    Range("D1").Resize(5, UBound(dizi)).Value = Application.Transpose(dizi)
    Erase dizi: i = Empty: a = Empty: b = Empty
End Sub[/SIZE][/FONT]
 

Ekli dosyalar

  • sonuc.jpg
    sonuc.jpg
    12.5 KB · Görüntüleme: 3
Bu konu ne oldu, çözüldü mü?
 
Geri
Üst