UBound

Söz dizimi​

UBound(arrayname, [dimension])

• arrayname: Üst sınırı öğrenilecek dizinin adı; zorunludur.
• dimension: Üst sınırı istenen boyutun numarası; isteğe bağlıdır. Varsayılanı 1'dir (ilk boyut). Birinci boyut için 1, ikinci boyut için 2 yazılır.

Alt sınır ve dizi türlerine göre davranış​

• Dim a(5): Alt sınır varsayılan olarak 0'dır, üst sınır 5 olur ve dizi 6 elemanlıdır. Option Base 1 yazılırsa alt sınır 1 olur.
• Dim a(2 To 8): Alt ve üst sınır açıkça belirtilmiştir; UBound 8 döndürür.
• Split işlevi: Option Base ayarından bağımsız olarak her zaman 0 tabanlı dizi üretir. Boş metinde UBound -1 döndürür.
• Range.Value: Bir aralığın Value özelliğinden alınan dizi her zaman 1 tabanlı ve iki boyutludur: önce satır, sonra sütun gelir. Tek sütunlu aralık bile iki boyutlu dizidir.
• Array işlevi: Alt sınır Option Base ayarına göre 0 ya da 1 olur.

Hatalar ve dinamik dizilerle kullanım​

• Boyut numarası fazla: Dizide olmayan bir boyut numarası verirseniz hata oluşur. Örneğin tek boyutlu dizide boyut olarak 2 yazmak hatalıdır.
• Boyutlandırılmamış dinamik dizi: Dim a() As String ile tanımlanıp henüz ReDim yapılmamış bir diziye UBound uygulanırsa hata verir.

1. Split sonucundaki öğe sayısını bulma​

Option Explicit

Sub OgeSayisiniYaz()
    Dim ws As Worksheet
    Dim son As Long, i As Long
    Dim parcalar() As String

    Set ws = ActiveSheet
    son = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    For i = 2 To son
        parcalar = Split(ws.Cells(i, 1).Value, ",")
        ' Split 0 tabanlı olduğu için öğe sayısı UBound + 1'dir
        If UBound(parcalar) >= 0 Then
            ws.Cells(i, 2).Value = UBound(parcalar) + 1
            ws.Cells(i, 3).Value = Trim(parcalar(UBound(parcalar)))
        End If
    Next i
End Sub

2. Range.Value dizisinin boyutları​

Option Explicit

Sub DiziBoyutlari()
    Dim ws As Worksheet
    Dim v As Variant

    Set ws = ActiveSheet
    ' Aralık değeri 1 tabanlı, iki boyutlu bir dizi olarak gelir
    v = ws.Range("A2:C5").Value

    ws.Range("D2").Value = "Satır sayısı"
    ws.Range("E2").Value = UBound(v, 1)

    ws.Range("D3").Value = "Sütun sayısı"
    ws.Range("E3").Value = UBound(v, 2)

    ws.Range("D4").Value = "Alt sınır"
    ws.Range("E4").Value = LBound(v, 1)
End Sub

3. ReDim Preserve ile büyüyen dizi​

Option Explicit

Sub HedefiAsanlariListele()
    Dim ws As Worksheet
    Dim adlar() As String
    Dim n As Long, i As Long, son As Long

    Set ws = ActiveSheet
    son = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    n = -1 ' Dizi henüz boş

    For i = 2 To son
        If ws.Cells(i, 2).Value >= 50000 Then
            n = n + 1
            ReDim Preserve adlar(0 To n)
            adlar(n) = ws.Cells(i, 1).Value
        End If
    Next i

    ' Dizi boyutlandırılmadıysa UBound hata verir; önce n kontrol edilir
    If n >= 0 Then
        For i = LBound(adlar) To UBound(adlar)
            ws.Cells(i + 2, 3).Value = adlar(i)
        Next i
        ws.Range("D2").Value = UBound(adlar) + 1
    Else
        ws.Range("D2").Value = 0
    End If
End Sub

Kullanırken dikkat edin​

• Eleman sayısı için 1 ekleyin: UBound eleman sayısını değil, en büyük indeksi verir. Dizi 0 tabanlıysa eleman sayısı UBound + 1'dir. Genel ve güvenli formül UBound eksi LBound artı 1'dir.
• Boş diziyi önceden denetleyin: Boyutlandırılmamış dinamik dizide UBound hata 9 verir. Dizi kullanmadan önce bir sayaç ya da bayrak değişkeniyle dolu olup olmadığını kontrol edin. Split ile üretilen boş dizide ise UBound -1 döndürür; bu durumda ilk elemana erişmeyin.
• Boyut numarasını doğru yazın: İkinci parametre 1'den başlar ve dizinin boyut sayısını aşamaz. Range.Value dizisinde 1 satırı, 2 sütunu temsil eder; tek sütunlu aralık bile iki boyutlu dizi olur.
• Preserve kısıtı: ReDim Preserve ile çok boyutlu dizide yalnızca son boyutun üst sınırı değiştirilebilir. Bu nedenle satır sayısı bilinmiyorsa tabloyu tersine (sütun sayısı sabit, son boyut satır olacak şekilde) kurmak gerekebilir.
• Alt sınırı varsaymayın: Split her zaman 0 tabanlı, Range.Value her zaman 1 tabanlı, Array işlevi ise Option Base ayarına bağlı dizi üretir. Döngülerde sabit 0 ya da 1 yazmak yerine LBound ve UBound kullanın.
• İlgili konular:
  • LBound: Dizinin alt sınırını döndürür.
  • ReDim ve ReDim Preserve: Dinamik dizinin boyutunu değiştirir.
  • Dim: Dizi tanımlama deyimi.
  • Split: Metni ayırıcıya göre diziye böler.
  • Join: Dizi elemanlarını tek metinde birleştirir.
  • Array: Değerlerden Variant dizi oluşturur.
  • Option Base: Dizilerin varsayılan alt sınırını belirler.
  • Erase: Diziyi temizler.
  • IsArray: Bir değişkenin dizi olup olmadığını denetler.
  • Range.Value: Aralığı iki boyutlu diziye aktarır.
  • DİZİ.BİRLEŞTİR ve SATIR gibi işlevler: Çalışma sayfası tarafında benzer sayım işleri için kullanılır; örneğin ÇOKEĞERSAY, BAĞ_DEĞ_DOLU_SAY.