Jumlah Baris VBA - Bagaimana Menghitung Jumlah Baris Bekas di VBA?

Jumlah Baris VBA Excel

Dalam pemrograman VBA, merujuk ke baris juga paling penting dan menghitung baris adalah salah satu hal yang harus Anda waspadai ketika datang ke pengkodean VBA. Banyak sekali nilai yang bisa kita peroleh jika kita memahami pentingnya menghitung baris yang memiliki data di lembar kerja. Pada artikel ini, kami akan menunjukkan kepada Anda bagaimana menghitung baris menggunakan pengkodean VBA.

Bagaimana Menghitung Baris di VBA?

Contoh 1

Untuk menghitung baris, kita perlu menggunakan objek RANGE, di objek ini kita perlu menggunakan objek ROWS, dan dalam hal ini, kita perlu menggunakan properti COUNT.

Misalnya, lihat data di bawah ini di excel.

Dari data di atas, kita perlu mengidentifikasi berapa baris yang ada dari rentang A1 hingga A8. Jadi pertama-tama tentukan variabel sebagai integer untuk menyimpan jumlah baris.

Kode:

Sub Count_Rows_Example1 () Redupkan No_Of_Rows Sebagai Integer End Sub

Untuk variabel ini, kami akan menetapkan nomor baris, jadi masukkan nama variabel dan beri tanda sama dengan.

Kode:

Sub Count_Rows_Example1 () Redupkan No_Of_Rows Sebagai Integer No_Of_Rows = End Sub

Kita perlu menyediakan berbagai sel, jadi buka objek RANGE dan berikan kisaran sebagai "A1: A8". Kode:

Sub Count_Rows_Example1 () Redup No_Of_Rows Sebagai Integer No_Of_Rows = Range ("A1: A8") End Sub

Setelah rentang disediakan, kita perlu menghitung jumlah baris, jadi pilih properti ROWS dari objek RANGE.

Dalam properti ROWS objek RANGE kita menghitung jumlah baris, jadi pilih properti “COUNT” sekarang.

Sekarang di kotak pesan tunjukkan nilai variabel.

Kode:

Sub Count_Rows_Example1 () Redupkan No_Of_Rows As Integer No_Of_Rows = Range ("A1: A8"). Baris.Hitung MsgBox No_Of_Rows End Sub

Sekarang jalankan kode dan lihat jumlah baris dari rentang sel yang disediakan.

Oke, ada 8 baris yang disediakan untuk rentang tersebut, jadi jumlah baris adalah 8 di kotak pesan.

Contoh # 2

Kami juga memiliki cara lain untuk menghitung baris, untuk metode di atas, kami perlu menyediakan berbagai sel, dan dalam sel rentang ini, ini menunjukkan jumlah baris yang dipilih.

Tapi bayangkan skenario di mana kita perlu menemukan kolom yang digunakan terakhir, misalnya, ambil data yang sama seperti yang terlihat di atas.

Untuk pindah ke sel yang terakhir digunakan dari sel A1, kita tekan tombol shortcut excel "Ctrl + Panah Bawah" , jadi itu akan membawa Anda ke sel terakhir sebelum sel kosong.

Pertama, berikan sel sebagai A1 menggunakan objek RANGE.

Kode:

Sub Count_Rows_Example2 () Redup No_Of_Rows Sebagai Integer No_Of_Rows = Range ("A1") MsgBox No_Of_Rows End Sub

Dari sel ini, kita perlu pindah ke bawah, dan di lembar kerja, kita menggunakan Ctrl + Panah Bawah, tetapi di VBA kita menggunakan properti END, pilih properti ini dan buka braket untuk melihat opsi.

Lihat di sana dengan tombol END kita dapat melihat semua tombol panah seperti "xlDown, xlToLeft, xlToRight, dan xlUp" karena kita perlu turun menggunakan opsi "xlDown".

Kode:

Sub Count_Rows_Example2 () Redupkan No_Of_Rows Sebagai Integer No_Of_Rows = Range ("A1"). End (xlDown) MsgBox No_Of_Rows End Sub

Ini akan membawa Anda ke sel terakhir sebelum jeda, sekarang di sel aktif kita membutuhkan nomor baris, jadi gunakan properti ROW.

Kode:

Sub Count_Rows_Example2 () Redupkan No_Of_Rows As Integer No_Of_Rows = Range ("A1"). End (xlDown) .Row MsgBox No_Of_Rows End Sub

Ok, done. Now, this will show the last row number, and that will be the count of a number of rows.

So in rows, we have data.

Example #3 - Find Last Used Row

Finding the last used row is so important to decide how many times the loop has to run and also in the above method the last row stops to select if there is any breakpoint cell, so in this method, we can find the last used row without any problems.

Open CELL property.

Code:

Sub Count_Rows_Example3() Dim No_Of_Rows As Integer No_Of_Rows = Cells( MsgBox No_Of_Rows End Sub

Now we need to mention the row number to start with, the problem here is we are not sure how many rows of data we have, so what we can do is we straight away go to the last row of the worksheet, for this mention ROWS.COUNT property.

Code:

Sub Count_Rows_Example3() Dim No_Of_Rows As Integer No_Of_Rows = Cells(Rows.Count, MsgBox No_Of_Rows End Sub

Next, we need to mention in which column we are finding the last used row, so in this case, we are finding in the first column, so mention 1.

Code:

Sub Count_Rows_Example3() Dim No_Of_Rows As Integer No_Of_Rows = Cells(Rows.Count, 1) MsgBox No_Of_Rows End Sub

At this moment, it will take you to the last cell of the first column, from there onwards we need to move upwards to go the last used cell, so use End(xlUp) property.

Code:

Sub Count_Rows_Example3() Dim No_Of_Rows As Integer No_Of_Rows = Cells(Rows.Count, 1).End(xlUp) MsgBox No_Of_Rows End Sub

So this will take you to the last used cell of column 1, and in this cell, we need the row number, so use ROW property to get the row number.

Code:

Sub Count_Rows_Example3 () Redupkan No_Of_Rows Sebagai Integer No_Of_Rows = Sel (Rows.Count, 1) .Akhir (xlUp) .Row MsgBox No_Of_Rows End Sub

Hal-hal untuk diingat

  • HITUNGAN akan memberikan sejumlah baris di lembar kerja.
  • Jika Anda memiliki rentang, maka itu akan memberikan sejumlah baris yang dipilih dalam rentang tersebut.
  • Properti ROW akan mengembalikan nomor baris sel aktif.

Artikel yang menarik...