İ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 Sub

Paylaş: