Cara menghitung baris dalam tabel menggunakan vba (dengan contoh)

Anda dapat menggunakan sintaks berikut untuk menghitung jumlah baris dalam tabel di Excel menggunakan VBA:

 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

Contoh khusus ini menghitung jumlah baris berikut untuk tabel pada lembar aktif yang disebut Tabel1 :

• Jumlah total baris
• Jumlah total baris header
• Jumlah total garis tubuh

Kami menggunakan fungsi MsgBox untuk membuat kotak pesan yang menampilkan masing-masing nilai ini dalam satu kotak pesan.

Catatan : Kami menggunakan pernyataan vbNewLine untuk menyisipkan baris baru dan membuat kotak pesan dengan banyak baris.

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Cara menghitung baris dalam tabel menggunakan VBA

Misalkan kita mempunyai tabel berikut bernama Tabel1 yang berisi informasi tentang berbagai pemain bola basket:

Kita dapat membuat makro berikut untuk menghitung jumlah baris dalam tabel ini:

 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

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Kotak pesan memberitahu kita bahwa ada total 10 baris dalam tabel.

Ini juga memberitahu kita bahwa ada 1 baris header dan 9 baris isi.

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

Cara menghitung nilai unik dalam rentang menggunakan VBA
Cara menghitung jumlah baris dalam suatu rentang menggunakan VBA
Cara menghitung sel dengan teks tertentu menggunakan VBA