Dalam hal mencari atau melihat beberapa nilai atau elemen tertentu, MS Excel menyediakan berbagai fungsi. VLOOKUP Ini membantu kita untuk mencari data yang diinginkan dari kumpulan data apa pun. Ini memungkinkan kita untuk menyebutkan apakah akan mencari kecocokan yang tepat atau perkiraan kecocokan. Seiring dengan menggunakan fungsi ini dalam rumus Excel, kita dapat menggunakan ini dalam kode VBA juga. Pada artikel ini, kita akan melihat bagaimana kita dapat menggunakan ini Fungsi VLOOKUP dalam VBA.

Unduh Buku Kerja Latihan

4 Cara Menggunakan VLOOKUP dalam VBA

1. Mencari Data Secara Manual Menggunakan VLOOKUP di VBA

Mari kita memiliki dataset informasi karyawan dengan ID, Nama, Departemen, Tanggal Bergabung, dan Gaji mereka. Sekarang tugas kita adalah mencari tahu informasi karyawan menggunakan ID mereka secara manual. Untuk bagian ini, kita hanya akan mencari tahu gaji karyawan menggunakan ID mereka.

Langkah 1: Pilih Visual Basic di bawah Pengembang tab (Pintasan Alt + F11 )

Langkah 2: Kemudian sebuah jendela akan datang. Pilih Modul opsi di bawah Sisipkan tombol

Langkah 3: Sekarang tulis kode berikut ini di konsol VBA dan tekan tombol Lari tombol (Pintasan F5 )

Kode:

 Sub Sub vlookup_function_1() Dim Employee_id As Long Dim salary As Long Employee_id = 1144 Set myerange = Range("B4:F11") salary = Application.WorksheetFunction.VLookup(Employee_id, myerange, 5, False) MsgBox "Employee ID:" & Employee_id & " Salary " & "$" & salary End Sub 

Langkah 4: Sekarang pesan pop akan muncul dan menunjukkan informasi

Baca selengkapnya: VLOOKUP untuk Mencari Teks di Excel (4 Cara Mudah)

2. Mencari Data dengan Input Menggunakan VLOOKUP di VBA

Sekarang mari kita lihat bagaimana kita dapat mencari atau mengekstrak data dari tabel atau range dengan input. Seperti gambar, kita akan mencari tahu nama id yang dimasukkan dari tabel informasi karyawan.

Langkah 1: Pertama-tama, buka konsol VBA dengan mengikuti Langkah 1 hingga Langkah 2 yang sama

Langkah 2: Sekarang masukkan kode berikut di jendela VBA

Kode:

 Sub Sub vlookup_function_2() Set myerange = Range("B4:F11") Set ID = Range("D13") Set Nama = Range("D14") Nama.Value = Application.WorksheetFunction.VLookup(ID, myerange, 2, False) End Sub 

Langkah 3: Sekarang Masukkan ID apa pun di sel D13 dan jalankan kode

Langkah 4: The Nama yang disimpan terhadap ID akan ditampilkan

Baca selengkapnya: 10 Praktik Terbaik dengan VLOOKUP di Excel

Bacaan Serupa

• VLOOKUP Tidak Bekerja (8 Alasan &; Solusi)
• Fungsi INDEX MATCH vs VLOOKUP (9 Contoh)
• Gunakan VLOOKUP dengan Beberapa Kriteria di Excel (6 Metode + Alternatif)
• Excel VLOOKUP untuk Menemukan Nilai Terakhir dalam Kolom (dengan Alternatif)
• Excel VLOOKUP untuk Mengembalikan Beberapa Nilai Secara Vertikal

3. Menemukan Informasi dengan Kotak Input Menggunakan VLOOKUP di VBA

Mari kita lihat bagaimana kita bisa mencari data menggunakan kotak input VBA. Untuk pencarian, kita perlu menggunakan VLOOKUP Sekali lagi, dataset akan sama, tetapi pendekatan pencarian akan berbeda. Di sini tugas kita adalah mencari tahu gaji karyawan dengan memasukkan ID dan Departemen.

Langkah 1: Pertama-tama, buka jendela VBA dengan mengikuti Langkah 1 hingga Langkah 2 yang sama

Langkah 2: Sekarang masukkan kode berikut di konsol VBA dan Lari itu

