Vba: aralıktaki satır sayısı nasıl sayılır?


VBA kullanarak Excel’de bir aralıktaki satır sayısını saymak için aşağıdaki temel sözdizimini kullanabilirsiniz:

 SubCountRows ()
    Range(" E2 ") = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
End Sub

Bu özel örnek, A sütunundaki satır sayısını sayar ve ardından sonucu E2 hücresine atar.

Bunun yerine bir mesaj kutusundaki satır sayısını görüntülemek istiyorsanız aşağıdaki sözdizimini kullanabilirsiniz:

 SubCountRows ()
    'Create variable to store number of rows
    Dim row_count As Integer
    
    'Calculate number of rows in range
    row_count = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
    
    'Display the result
    MsgBox " Rows in Column A: " & row_count
End Sub

Aşağıdaki örnekler, bu yöntemlerin her birinin, üç farklı takımdaki basketbolcuların adlarını içeren Excel’deki aşağıdaki veri kümesiyle pratikte nasıl kullanılacağını göstermektedir:

Örnek 1: VBA kullanarak aralıktaki satırları sayın ve sonuçları hücrede görüntüleyin

A sütunundaki satır sayısını hesaplamak ve sonuçları belirli bir hücrede görüntülemek istediğimizi varsayalım.

Bunun için aşağıdaki makroyu oluşturabiliriz:

 SubCountRows ()
    Range(" E2 ") = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

E2 hücresinin 9 değerini içerdiğine dikkat edin.

Bu bize A sütununda değerlerin bulunduğu 9 satır olduğunu söyler.

Örnek 2: VBA’yı kullanarak aralıktaki satırları sayın ve sonuçları mesaj kutusunda görüntüleyin

Bunun yerine A sütunundaki satır sayısını saymak ve sonuçları bir mesaj kutusunda görüntülemek istediğimizi varsayalım .

Bunun için aşağıdaki makroyu oluşturabiliriz:

 SubCountRows ()
    'Create variable to store number of rows
Dim row_count As Integer
    
    'Calculate number of rows in range
    row_count = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
    
    'Display the result
    MsgBox " Rows in Column A: " & row_count
End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

Mesaj kutusu bize A sütununda değerlerin bulunduğu 9 satır olduğunu söyler.

Bu örnekte, aralık olarak A:A’yı kullanarak A sütununun tamamındaki satır sayısını hesapladığımızı unutmayın.

Ancak bunun yerine belirli bir aralıktaki değerlere sahip satır sayısını hesaplamak istiyorsanız A2:A9 (veya ilgilendiğiniz başka bir aralık) yazabilirsiniz.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA: EĞER ORTALAMA ve EĞER ORTALAMA işlevleri nasıl yazılır
VBA: ETOPLA ve ETOPLA işlevleri nasıl yazılır
VBA: COUNTIF ve COUNTIFS işlevleri nasıl yazılır?

Yorum ekle

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir