Isi kandungan
Salah satu fungsi yang paling penting dan digunakan secara meluas yang kami gunakan dalam Aplikasi Asas Visual (VBA) ialah fungsi Cari. Dalam artikel ini, saya akan menunjukkan kepada anda cara anda boleh menggunakan Fungsi FIND Excel dengan contoh dan ilustrasi yang betul.
Muat Turun Buku Kerja Amalan
Cari Fungsi dalam VBA dalam Excel.xlsm
6 Contoh Pantas untuk Menggunakan Fungsi FIND dalam VBA
Di sini kami telah mendapat set data dengan Nama Buku, Pengarang dan Harga beberapa buku kedai buku yang dipanggil Kedai Buku Martin.
Hari ini objektif kami adalah untuk melihat pelbagai jenis penggunaan Fungsi Cari VBA daripada set data ini.
1. Gunakan Fungsi Cari dalam VBA tanpa Parameter
Anda boleh menggunakan fungsi Cari VBA tanpa parameter.
Kemudian ia akan mencari nilai tertentu dalam julat sel dan mengembalikan padanan pertama yang ditemuinya.
Mari cari nama “P. B. Shelly” dalam lajur Pengarang ( C4:C13 ).
Baris dengan Fungsi Cari ialah:
Set cell = Range("C4:C17").Find("P. B. Shelly") Kod VBA yang lengkap ialah:
⧭ Kod VBA:
2142
⧭ Output:
Ia menghasilkan Makro dipanggil Cari . Jika anda menjalankan Makro, ia akan mengembalikan $C$6 , alamat sel pertama dengan nama P. B. Shelly .
Baca lebih lanjut: Cari dalam Julat dengan VBA dalamExcel: Termasuk Padanan Tepat dan Separa
2. Gunakan Fungsi Cari dalam VBA dengan Parameter Selepas (Untuk Mula Mencari dari Sel Tertentu)
Anda boleh menggunakan parameter After dengan Fungsi Cari dalam VBA . Kemudian ia akan mula mencari nilai dari bawah sel dalam julat.
Sebagai contoh, mari mula mencari nama “P. B. Shelly” dari bawah sel C6 .
Barisan kod ialah:
Set cell = Range("C4:C13").Find("P. B. Shelly", After:=Range("C6")) Dan Kod VBA yang lengkap ialah:
⧭ Kod VBA:
2771
⧭ Output:
Ia akan mengembalikan $C$13 kerana ia mula mencari dari bawah sel C6 , itu daripada sel C7 . Jadi ia mendapat P. B. Shelly dalam sel C13 dahulu.
Baca lebih lanjut: Cara Mencari Rentetan dalam Sel Menggunakan VBA dalam Excel
3. Jalankan Fungsi Cari dalam VBA dengan Membungkus Parameter Selepas (Untuk Mencari Nilai dalam Cara Membulat)
Parameter After dengan Fungsi Cari mencari nilai dalam cara bulat
Iaitu, ia mula mencari dari bawah sel dalam julat, menyelesaikan carian dalam julat dan kemudian sekali lagi bermula dari atas julat.
Sebagai contoh, mari kita mula mencari nama “John Keats” dari bawah sel C8 menggunakan parameter After .
Barisan kod ialah:
Set cell = Range("C4:C13").Find("John Keats", After:=Range("C8")) Dan Kod VBA yang lengkap ialah:
⧭ Kod VBA:
5424
⧭ Output:
Ia akan mengembalikan $C$7 kerana ia mula mencari dari bawah sel C8 , iaitu dari sel C9 .
Ia tidak menemui apa-apa sehingga sel C13 , jadi ia sekali lagi bermula dari sel C4 dan mencari satu dalam sel C7 .
Bacaan Serupa:
- Cara Mencari Rentetan dengan VBA dalam Excel (8 Contoh)
- Cari Padanan Tepat Menggunakan VBA dalam Excel (5 Cara)
- Cara Mencari dan Mengganti Menggunakan VBA (11 Cara)
4. Gunakan Fungsi Cari dalam VBA dengan Parameter LookAt (Untuk Padanan Tepat atau Separa)
Anda boleh menggunakan fungsi Cari dalam VBA dengan <1 Parameter>LookAt .
Gunakan LookAt = xlWhole untuk perlawanan Tepat dan LookAt=xlPart untuk Separa padan.
Sebagai contoh, mari cuba ketahui sama ada terdapat mana-mana buku dengan nama “Ode” dalam lajur Nama Buku ( B4:B13 ).
Jika kami menggunakan xlWhole dalam baris kod:
Set cell = Range("B4:B13").Find("Ode", LookAt:=xlWhole) Output akan menunjukkan ralat kerana ia tidak akan menemui sebarang padanan tepat .
Tetapi jika anda menggunakan:
Set cell = Range("B4:B13").Find("Ode", LookAt:=xlPart) Kemudian ia akan kembali $B$9 , kerana terdapat sebuah buku dengan nama “Ode” di dalamnya dalam sel B7 , Ode to the Nightingale.
Jadi kod lengkap untuk separa sepadanialah:
⧭ Kod VBA:
3590
5. Kendalikan Fungsi Cari dalam VBA dengan Parameter Arah Carian (Untuk Menentukan Arah Carian)
Anda juga boleh menggunakan fungsi Cari dalam VBA dengan Parameter SearchDirection .
Gunakan SearchDirection = xlNext untuk mencari dari Atas ke Bawah .
Dan SearchDirection = xlSebelumnya untuk mencari dari Bawah ke Atas .
Sebagai contoh, mari cuba cari Pengarang Elif Shafak dalam lajur Pengarang ( C4:C13 ).
Jika kami menggunakan xlNext dalam baris kod:
Set cell = Range("C4:C13").Find("Elif Shafak", SearchDirection:=xlNext) Kemudian ia akan mengembalikan $C$5 .
Tetapi jika anda menggunakan:
Set cell = Range("C4:C13").Find("Elif Shafak", SearchDirection:=xlPrevious) Kemudian ia akan kembali $C$11 .
Jadi kod lengkap untuk mencari dari bawah ke atas ialah:
⧭ Kod VBA:
3225
6. Cari Fungsi dalam VBA dengan Parameter MatchCase (Untuk Padanan Sensitif Huruf atau Tidak Sensitif)
Akhir sekali, anda boleh menggunakan fungsi Cari dengan parameter MatchCase .
Gunakan MatchCase = True untuk case-sensitive padanan , dan MatchCase=False untuk padanan tidak sensitif huruf.
Sebagai contoh, mari cuba cari buku “ibu” dalam lajur Nama Buku ( B4:B13 ).
Jika kami menggunakan True dalam baris kod:
Set cell = Range("B4:B13").Find("mother", MatchCase:=True) Output akan menunjukkan ralat kerana ia akan' t mencari apa-apapadan.
Tetapi jika anda menggunakan:
Set cell = Range("B4:B13").Find("mother", MatchCase:=False) Kemudian ia akan kembali $ B$9 kerana terdapat sebuah buku bernama “Ibu” dalam sel B8 .
Jadi kod lengkap untuk padanan tidak peka huruf besar-kecil ialah:
⧭ Kod VBA:
8982
Kesimpulan
Menggunakan kaedah ini, anda boleh menggunakan Fungsi Cari dalam Aplikasi Visual Basic. Adakah anda mempunyai sebarang soalan? Jangan ragu untuk bertanya kepada kami.
