İki Boyutlu Dizi

İki boyutlu dizi iç içe döngü yardımıyla elde edilebilir.

Örnek:

Kodlar:

Sub iki_boyutlu_dizi()

Dim AylikSatis(1 To 12, 1 To 2) As Variant
Dim r As Byte
Dim c As Byte
Const Baslangic As Long = 1

'satırları doldur
For r = 1 To 12
   'sütunları doldur
   For c = 1 To 2
      AylikSatis(r, c) = Cells(r + Baslangic, c).Value
   Next c
Next r

Debug.Print AylikSatis(1, 1) 'cevap: ocak
Debug.Print AylikSatis(4, 2) 'cevap: 260
Debug.Print AylikSatis(7, 1) 'cevap: temmuz

End SubCode language: VB.NET (vbnet)