Vba kullanarak tablodaki satırları sayma (örnekle)

VBA’yı kullanarak Excel’deki bir tablodaki satır sayısını saymak için aşağıdaki sözdizimini kullanabilirsiniz:

 SubCountTableRow ()

Dim tbl As ListObject

'specify table to count rows in
Set tbl = ActiveSheet.ListObjects(" Table1 ")

'create message box that displays row count
MsgBox " Total Rows: " & tbl.Range.Rows.Count & vbNewLine & _
       " Header Rows: " & tbl.HeaderRowRange.Rows.Count & vbNewLine & _
       " Body Rows: " & tbl.ListRows.Count

'set tbl variable to Nothing
Set tbl = Nothing

End Sub

Bu özel örnek, Table1 adlı etkin sayfadaki tablo için aşağıdaki sayıda satırı sayar:

• Toplam satır sayısı
• Toplam başlık satırı sayısı
• Toplam vücut çizgisi sayısı

Bu değerlerin her birini tek bir mesaj kutusunda görüntüleyen bir mesaj kutusu oluşturmak için MsgBox fonksiyonunu kullanıyoruz.

Not : Yeni satırlar eklemek ve çok satırlı bir mesaj kutusu oluşturmak için vbNewLine deyimini kullanırız.

Aşağıdaki örnek, bu sözdiziminin pratikte nasıl kullanılacağını gösterir.

Örnek: VBA kullanılarak bir tablodaki satırlar nasıl sayılır?

Çeşitli basketbol oyuncuları hakkında bilgi içeren Tablo1 adlı aşağıdaki tabloya sahip olduğumuzu varsayalım:

Bu tablodaki satır sayısını saymak için aşağıdaki makroyu oluşturabiliriz:

 SubCountTableRow ()

Dim tbl As ListObject

'specify table to count rows in
Set tbl = ActiveSheet.ListObjects(" Table1 ")

'create message box that displays row count
MsgBox " Total Rows: " & tbl.Range.Rows.Count & vbNewLine & _
       " Header Rows: " & tbl.HeaderRowRange.Rows.Count & vbNewLine & _
       " Body Rows: " & tbl.ListRows.Count

'set tbl variable to Nothing
Set tbl = Nothing

End Sub

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

Mesaj kutusu bize tabloda toplam 10 satır olduğunu söylüyor.

Bu aynı zamanda bize 1 başlık satırı ve 9 gövde satırının olduğunu da söyler.

Ek kaynaklar

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

VBA kullanarak aralıktaki benzersiz değerler nasıl sayılır?
VBA kullanarak bir aralıktaki satır sayısı nasıl sayılır?
VBA kullanarak belirli bir metne sahip hücreleri sayma