İçindekiler
Bu öğretici, bir dizi hücrenin nasıl doldurulacağını gösterecektir.
Diziye Aralık Ata
A Variant dizisini bir dizi hücreyle kolayca doldurabiliriz.
Tek bir sütundan değer atama
Bu örnek, hücre değerlerini bir diziye atayarak Aralık ("A1:A10") arasında dolaşacaktır:
| 12345678910111213 | Sub TestArrayValuesSingle()'Diziyi bir değişken dizi olarak bildirDim arRng() Varyant Olarak'Satır sayısını depolamak için tamsayıyı bildiriniRw'yi Tamsayı Olarak Karart'Bir dizi değişkenine aralık atayınarRng = Aralık("A1:A10")'satırlar arasında dolaş - 1'den 10'aiRw için = 1'den UBound'a(arRng)'sonucu hemen pencerede gösterDebug.Print arRng(iRw , 1)Sonraki iRwAlt Bitiş |
NS UBound döngünün 10 kez döngü yapacağını bilmesi için dizinin üst sınırını (örneğin 10) ayarlamak için kullanılır.
NSHata Ayıklama.Yazdır işlevi, hemen pencerede dizide bulunan değeri size gösterecektir.
Birden çok sütundan değer atama
| 123456789101112131415161718 | Sub TestArrayValuesMultiple()'Diziyi bir değişken dizi olarak bildirDim arRng() Varyant Olarak'Satır sayısını depolamak için tamsayıyı bildiriniRw'yi Tamsayı Olarak Karart'Sütun sayısını depolamak için tamsayıyı bildiriniCol'ü Tam Sayı olarak karart'Bir dizi değişkenine aralık atayınarRng = Aralık("A1:C10")'satırlar arasında dolaş - 1'den 10'aiRw için = 1'den UBound'a(arRng,1)'şimdi - 1. satırdayken, 3 sütun arasında dolaşıniCol için = 1 ila UBound(arRng,2)'sonucu hemen pencerede gösterDebug.Print arRng(iRw, iCol)Sonraki iColSonraki iRwAlt Bitiş |
Yukarıdaki kodda diziyi Range(“A1:C10”) içindeki değerlerle doldurduk.
NS UBound bir kez daha kullanılır - ancak bu sefer iki kez gereklidir - bir kez satırlar arasında ve ardından tekrar sütunlar arasında döngü için.
NS Hata Ayıklama.Yazdır işlevi, hemen pencerede dizide bulunan değeri size gösterecektir.
