Bu öğretici, VBA kullanarak bir diziye nasıl çıktı alınacağını gösterecektir.
Çıktı (Baskı) Diziden Aralığa
Bir dizide saklanan veriler kolaylıkla bir Excel sayfasına çıkarılabilir. Bunu yapmanın 3 yolu vardır.
Farklı Bir Aralığa Çıkış Verisi
Bir diziyi Excel'de bir aralıktaki verilerle doldurabilir ve ardından verileri Excel'de farklı bir aralığa aktarabiliriz.
| 12345678 | Genel Alt TestOutput()'diziyi bildirDim rnArray() Varyant Olarak'diziyi aralıkla doldurunrnArray = Aralık("A1:H24")'diziyi farklı bir hücre aralığına çıkarAralık("J1:Q24") = rnArray()Alt Bitiş |
Dizinin tamamı, bir kod satırında diziye kopyalanır ve daha sonra tamamıyla sayfadaki farklı bir hücre aralığına çıkarılır.
Bir Dizide Döngü Yapma ve Verilerin Çıktısını Alma
Bu örnek, diziyi bir aralığa çıkararak bir dizi içinde döngü yapacaktır.
| 12345678910111213 | Genel Alt TestLoopArray()'diziyi bildirDim rnArray() 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ınrnArray = Aralık("A1:A10")'dizideki değerler arasında dolaşiRw için = LBound(rnArray) için UBound(rnArray)'verilerle farklı bir aralığı doldurunHücreler(iRw, 2).Value = rnArray(iRw, 1)Sonraki iRwAlt Bitiş |
LBoundve UBoundbir dizinin Başlangıç indeksini (Alt Sınır) ve Bitiş indeksini (Üst Sınır) döndürür, bu durumda 1 ve 10.
Dizi Verilerini Aktar
Dizideki verileri Excel sayfasına da aktarabiliriz. Transpose, verileri Excel sayfasında yatay olarak görüntülemenize olanak tanır.
Örneğin, Excel'de bir durum listemiz varsa ve bunları transpoze etmek istiyorsak.
Daha sonra aşağıdaki kodu çalıştırabiliriz:
| 12345678 | Genel Alt TestOutputTranspose()'diziyi bildirDim rnArray() Varyant Olarak'aralığı ile doldurunrnArray = Aralık("A1:A38")'verileri aktarAralık(Hücreler(1, 3)), Hücreler(1, 40)).Value = Application.Transpose(rnArray)Alt Bitiş |
Hangisi aşağıdakilerle sonuçlanır:
Debug.Print'e Çıktı
Ayrıca dizi değerlerini hata ayıklama penceresine de verebiliriz.
| 12345678910111213 | Genel Alt TestLoopArray()'diziyi bildirDim rnArray() 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ınrnArray = Aralık("A1:A10")'satırlar arasında dolaş - 1'den 10'aiRw için = 1'den UBound'a(rnArray)'hemen pencereye çıktıDebug.Print rnArray(iRw, 1)Sonraki iRwAlt Bitiş |
