KODE MACRO VLOOKUP EXCEL

KODE MACRO VLOOKUP EXCEL
Anda juga bisa mengunduh contoh file Kode Macro Vlookup Excel

Vlookup adalah rumus formula yang pada umumnya digunakan untuk mencari data tertentu dengan mengetikkan satu atau lebih kata kunci untuk menampilkan data. Nah pada kesempatan kali ini Kami selaku penulis sekaligus pemilik blog akan memberikan Cara Mengganti Vlookup Dengan Kode Macro.

PENJELASAN

Ketika Anda mengetikan kata kunci seperti Nama atau ID, maka data akan muncul sesuai kata kunci yang Anda masukan. Contoh ketika Anda mengetikan Syaref di range A1 maka data Syaref seperti Kelas, Nilai, Keterangan, Tempat Lahir akan muncul secara otomatis begitupun dengan Kode Macro Pengganti Vlookup.

PENGEMBANGAN
Ada beberapa jenis vlookup excel, Perhatikan jenis rumus formula vlookup dan kode macro vlookup diabwah ini.

Jenis Formula Vlookup ke 1 dan ke 2 (dan masih banyak lagi)

VLOOKUP(A1;D1:G5;2;0)
IF(ISNA(VLOOKUP(A1;D1:G5;2;0)=0);"";VLOOKUP(A1;D1:G5;2;0))

Jenis Kode Macro Vlookup ke 1

Set dtbase = Sheets("Sheet1")
Set baris = dtbase.Range("nomor")
For detail = 1 To WorksheetFunction.CountA(baris)
If TextBox1 = dtbase.Cells(detail + 1, 1).Value Then
TextBox2.Value = dtbase.Cells(detail + 1, 2).Value
TextBox3.Value = dtbase.Cells(detail + 1, 3).Value
Exit Sub
End If
TextBox2.Value = ""
TextBox3.Value = ""
Next detail

Jenis Kode Macro Vlookup ke 2

Set dtbase = Sheets("Sheet1")
Set baris = dtbase.Range("nomor")
On Error Resume Next
If TextBox1.Value = "" Then
TextBox2.Value = ""
TextBox3.Value = ""
Exit Sub
End If
Set cari = baris.Find(TextBox1.Value, LookIn:=xlValues, _
MatchCase:=True)
TextBox2.Value = cari.Offset(0, 1).Value
TextBox3.Value = cari.Offset(0, 2).Value

Jenis Kode Macro Vlookup ke 3

Set dtbase = Sheets("Sheet1")
Set baris = dtbase.Range("nomor")
For detail = 1 To WorksheetFunction.CountA(baris)
If Format(TextBox1, "@") = Format(dtbase.Cells(detail + 1, 1).Value, "@") Then
TextBox2.Value = dtbase.Cells(detail + 1, 2).Value
TextBox3.Value = dtbase.Cells(detail + 1, 3).Value
Exit Sub
End If
TextBox2.Value = "data tidak ditemukan"
TextBox3.Value = "data tidak ditemukan"
If TextBox1.Value = "" Then
TextBox2.Value = "-"
TextBox3.Value = "-"
Exit Sub
End If
Next detail

Untuk lebih jelasnya silahkan Anda membuat data seperti gambar dibawah ini

Kemudian tekan Alt+F11 maka Anda masuk di jendela Visual Basic for Application (VBA)

Buatlah Skema seperti gambar dibawah ini

Gambar diatas terdapat tiga label dan tiga textbox, Label 1 ganti menjadi Nomor, label 2 ganti menjadi Nama dan label 3 ganti menjadi kelas. Kemudian klik dua kali Userform dan salin Kode Macro diatas.

KESIMPULAN
Kode Macro Pengganti Vlookup fungsinya seperti search (cari)

Memberikan hasil yang maksimal dan kepuasan terhadap pengunjung termasuk prioritas kami, sehingga Semboyan kami adalah seperti yang tertera dibawah ini.

"Kami Selalu Berusaha Memberikan Yang Terbaik Dan Original Untuk Anda"

Jabat Erat@Hak Cipta 2015