Vba'daki bir diziye aralığın tamamı nasıl eklenir?

VBA’da bir diziye aralık ekleme adımları

1. Öncelikle değişken veri türünü kullanarak dinamik bir dizi bildirmeniz gerekir.
   
2. Daha sonra aralıktaki hücre sayısını depolamak için başka bir değişken bildirmeniz ve ayrıca bu sayacı döngü için kullanmanız gerekir.
   
3. Bundan sonra, değerin bulunduğu aralığı diziye atayın .
   
4. Buradan tüm değerleri anlık pencereye yazdırmak için bir döngü oluşturmamız gerekiyor, böylece tüm değerlerin diziye atandığını görebilirsiniz.
   

 Sub myArrayRange() Dim iAmount() As Variant Dim iNum As Integer iAmount = Range("A1:A11") For iNum = 1 To UBound(iAmount) Debug.Print iAmount(iNum, 1) Next iNum End Sub

Ve yukarıdaki kodu çalıştırdığınızda size aralıktan (“A1:A11) iAmount dizisine kadar atadığınız tüm değerleri gösterir ve hemen pencereye yazdırır.

Aynı şekilde çok boyutlu bir dizi de kullanabilirsiniz.

 Sub myArrayRange() Dim iAmount() As Variant Dim iNum1 As Integer iAmount = Range("A1:B13") For iNum1 = 1 To UBound(iAmount, 1) Debug.Print iAmount(iNum1, 1) & " " & iAmount(iNum1, 2) Next iNum1 End Sub

Veya bu şekilde de yapabilirsiniz.

 Sub myArrayRange() Dim iAmount() As Variant Dim iNum1 As Integer Dim iNum2 As Integer iAmount = Range("A1:B13") For iNum1 = 1 To UBound(iAmount, 1) For iNum2 = 1 To UBound(iAmount, 2) Debug.Print iAmount(iNum1, iNum2) Next iNum2 Next iNum1 End Sub