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

Tambahkan komentar

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *