Bu öğretici, VBA'da Range.End özelliğinin nasıl kullanılacağını gösterecektir.
Excel çalışma kitabında veya çalışma sayfasında manuel olarak yaptığınız çoğu şey VBA kodunda otomatikleştirilebilir.
Excel'de bir dizi boş olmayan hücreniz varsa ve Ctrl+Aşağı Ok, imleciniz, içinde bulunduğunuz sütunda boş olmayan son hücreye gidecektir. Benzer şekilde, Ctrl+Yukarı Ok, imleciniz boş olmayan ilk hücreye gidecektir. Aynısı, kullanan bir satır için de geçerlidir. Ctrl+Sağ Ok veya Ctrl+Sol Ok o satırın başına veya sonuna gitmek için Bu tuş kombinasyonlarının tümü, VBA kodunuz içinde aşağıdakiler kullanılarak kullanılabilir: Bitiş İşlevi.
Aralık Sonu Özellik Sözdizimi
Range.End Özelliği, birlikte çalıştığınız Geçerli Bölge içindeki belirli bir hücreye gitmenize olanak tanır.
ifade.Son (Yön)
ifade, başlamak istediğiniz hücrenin hücre adresidir (Aralık) örneğin: Aralık(“A1”)
END, kontrol edilen Range nesnesinin özelliğidir.
Yön, kullanabileceğiniz Excel sabitidir. 4 seçenek mevcuttur - xlAşağı, xlToSol, xlToSağa ve xlUp.
Son Hücreye Geçmek
Aşağıdaki prosedür sizi bulunduğunuz hücrelerin Geçerli Bölgesindeki son hücreye götürecektir.
1234 | Alt GoToLast()'hücrelerin geçerli bölgesinde bulunan son hücreye gitAralık("A1").Bitiş(xlDown).SeçAlt Bitiş |
Satırları Sayma
Aşağıdaki prosedür, xlAşağı Geçerli bölgenizde kaç satır olduğunu saymak için Range End özelliğiyle sabit.
12345678 | Alt GoToLastRowofRange()Tamsayı olarak karart rwAralık("A1").Seçin'geçerli bölgedeki son satırı alrw = Aralık("A1").Bitiş(xlDown).Satır'kaç satır kullanıldığını gösterMsgBox "Bu aralıkta kullanılan son satır " & rwAlt Bitiş |
Aşağıdaki, aralıktaki sütunları kullanarak xlToRight devamlı.
12345678 | Alt GoToLastCellofRange()Dim col Tamsayı olarakAralık("A1").Seçin'geçerli bölgedeki son sütunu alcol = Aralık("A1").End(xlToRight).Sütun'kaç sütun kullanıldığını gösterMsgBox "Bu aralıkta kullanılan son sütun " & colAlt Bitiş |
Aralık Dizisi Oluşturma
Aşağıdaki prosedür, bir hücre aralığındaki ilk hücreden başlamamıza ve ardından hücre aralığındaki son hücreyi bulmak için End(xlDown) özelliğini kullanmamıza izin verir. Daha sonra dizimizi Aralıktaki toplam satırlarla ReDimleyebiliriz, böylece hücre aralığında döngü yapmamıza izin veririz.
123456789101112131415161718 | Sub PopulateArray()'diziyi bildirDim strSuppliers() As String'satırları saymak için tamsayıyı bildirinTamsayı Olarak Dim n'satırları sayn = Aralık("B1", Aralık("B1").End(xlDown)).Rows.Count'diziyi başlat ve doldurReDim strCustomers(n)'döngü için tamsayı bildirDim i Tamsayı Olarak'diziyi dolduri = 0 için n içinstrCustomers(i) = Aralık("B1").Offset(i, 0).Valuesonraki ben'dizi değerleriyle mesaj kutusunu gösterMsgBox Join(strCustomers, vbCrLf)Alt Bitiş |
Bu prosedürü çalıştırdığımızda aşağıdaki mesaj kutusunu döndürecektir.