Pengiraan Baris VBA - Bagaimana Mengira Bilangan Baris Terpakai di VBA?

Isi kandungan

Kiraan Row Excel VBA

Dalam pengaturcaraan VBA, merujuk kepada baris juga paling penting dan mengira baris adalah salah satu perkara yang mesti anda perhatikan ketika berkaitan dengan pengekodan VBA. Terdapat banyak nilai yang dapat kita peroleh jika kita dapat memahami pentingnya mengira baris yang mempunyai data dalam lembaran kerja. Dalam artikel ini, kami akan menunjukkan cara mengira baris menggunakan pengekodan VBA.

Bagaimana Mengira Baris di VBA?

Contoh # 1

Untuk mengira baris, kita perlu menggunakan objek RANGE, dalam objek ini, kita perlu menggunakan objek ROWS, dan dalam hal ini, kita perlu menggunakan COUNT harta.

Sebagai contoh, lihat data di bawah ini di excel.

Dari data di atas, kita perlu mengenal pasti bilangan baris dari julat A1 hingga A8. Oleh itu, tentukan dahulu pemboleh ubah sebagai integer untuk menyimpan bilangan baris.

Kod:

Sub Count_Rows_Contoh1 () Dim No_Of_Rows Sebagai Sub End Integer

Untuk pemboleh ubah ini, kami akan menetapkan nombor baris, jadi masukkan nama pemboleh ubah dan keluar tanda sama.

Kod:

Sub Count_Rows_Contoh1 () Dim No_Of_Rows Sebagai Integer No_Of_Rows = Sub Akhir

Kita perlu menyediakan rangkaian sel, jadi buka objek RANGE dan berikan julat sebagai "A1: A8". Kod:

Sub Count_Rows_Contoh1 () Dim No_Of_Rows Sebagai Integer No_Of_Rows = Julat ("A1: A8") Sub Akhir

Setelah julat dibekalkan, kita perlu mengira bilangan baris, jadi pilih harta ROWS objek RANGE.

Dalam harta ROWS objek RANGE kita menghitung sejumlah baris, jadi pilih properti "COUNT" sekarang.

Sekarang di kotak mesej menunjukkan nilai pemboleh ubah.

Kod:

Sub Count_Rows_Example1 () Dim No_Of_Rows Sebagai Integer No_Of_Rows = Range ("A1: A8"). Baris.Jumlah MsgBox No_Of_Rows End Sub

Sekarang jalankan kod dan lihat jumlah baris sel yang dibekalkan.

Ok, ada 8 baris yang disediakan untuk julat, jadi jumlah baris adalah 8 di kotak mesej.

Contoh # 2

Kami mempunyai cara lain untuk mengira baris, untuk kaedah di atas, kita perlu membekalkan pelbagai sel, dan dalam sel jarak ini, ini menunjukkan jumlah baris yang dipilih.

Tetapi bayangkan senario di mana kita perlu mencari yang terakhir digunakan pada lajur mana pun, misalnya, mengambil data yang sama seperti yang dilihat di atas.

Untuk berpindah ke sel yang terakhir digunakan dari sel A1, kami menekan kekunci pintasan excel "Ctrl + Down Arrow" , jadi ia akan membawa anda ke sel terakhir sebelum sel kosong.

Pertama, sediakan sel sebagai A1 menggunakan objek RANGE.

Kod:

Sub Count_Rows_Example2 () Dim No_Of_Rows Sebagai Integer No_Of_Rows = Julat ("A1") MsgBox No_Of_Rows Sub Sub

Dari sel ini, kita perlu bergerak ke bawah, dan di lembaran kerja, kita menggunakan Ctrl + Down Arrow, tetapi di VBA kita menggunakan harta END, pilih properti ini dan buka kurungan untuk melihat pilihan.

Lihat di sana dengan kekunci TAMAT kita dapat melihat semua kekunci anak panah seperti "xlDown, xlToLeft, xlToRight, dan xlUp" kerana kita perlu turun menggunakan pilihan "xlDown".

Kod:

Sub Count_Rows_Example2 () Dim 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 memerlukan nombor baris, jadi gunakan harta ROW.

Kod:

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

Ok, selesai. Sekarang, ini akan menunjukkan nombor baris terakhir, dan itu akan menjadi jumlah sebilangan baris.

Jadi dalam baris, kami mempunyai data.

Contoh # 3 - Cari Baris Terakhir Digunakan

Mencari baris terakhir yang digunakan sangat penting untuk memutuskan berapa kali gelung harus dijalankan dan juga dalam kaedah di atas baris terakhir berhenti untuk memilih apakah ada sel breakpoint, jadi dalam kaedah ini, kita dapat mencari baris terakhir yang digunakan tanpa Ada apa apa masalah.

Buka harta CELL.

Kod:

Sub Count_Rows_Contoh3 () Dim No_Of_Rows Sebagai Integer No_Of_Rows = Sel (MsgBox No_Of_Rows Akhir Sub

Sekarang kita perlu menyebutkan nombor baris untuk memulakannya, masalahnya di sini adalah kita tidak pasti berapa banyak baris data yang kita ada, jadi apa yang dapat kita lakukan ialah kita langsung ke baris terakhir lembaran kerja, untuk sebutan ini ROWS .COUNT harta.

Kod:

Sub Count_Rows_Contoh3 () Dim No_Of_Rows Sebagai Integer No_Of_Rows = Sel (Rows.Count, MsgBox No_Of_Rows End Sub

Seterusnya, kita perlu menyebut di lajur mana yang kita cari baris terakhir yang digunakan, jadi dalam kes ini, kita akan menemukan di lajur pertama, jadi sebutkan 1.

Kod:

Sub Count_Rows_Contoh3 () Dim No_Of_Rows Sebagai Integer No_Of_Rows = Sel (Rows.Count, 1) MsgBox No_Of_Rows End Sub

Pada masa ini, ia akan membawa anda ke sel terakhir lajur pertama, dari sana dan seterusnya kita perlu bergerak ke atas untuk pergi ke sel terakhir yang digunakan, jadi gunakan harta End (xlUp)

Kod:

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

Jadi ini akan membawa anda ke sel lajur 1 yang terakhir digunakan, dan di sel ini, kita memerlukan nombor baris, jadi gunakan harta ROW untuk mendapatkan nombor baris.

Kod:

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

Perkara yang Perlu Diingat

  • COUNT akan memberikan sebilangan baris dalam lembaran kerja.
  • Sekiranya anda mempunyai julat, maka ia akan memberikan sebilangan baris yang dipilih dalam julat.
  • Properti ROW akan mengembalikan nombor baris sel aktif.

Artikel menarik...