İçindekiler
Bu eğitim size VBA'da bir Dizinin uzunluğunu (boyutunu) nasıl alacağınızı öğretecektir.
Dizi Uzunluğunu Al
Bir Dizinin uzunluğunu elde etmek için dizinin başlangıç ve bitiş konumlarını bilmeniz gerekir. Bunu VBA'nın UBound ve LBound İşlevleri ile yapabilirsiniz.
LBound ve UBound İşlevleri
Bu prosedür, tek boyutlu bir dizide UBound ve LBound İşlevlerinin nasıl kullanılacağını gösterir:
| 123456 | Alt UBoundLBound()Dim exArr(1 ila 4) As StringMsgBox UBound(exArr)MsgBox LBound(exArr)Alt Bitiş |
İkisini çıkarmak size dizi uzunluğunu verecektir (UBound - LBound +1).
Dizi Uzunluğu İşlevini Al
Bu işlev, tek boyutlu bir Dizinin boyutunu (uzunluğunu) hesaplayacaktır:
| 1234567 | Public Function GetArrLength(a As Variant) As LongIsEmpty(a) iseGetArrLength = 0BaşkaGetArrLength = UBound(a) - LBound(a) + 1BitirBitiş İşlevi |
2D Dizi Boyutunu Alın
Bu işlev, iki boyutlu bir dizideki konumların sayısını hesaplayacaktır:
| 12345678910111213141516171819 | Alt testArrySize()Dim arr2D(1'den 4'e, 1'den 4)'e Kadar UzunMsgBox GetArrSize_2D(arr2D)Alt BitişGenel İşlev GetArrSize_2D(a As Variant) As LongDim x Kadar Uzun, y Kadar UzunIsEmpty(a) iseGetArrSize_2D = 0Başkax = UBound(a, 1) - LBound(a, 1) + 1y = UBound(a, 2) - LBound(a, 2) + 1GetArrSize_2D = x * yBitirBitiş İşlevi |