Kode:

 Sub vlookup_function_3() For i = 4 To Cells(Rows.Count, "B").End(xlUp).Row Cells(i, "A").Value = Cells(i, "B").Value & "_" & Cells(i, "D").Value Next i End Sub 

Langkah 3: Ini akan mencetak string gabungan dengan ID dan Departemen di kolom pertama

Langkah 4: Sekarang kembali ke konsol VBA dan masukkan kode lengkap dan jalankan lagi

Kode:

 Sub vlookup_function_3() For i = 4 To Cells(Rows.Count, "B").End(xlUp).Row Cells(i, "A").Value = Cells(i, "B").Value & "_" & Cells(i, "D").Value Next i Dim ID As Long Dim department As String Dim lookup_val As String Dim salary As Long ID = InputBox ("Masukkan ID pegawai") department = InputBox("Masukkan department pegawai") lookup_val = ID & "_" & department OnError GoTo Message check: salary = Application.WorksheetFunction.VLookup(lookup_val, Range("A:F"), 6, False) MsgBox ("Gaji karyawan adalah $" & salary) Message: If Err.Number = 1004 Then MsgBox ("Data karyawan tidak ada") End If End Sub 

Penjelasan Kode

• Pertama, Cells(i, "A").Value = Cells(i, "B").Value & "_" & Cells(i, "D").Value menggunakan kode ini kita menyimpan nilai gabungan ID dan Departemen ke dalam kolom A.
• lookup_val = ID & "_" & departemen ini mendefinisikan bahwa nilai pencarian akan berupa ID dan departemen.
• gaji = Application.WorksheetFunction.VLookup(lookup_val, Range("A: F"), 6, False) di sini kita menyimpan gaji karyawan yang cocok ke dalam variabel bernama gaji
• Jika Err. nomor = 1004 Maka ini adalah pengecekan kondisi. Kami memeriksa apakah nomor kesalahan 1004 atau tidak. Di Excel VBA 1004 kode berarti nilai yang dicari tidak ditemukan, dihapus, atau dihapus.

Langkah 5: Sekarang akan muncul pop-up seperti gambar ini. Enter ID dan Departemen secara berurutan

Langkah 6: Setelah menekan tombol Baiklah tombol, output akhir akan ditampilkan

Langkah 7: Jika Anda salah memasukkan ID atau Departemen, itu akan menampilkan pesan di bawah ini

Baca selengkapnya: Cara VLOOKUP dengan Beberapa Kondisi di Excel (2 Metode)

4. Menemukan Informasi dengan Tombol Menggunakan VLOOKUP di VBA

Sekarang kita akan melihat bagaimana kita dapat mengetahui informasi dengan bantuan tombol daripada menjalankan kode secara manual. Sekali lagi, dataset akan sama seperti di atas.

Langkah 1: Pertama-tama pilih Sisipkan opsi di bawah opsi Pengembang tab

Langkah 2: Kemudian pilih Tombol opsi dari Sisipkan

Langkah 3: Tempatkan tombol sesuai kebutuhan Anda dan berikan nama tombolnya

Langkah 4: Sekarang klik kanan pada tombol dan pilih Tetapkan Makro

Langkah 5: Sekarang buat makro baru dan beri nama vlookup_function_4

Langkah 6: Tulis kode di bawah ini di konsol VBA dan Lari kode

Kode:

 Sub vlookup_function_4() Dim rng As Range, FinalResult As Variant, Table_Range As Range, LookupValue As Range Set rng = Sheets("Sheet4").Range("D15") Set Table_Range = Sheets("Sheet4").Range("B4:F11") Set LookupValue = Sheets("Sheet4").Range("D14") FinalResult = Application.WorksheetFunction.VLookup(LookupValue, Table_Range, 5, False) rng = FinalResult End Sub 

Langkah 6: Sekarang masukkan ID apa saja dan tekan tombol

Baca selengkapnya: Penggunaan VBA VLOOKUP untuk Menemukan Nilai dari Lembar Kerja Lain di Excel

Hal-hal yang Perlu Diingat

Kesimpulan

Ini adalah beberapa cara untuk menggunakan VLOOKUP Saya telah menunjukkan semua metode dengan contohnya masing-masing tetapi mungkin ada banyak iterasi lainnya. Saya juga telah membahas dasar-dasar fungsi yang digunakan. Jika Anda memiliki metode lain untuk mencapai ini, silakan bagikan dengan kami.