Array

Söz dizimi​

Array(arglist)

Dim dizi As Variant
dizi = Array(deger1, deger2, deger3)

• arglist: Diziye konacak değerlerin virgülle ayrılmış listesidir; isteğe bağlıdır. Hiç değer vermezseniz uzunluğu sıfır olan boş bir dizi oluşur. Değerler farklı veri türlerinde (metin, sayı, tarih, Boolean) olabilir.
• Sonucun atanacağı değişken: Variant türünde tanımlanmalıdır. Sabit boyutlu bir diziye (Dim ile boyutu belirtilmiş) ya da String gibi türlü bir değişkene doğrudan atama yapılamaz ve tür uyuşmazlığı hatası oluşur.

Dönüş değeri ve alt sınır​

• Varsayılan durum: Option Base kullanılmadıysa alt sınır 0'dır; 5 değer verirseniz indeksler 0'dan 4'e gider.
• Option Base 1: Modülün başına bu deyimi yazarsanız Array ile oluşturulan dizilerin alt sınırı 1 olur.
• VBA.Array: İşlevi VBA.Array biçiminde tür kitaplığı adıyla çağırırsanız Option Base etkisiz kalır ve alt sınır her zaman 0'dır.
• LBound ve UBound: Dizinin sınırlarını öğrenmek için LBound ve UBound işlevlerini kullanın; eleman sayısı üst sınırdan alt sınırın çıkarılıp 1 eklenmesiyle bulunur.

Kullanım biçimleri​

Dim ic As Variant
ic = Array(Array(1, 2), Array(3, 4))
' ic(1)(0) ifadesi ikinci iç dizinin ilk elemanını verir

1. Ay adlarını dizi ile sayfaya yazma​

Option Explicit

Sub AylariYaz()
    Dim aylar As Variant
    Dim i As Long

    ' Ay adlarını Array işleviyle bir Variant değişkene yükle
    aylar = Array("Ocak", "Şubat", "Mart", "Nisan", "Mayıs", "Haziran")

    ' Alt ve üst sınırı kullanarak sonlu bir döngü kur
    For i = LBound(aylar) To UBound(aylar)
        ActiveSheet.Cells(i + 2, 2).Value = aylar(i)
    Next i
End Sub

2. Option Base ve VBA.Array farkı​

Option Base 1
Option Explicit

Sub SinirlariYaz()
    Dim sehirler As Variant
    Dim sabit As Variant

    ' Option Base 1 nedeniyle alt sınır 1 olur
    sehirler = Array("Ankara", "İstanbul", "İzmir")

    ' VBA.Array, Option Base ayarını yok sayar ve alt sınır 0 olur
    sabit = VBA.Array("Ankara", "İstanbul", "İzmir")

    With ActiveSheet
        .Range("B2").Value = LBound(sehirler)
        .Range("B3").Value = UBound(sehirler)
        .Range("B4").Value = UBound(sehirler) - LBound(sehirler) + 1
        .Range("B5").Value = LBound(sabit)
    End With
End Sub

3. Kampanya şehirlerini dizide arama​

Option Base 0
Option Explicit

Sub KampanyaKontrol()
    Dim kapsam As Variant
    Dim satir As Long

    ' Kampanya kapsamındaki şehirler
    kapsam = Array("Ankara", "İzmir", "Bursa", "Antalya")

    For satir = 2 To 9
        ' Match bulamazsa hata döndürür; IsError ile yakalanır
        If IsError(Application.Match(ActiveSheet.Cells(satir, 1).Value, kapsam, 0)) Then
            ActiveSheet.Cells(satir, 3).Value = "Hayır"
        Else
            ActiveSheet.Cells(satir, 3).Value = "Evet"
        End If
    Next satir
End Sub

Kullanırken dikkat edin​

• Variant zorunluluğu: Array işlevinin sonucunu yalnızca Variant türünde bir değişkene atayabilirsiniz. Değişkeni Dim x(2) As String gibi sabit boyutlu ya da türlü tanımlarsanız atama sırasında hata alırsınız.
• İndeks 0'dan başlar: Dizinin ilk elemanı varsayılan olarak 0 indeksindedir. İndeks sınırlarını elle yazmak yerine LBound ve UBound kullanın; böylece Option Base değişse de kodunuz bozulmaz. Sınırın dışına çıkarsanız Subscript out of range (dizin sınırlar dışında) hatası oluşur.
• Option Base yalnızca modülü etkiler: Option Base 1 deyimi yalnızca yazıldığı modüldeki Array çağrılarını ve dizi tanımlarını etkiler. Aynı projedeki başka modüllerde alt sınır yine 0 olur. Bu karışıklığı önlemek için VBA.Array kullanabilirsiniz.
• Büyük listeler için uygun değildir: Array işlevi kod içinde elle yazdığınız kısa listeler için uygundur. Yüzlerce hücredeki değeri diziye almak için bir Range nesnesinin Value özelliğini bir Variant değişkene atamak daha pratiktir; bu durumda dizi iki boyutlu ve 1 tabanlı olur.
• Hücreye yazarken yön: Bir Range nesnesine Array atadığınızda değerler yatay yazılır. Dikey yazmak için Application.Transpose kullanın. Aralığın boyutu dizinin eleman sayısıyla uyuşmazsa fazla hücrelere #YOK (#N/A) hatası yazılabilir.
• İlgili konular:
  • Split ve Join: Metni diziye bölen ve diziyi metne birleştiren işlevler.
  • LBound ve UBound: Dizinin alt ve üst sınırını veren işlevler.
  • Option Base: Dizilerin varsayılan alt sınırını belirleyen deyim.
  • Dim ve ReDim: Dizi tanımlama ve yeniden boyutlandırma deyimleri.
  • IsArray: Bir değişkenin dizi içerip içermediğini sınayan işlev.
  • Filter: Bir metin dizisini ölçüte göre süzen VBA işlevi.
  • Application.Match: Bir değeri dizi ya da aralıkta arayan yöntem; çalışma sayfasındaki KAÇINCI işleviyle aynı mantıktadır.
  • Range.Value: Hücre değerlerini dizi olarak okuma ve yazma özelliği.