Bu örnek, Excel VBA’daki Alanlar koleksiyonunu göstermektedir. Aşağıda Range(“B2:C4,D6:G6”) ile sınırlandık. Bu aralığın iki alanı vardır. Virgül iki alanı ayırır.
Çalışma sayfanıza bir komut düğmesi yerleştirin ve aşağıdaki kod satırlarını ekleyin:
- İlk olarak, iki Range nesnesi tanımlıyoruz. Range nesnelerine aralik1 ve aralik2 diyoruz.
Dim aralik1 As Range, aralik2 As Range
Code language: VB.NET (vbnet)
- aralik1 nesnesini Range(“B2:C4,D6:G6”) ile başlatıyoruz.
Set aralik1 = Range("B2:C4,D6:G6")
Code language: VB.NET (vbnet)
- aralik1 alanlarının sayısını saymak için aşağıdaki kod satırını ekleyin:
aralik1.Areas.Count
Code language: VB.NET (vbnet)
- İndeks değerlerini kullanarak farklı aralik1 alanlarına başvurabilirsiniz. Aşağıdaki kod satırı, ilk alandaki hücre sayısını sayar.
aralık1.Areas(1).Count
Code language: VB.NET (vbnet)
- Ayrıca, aralik1’in her alanında döngü yapabilir ve her alandaki hücre sayısını sayabilirsiniz:
For Each aralik2 In aralik1.Areas
MsgBox aralik2.Count
Next aralik2
Code language: VB.NET (vbnet)
Sonuç: