Daftar Isi
Salah satu fungsi yang paling penting dan banyak digunakan yang kita gunakan dalam Aplikasi Visual Basic (VBA) Dalam artikel ini, saya akan menunjukkan kepada Anda bagaimana Anda dapat menggunakan fungsi Find. Fungsi FIND Excel dengan contoh dan ilustrasi yang tepat.
Unduh Buku Kerja Praktik
Temukan Fungsi dalam VBA di Excel.xlsm6 Contoh Cepat untuk Menggunakan Fungsi FIND dalam VBA
Di sini, kita punya set data dengan Nama Buku, Pengarang dan Harga beberapa buku dari toko buku bernama Martin Bookstore.
Hari ini tujuan kita adalah untuk melihat berbagai jenis penggunaan dari Menemukan fungsi dari VBA dari kumpulan data ini.
1. Gunakan Fungsi Find dalam VBA tanpa Parameter
Anda bisa menggunakan Menemukan fungsi dari VBA tanpa parameter.
Kemudian akan mencari nilai tertentu dalam rentang sel dan mengembalikan kecocokan pertama yang ditemukannya.
Mari kita cari nama "P. B. Shelly" di kolom Penulis ( C4:C13 ).
Garis dengan Menemukan fungsi akan menjadi:
Set cell = Range("C4:C17").Find("P. B. Shelly") Lengkap Kode VBA akan menjadi:
⧭ Kode VBA:
Sub Find() Set cell = Range("C4:C17").Find("P. B. Shelly") MsgBox cell.Address End Sub 
⧭ Keluaran:
Ini menghasilkan Makro disebut Temukan Jika Anda menjalankan Macro, ia akan mengembalikan $C$6 , alamat sel pertama dengan nama P. B. Shelly .
Baca selengkapnya: Temukan dalam Rentang dengan VBA di Excel: Termasuk Kecocokan Tepat dan Parsial
2. Terapkan Fungsi Find di VBA dengan Parameter After (Untuk Mulai Mencari dari Sel Tertentu)
Anda bisa menggunakan Setelah parameter dengan parameter Menemukan fungsi di VBA Kemudian akan mulai mencari nilai dari bawah sel dalam suatu rentang.
Contohnya, mari kita mulai mencari nama "P. B. Shelly" dari sel bawah C6 .
Baris kodenya adalah:
Set cell = Range("C4:C13").Find("P. B. Shelly", After:=Range("C6")) Dan lengkapnya Kode VBA akan menjadi:
⧭ Kode VBA:
Sub Find() Set cell = Range("C4:C13").Find("P. B. Shelly", After:=Range("C6")) MsgBox cell.Address End Sub 
⧭ Keluaran:
Ini akan mengembalikan $C$13 karena ia mulai mencari dari bawah sel C6 , itu dari sel C7 . sehingga mendapat P. B. Shelly di dalam sel C13 pertama.
Baca selengkapnya: Cara Menemukan String dalam Sel Menggunakan VBA di Excel
3. Jalankan Fungsi Find di VBA dengan Pembungkus di sekitar Parameter After (Untuk Mencari Nilai secara Melingkar)
The Setelah parameter dengan parameter Menemukan fungsi mencari nilai dengan cara melingkar
Artinya, ia mulai mencari dari bawah sel dalam suatu rentang, menyelesaikan pencarian dalam rentang tersebut, dan kemudian memulai lagi dari atas rentang.
Contohnya, mari kita mulai mencari nama "John Keats" dari sel bawah C8 menggunakan Setelah parameter.
Baris kodenya adalah:
Set cell = Range("C4:C13").Find("John Keats", After:=Range("C8")) Dan lengkapnya Kode VBA akan menjadi:
⧭ Kode VBA:
Sub Find() Set cell = Range("C4:C13").Find("John Keats", After:=Range("C8")) MsgBox cell.Address End Sub 
⧭ Keluaran:
Ini akan mengembalikan $C$7 karena ia mulai mencari dari bawah sel C8 , itu dari sel C9 .
Itu tidak menemukan apa pun hingga sel C13 , jadi sekali lagi dimulai dari sel C4 dan menemukan satu dalam sel C7 .
Bacaan serupa:
- Cara Menemukan String dengan VBA di Excel (8 Contoh)
- Temukan Pencocokan Tepat Menggunakan VBA di Excel (5 Cara)
- Cara Menemukan dan Mengganti Menggunakan VBA (11 Cara)
4. Memanfaatkan Fungsi Find dalam VBA dengan Parameter LookAt (Untuk Pencocokan Tepat atau Sebagian)
Anda bisa menggunakan Menemukan fungsi di VBA dengan LookAt parameter.
Gunakan LookAt = xlWhole untuk sebuah Tepat cocok, dan LookAt = xlPart untuk Sebagian cocok.
Misalnya, mari kita coba mencari tahu apakah ada buku dengan nama "Ode" di Nama Buku kolom ( B4:B13 ).
Jika kita menggunakan xlSeluruh di baris kode:
Set cell = Range("B4:B13").Find("Ode", LookAt:=xlWhole) Keluaran akan menunjukkan kesalahan karena tidak akan menemukan tepat cocok.
Tetapi jika Anda menggunakan:
Set cell = Range("B4:B13").Find("Ode", LookAt:=xlPart) Kemudian akan kembali $B$9 , karena ada sebuah buku dengan nama "Ode" di dalamnya dalam sel B7 , Ode to the Nightingale.
Jadi, kode lengkap untuk sebagian cocok adalah:
⧭ Kode VBA:
Sub Find() Set cell = Range("B4:B13").Find("Ode", LookAt:=xlPart) MsgBox cell.Address End Sub 
5. Operasikan Fungsi Find di VBA dengan Parameter SearchDirection (Untuk Menentukan Arah Pencarian)
Anda juga bisa menggunakan Menemukan fungsi di VBA dengan ArahPencarian parameter.
Gunakan ArahPencarian = xlNext untuk mencari dari Atas ke Bawah .
Dan ArahPencarian = xlSebelumnya untuk mencari dari Bawah ke Atas .
Sebagai contoh, mari kita coba mencari Penulis Elif Shafak di kolom Penulis ( C4:C13 ).
Jika kita menggunakan xlNext di baris kode:
Set cell = Range("C4:C13").Find("Elif Shafak", SearchDirection:=xlNext) Kemudian akan kembali $C$5 .
Tetapi jika Anda menggunakan:
Set cell = Range("C4:C13").Find("Elif Shafak", SearchDirection:=xlPrevious) Kemudian akan kembali $C$11 .
Jadi kode lengkap untuk mencari dari bawah ke atas adalah:
⧭ Kode VBA:
Sub Cari() Set sel = Range("C4:C13").Find("Elif Shafak", ArahPencarian:=xlSebelumnya) MsgBox sel.Alamat End Sub 
6. Temukan Fungsi dalam VBA dengan Parameter MatchCase (Untuk Pencocokan Peka Huruf atau Tidak Peka Huruf)
Terakhir, Anda bisa menggunakan Menemukan fungsi dengan MatchCase parameter.
Gunakan MatchCase = True untuk peka huruf besar-kecil cocok , dan MatchCase=False untuk tidak peka huruf besar-kecil cocok.
Misalnya, mari kita coba mencari buku "ibu" di Nama Buku kolom ( B4:B13 ).
Jika kita menggunakan True dalam baris kode:
Set cell = Range("B4:B13").Find("mother", MatchCase:=True) Output akan menunjukkan kesalahan karena tidak akan menemukan kecocokan.
Tetapi jika Anda menggunakan:
Set cell = Range("B4:B13").Find("mother", MatchCase:=False) Kemudian akan kembali $B$9 karena ada sebuah buku yang bernama "Ibu" di dalam sel B8 .
Jadi, kode lengkap untuk tidak peka huruf besar-kecil cocok adalah:
⧭ Kode VBA:
Sub Find() Set cell = Range("B4:B13").Find("Mother", MatchCase:=False) MsgBox cell.Address End Sub 
Kesimpulan
Dengan menggunakan metode-metode ini, Anda dapat menggunakan Fungsi Find dalam Aplikasi Visual Basic. Apakah Anda memiliki pertanyaan? Jangan ragu untuk bertanya kepada kami.
