VBA Veri Tipleri - Değişkenler ve Sabitler öğreticimizde, değişkenlerin ve sabitlerin ne olduğunu zaten inceledik. Şimdi VBA'daki aralık nesnesine ve bir değişkeni aralık nesnesi olarak nasıl bildireceğimize bakacağız. Aralık nesnesi, VBA'daki hücreleri veya birden çok hücreyi belirtmek için kullanılır. Bu nedenle, kodunuzda kullanmak çok yararlıdır.
VBA Aralıkları ve Hücreleri hakkında daha fazla bilgi için buraya tıklayın.
VBA Aralığı Nesnesi
Tek bir hücreye başvurmak için aralık nesnesini kullanabilirsiniz. Örneğin, VBA kodunuzdaki A1 hücresine başvurmak istiyorsanız, aşağıdaki kodda gösterildiği gibi VBA aralığı nesnesini kullanabilirsiniz:
1234 | Alt YönlendirmeToASingleCellUsingTheRangeObject()Aralık("A1").Değer = 89Range("A1").Font.Bold = DoğruAlt Bitiş |
Klavyenizde çalıştır veya F5 tuşuna bastığınızda, kodunuzu çalıştırmak için gerçek çalışma sayfanızda aşağıdaki sonucu alırsınız:
Birden çok hücreye veya aralığa başvurmak için aralık nesnesini kullanabilirsiniz. Örneğin, VBA kodunuzda hücre aralığına (A1:C1) başvurmak istiyorsanız, aşağıdaki kodda gösterildiği gibi VBA aralığı nesnesini kullanabilirsiniz:
123456 | MultiCellsUsingTheRangeObject() Alt YönlendirmeAralık("A1:C1").Value = "ABC"Range("A1:C1").Borders(xlEdgeBottom).LineStyle = xlDoubleAlt Bitiş |
Klavyenizde çalıştır veya F5 tuşuna bastığınızda, kodunuzu çalıştırmak için gerçek çalışma sayfanızda aşağıdaki sonucu alırsınız:
Bir Değişkeni Aralık Olarak Bildirmek
Bir değişkeni aralık olarak bildirirken Dim ve Set anahtar sözcüklerini kullanmanız gerekecektir. Aşağıdaki kod, bir değişkeni aralık olarak nasıl bildireceğinizi gösterir.
123456789101112 | Alt BildirmeAndSettingARange()Aralık Olarak KarartmaSet rng = Aralık("A10:B10")rng.Value = "Excel'i Otomatikleştir"rng.Font.Bold = Doğrurng.Seçrng.Columns.AutoFitAlt Bitiş |
Sonuç:
Aralık Nesnenizde Belirli Satırları Seçme
Menzil Nesneniz içinde belirli satırları seçebilirsiniz. Aşağıdaki kod, bunu nasıl yapacağınızı gösterir:
12345678 | Alt SeçimSpecificRowsInTheRangeObject()Aralık Olarak KarartmaSet rng = Aralık("A1:C3")rng.Satırlar(3).SeçAlt Bitiş |
Sonuç:
Aralık Nesnenizde Belirli Sütunları Seçme
Menzil Nesneniz içinde belirli sütunları seçebilirsiniz. Aşağıdaki kod, bunu nasıl yapacağınızı gösterir:
12345678 | Alt SeçmeSpecificColumnsInTheRangeObject()Aralık Olarak KarartmaSet rng = Aralık("A1:C3")rng.Columns(3).SelectAlt Bitiş |