Cara Menemukan Nomor Baris Menggunakan VBA di Excel (4 Makro)

  • Bagikan Ini
Hugh West

Kita bisa menemukan nomor baris di Excel menggunakan banyak cara, tapi VBA Dengan mana kita dapat menemukan nomor baris dengan cara yang cerdas. Hari ini artikel ini akan menunjukkan 4 makro yang berguna untuk menemukan nomor baris di Excel menggunakan VBA.

Unduh Buku Kerja Praktik

Anda bisa mengunduh buku kerja Excel gratis dari sini dan berlatih secara mandiri.

Temukan Nomor Baris Menggunakan VBA.xlsm

4 Makro untuk Menemukan Nomor Baris Menggunakan VBA di Excel

Perkenalkan dataset kami yang akan kami gunakan untuk mengeksplorasi metode yang mewakili beberapa penjualan wiraniaga di berbagai wilayah.

Makro 1: VBA untuk Menemukan Nomor Baris dengan Mengubah Pilihan

Pertama, kita akan menggunakan makro di Excel VBA untuk menemukan nomor baris dengan memilih sel mana pun. Ini berarti jika Anda hanya memilih sel yang digunakan, makro akan langsung menampilkan nomor baris. Untuk itu, Anda harus simpan kode-kode tersebut dalam sebuah lembar tidak ada dalam modul.

Langkah-langkah:

  • Klik kanan pada judul sheet dan pilih Lihat Kode dari menu konteks .

  • Kemudian tulis kode-kode berikut-
 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rnumber As Integer Rnumber = ActiveCell.row If ActiveCell.Value "" Then MsgBox "Nomor baris dari sel yang diklik adalah: " & Rnumber End If End Sub 
  • Nanti, tidak perlu menjalankan kode-kode, cukup kembali ke sheet Anda.

Perincian Kode:

  • Pertama, saya menciptakan Sub Pribadi prosedur - Lembar Kerja_Pemilihan_Perubahan .
  • Kemudian mendeklarasikan variabel Rnumber sebagai Bilangan bulat .
  • barisan akan menentukan nomor baris sel yang aktif.
  • Selanjutnya, yang Jika akan memeriksa sel aktif apakah kosong atau tidak, dan kemudian MsgBox akan menampilkan output.
  • Sekarang cukup klik pada sel yang digunakan dan itu akan menunjukkan nomor barisnya.

Baca selengkapnya: Excel VBA: Temukan String di Kolom dan Kembalikan Nomor Baris

Makro 2: Temukan Nomor Baris Sel Aktif Menggunakan VBA

Makro ini akan mengembalikan nomor baris sel aktif dalam sel tertentu dari sheet kita. Jadi, kita harus menyebutkan nama lembar kerja dan sel keluaran dalam kode kita. Di sini, kita akan menggunakan Sel D14 sebagai sel keluaran kita.

Langkah-langkah:

  • Tekan ALT + F11 untuk membuka Jendela VBA .

  • Berikutnya, klik seperti berikut ini untuk menyisipkan modul baru: Sisipkan> Modul .

  • Setelah itu, ketikkan kode-kode berikut ini dalam modul-
 Sub Find_Row_Number_of_an_Active_Cell() Dim wSheet As Worksheet Set wSheet = Worksheets("Active Cell") wSheet.Range("D14") = ActiveCell.row End Sub 
  • Kemudian kembali ke lembaran Anda.

Perincian Kode:

  • Di sini, Cari_Jumlah_Baris_dari_sel_Aktif() adalah Sub
  • The wSheet dideklarasikan sebagai Lembar Kerja
  • Kemudian Set akan memilih sel yang aktif
  • Rentang akan mengembalikan nomor baris di sel keluaran.
  • Sekarang pilih sel dan klik sebagai berikut: Pengembang> Makro .

  • Setelah tampil di Makro kotak dialog, cukup pilih nama makro dan tekan Lari .

Segera setelah itu, Anda akan melihat bahwa nomor baris sel yang dipilih dikembalikan di sel keluaran kami.

Anda bisa melihat bahwa B8 sel telah dipilih, jadi 8 adalah outputnya.

Baca selengkapnya: Cara Mendapatkan Nomor Baris Sel Saat Ini di Excel (4 Cara Cepat)

Bacaan Serupa

  • Cara Menambah Nomor Baris dalam Rumus Excel (6 Cara Praktis)
  • Dapatkan Nomor Baris dari Rentang dengan Excel VBA (9 Contoh)
  • Cara Mengembalikan Nomor Baris dari Kecocokan Sel di Excel (7 Metode)
  • Cara Mendapatkan Nomor Baris dari Nilai Sel di Excel (5 Metode)

Makro 3: VBA untuk Menemukan Nomor Baris dengan Mencocokkan Nilai

Jika Anda ingin mencari nomor baris dengan mencari nilai maka makro ini cocok untuk Anda. Anda harus menyebutkan nilai pencarian dan nomor kolom dalam kode seperti yang ditunjukkan pada gambar di bawah ini.

