Fungsi untuk mencari data tertentu

Fungsi untuk mencari data tertentu - Apabila dalam tabel data sudah tersusun sebuah database yang mungkin jumlahnya sudah ratusan atau mungkin sudah berjumlah ribuan baris biasanya untuk mencari data yang kita inginkan cukup menekan kombinasi tombol Ctrl + F, secara otomastis akan muncul kotak dialog pencarian, kita tinggal input keyword yang akan kita cari lalu klik find.



Klik Find All untuk menampilkan data yang sesuai dengan kriteria yang anda cari, pada hasil pencarian akan ditampilkan nama workbook, nama sheet, sel letak data terkait, dan data yang sesuai degan kriteria yang anda cari

EXCEL SEARCH ENGINE : Fungsi untuk mencari data tertentu

Diatas merupakan pencarian menggunakan fitur bawaan microsoft excel, bagaimana bila kita membuat sendiri fungsi pencarian dengan menggunakan form ? baik inilah inti dari artikel kali ini

Fungsi untuk mencari data tertentu

Katakanlah anda mempunyai tabel data sebagaimana tabel dibawah ini



Atau download file latihan dibawah ini
Download - Download File latihan

 Buka file hasil download, lihat sheet1 ada database Pemasok
 Tambahkan pada sel G1 fungsi =B2
 Pada menu ribbon buka Tab Developper, pilih Insert, dan Insert kontrol Commnadbutton
 Lihat gambar dibawah ini



 Masukan kode macro dibawah ini kedalam commanbutton ( Bagi pemula harap baca terlebih dahulu pengertian Microsoft Excel Visual Basic dan dasar dasarnya di link ini )

Private Sub CommandButton1_Click()
Range("A3:E15").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("G1:G2")
End Sub

 Coba sekarang ketikan keyword nama pemasok pada sel G1, misal ketik Unggul kemudian klik Cari

EXCEL SEARCH ENGINE : Fungsi untuk mencari data tertentu - Menampilkan di Listbox

Jika anda ingin menampilkan pencarian data kedalam listbox ada baiknya anda lihat dulu cara menampilkan data dilistbox pada link ini Isi ListBox Sesuai Dengan Data Dalam Sheet

 Langsung saja masuk ke jendela VBE, buat form dengan kontrol textbox dan listbox, perhatikan gambar dibawah ini



 Masukan kode macro dibawah ini event textbox1 Change

Private Sub TextBox1_Change()
Set Ws = Sheet1
Ws.Range("G2").Value = "*" & TextBox1.Value & "*"
Ws.Range("A2:F1000").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Ws.Range("G1:G2")
Call TampilkanSemua

If Ws.FilterMode Then Ws.ShowAllData

End Sub

Perhatikan teks kode macro yang saya warnai merah

 Kode macro untuk menampilkan data sesuai kriteria pencarian

Sub TampilkanSemua()

Set Ws = Sheet1
ListBox1.Clear
With ListBox1
.AddItem
.ColumnCount = 5
.List(.ListCount - 1, 0) = "Kode"
.List(.ListCount - 1, 1) = "Nama Pemasok"
.List(.ListCount - 1, 2) = "Alamat"
.List(.ListCount - 1, 3) = "Kota"
.List(.ListCount - 1, 4) = "Telp / HP"
.ColumnWidths = 45 & ";" & 120 & ";" & 150 & ";" & 90 & ";" & 80
End With

With Ws
Set rgTampil = Ws.Range("A3:A1000"). _
SpecialCells(xlCellTypeVisible)
For Each sTampil In rgTampil
With ListBox1
.AddItem sTampil.Value
.List(.ListCount - 1, 0) = sTampil.Value
.List(.ListCount - 1, 1) = sTampil.Offset(0, 1).Value
.List(.ListCount - 1, 2) = sTampil.Offset(0, 2).Value
.List(.ListCount - 1, 3) = sTampil.Offset(0, 3).Value
.List(.ListCount - 1, 4) = sTampil.Offset(0, 4).Value
End With
Next sTampil
End With

End Sub

Perhatikan teks kode macro yang saya warnai merah

 Lihat hasilnya


Jika masih kesulitan untuk memahami kode macro diatas silahkan download file sampel EXCEL SEARCH ENGINE : Fungsi untuk mencari data tertentu - Menampilkan di Listbox pada link download dibawah ini. Jangan lupa share dan ikuti IG Admin Wasis Zain, atau like fanpage Excel Pro (iParengan)

Download - Fungsi untuk mencari data tertentu

Download - 423 Sampel Excel VBA dijmain mahir VBA

 Order Aplikasi Murah dengan design premium Info Disini