Langkah-langkah:

  • Ikuti dua langkah pertama dari metode sebelumnya untuk menyisipkan modul baru.
  • Kemudian, masukkan kode-kode berikut di dalamnya-
 Sub Find_Row_Matching_a_Value() Dim wBook As Workbook Dim wSheet As Worksheet Dim fCell As Range Set wBook = ActiveWorkbook Set wSheet = ActiveSheet Const Matching_Value As String = "Luka" Set fCell = wSheet.Range("B:B").Find(What:= Matching_Value) If Not fCell Is Nothing Then MsgBox (Matching_Value & "terletak di baris: " & fCell.row) Else MsgBox (Matching_Value & "Tidak cocok") EndJika Akhir Sub 
  • Setelah itu, kembalilah ke lembaran Anda.

Perincian Kode:

  • Di sini, Find_Row_Matching_a_Value() adalah Sub
  • Dan wBook dan wSheet dinyatakan sebagai Lembar Kerja dan fCell dideklarasikan sebagai Rentang .
  • The wBook dan wSheet ditetapkan untuk Buku Kerja Aktif dan ActiveSheet .
  • Const akan mengambil input untuk nilai pencarian.
  • Kemudian, Rentang akan mencari nilai melalui kolom yang disebutkan.
  • Selanjutnya, yang Jika dan Lain-lain akan menunjukkan hasilnya dengan menggunakan MsgBox .
  • Kemudian, ikuti langkah ke-5 dari metode sebelumnya untuk membuka Makro kotak dialog.
  • Pilih nama makro dan cukup tekan Lari .

Segera kotak pemberitahuan akan menunjukkan nomor baris.

Baca selengkapnya: Excel VBA: Kembalikan Jumlah Baris Nilai (5 Metode yang Sesuai)

Makro 4: Tombol untuk Menemukan Nomor Baris

Dalam metode terakhir kami, kami akan menunjukkan kepada Anda metode paling cerdas untuk menentukan nomor baris menggunakan VBA Ketika kita mengklik tombol tersebut, maka akan terbuka sebuah kotak input dimana kita bisa memberikan input nilai pencarian yang kita inginkan nomor barisnya. Makro sebelumnya bisa mencari melalui kolom yang disebutkan, tetapi makro ini bisa mencari kolom apa saja, dimana saja di dalam sheet.

Langkah-langkah:

  • Sekali lagi ikuti dua langkah pertama dari metode kedua untuk menyisipkan modul baru.
  • Berikutnya, masukkan kode-kode berikut di dalamnya-
 Sub Find_Row_Number() Dim mValue As String Dim mrrow As Range mValue = InputBox("Masukkan nilai") Set mrrow = Cells.Find(What:=mValue, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False) If mrrow Is Nothing Then MsgBox ("No Match") Else MsgBox (mrrow.row) End If End Sub 
  • Kemudian kembali ke lembar Anda.

Perincian Kode:

  • Pertama, saya menciptakan Sub prosedur Temukan_Jumlah_Baris_Nomor().
  • Kemudian mendeklarasikan dua variabel, mValue sebagai String dan barisan sebagai Rentang .
  • Kemudian menggunakan Kotak Masukan untuk menyisipkan nilai.
  • Kemudian, yang Set dan Jika akan menemukan nomor baris jika tidak kosong.
  • Akhirnya, yang MsgBox akan menampilkan output.
  • Kemudian, klik Pengembang> Masukkan dan kemudian pilih Tombol perintah dari Bagian Kontrol Formulir .

  • Kemudian Anda akan mendapatkan tanda plus dengan kursor Anda, seret ke mana saja dengan mengklik pada lembar Anda sesuai dengan ukuran yang Anda inginkan, lalu lepaskan klik.

  • Setelah melepaskan mouse, maka Tetapkan Makro kotak dialog akan terbuka secara otomatis.
  • Pilih nama makro seperti yang disebutkan dalam kode.
  • Kemudian tinggal tekan OK .

  • Berikutnya, klik kanan pada tombol dan pilih Edit Teks untuk mengedit nama tombol.

  • Ketik nama tombol, kemudian klik di mana saja di luar tombol dan namanya akan diubah.

  • Sekarang klik pada tombol, itu akan membuka kotak input.
  • Terakhir, cukup masukkan nilai pencarian dan tekan OK .

Sekarang lihatlah, ini menunjukkan nomor baris dari nilai yang cocok.

Baca selengkapnya: Temukan String di Kolom dan Kembalikan Nomor Baris di Excel (7 Cara)

Kesimpulan

Semoga prosedur-prosedur yang dijelaskan di atas sudah cukup baik untuk mencari nomor baris di excel menggunakan VBA. Jangan ragu untuk menanyakan pertanyaan apapun di kolom komentar dan mohon berikan masukannya. Kunjungi ExcelWIKI untuk mengeksplorasi lebih jauh.

Hugh West adalah pelatih dan analis Excel yang sangat berpengalaman dengan pengalaman lebih dari 10 tahun di industri ini. Beliau meraih gelar Sarjana di bidang Akuntansi dan Keuangan dan gelar Master di bidang Administrasi Bisnis. Hugh memiliki hasrat untuk mengajar dan telah mengembangkan pendekatan pengajaran unik yang mudah diikuti dan dipahami. Pengetahuan ahlinya tentang Excel telah membantu ribuan siswa dan profesional di seluruh dunia meningkatkan keterampilan dan unggul dalam karier mereka. Melalui blognya, Hugh membagikan pengetahuannya kepada dunia, menawarkan tutorial Excel gratis dan pelatihan online untuk membantu individu dan bisnis mencapai potensi penuh mereka.