Menampilkan hasil pencarian di List View - Mungkin artikel ini paling dituggu tunggu para pecinta Excel selama tujuh hari tujuh malah dan mungkin blog inilah blog diindonesia yang pertama kali menshare cara menampilkan hasil pencarian di List View, kalau menampilkan pencarian dengan Listbox mungkin banyak yang bahasa.

Menampilkan hasil pencarian di List View logikaya hampir sama dengan menampilkan pencarian di Listbox, cara menampilkan hasil pencarian di List View meggunakan tiga proses, proses pertama adalah filter data sesuai pencarian, proses kedua adalah menyalin hasil filter ke sheet pencarian, dan proses ketiga menampilkan hasil pencarian di List View. Saya juga lupa ternyata belum pernah membahas tentang cara meampilkan hasil pencarian dilistbox pada blog baru ini

Menampilkan hasil pencarian di List View
Cara menampilkan hasil pencarian di List View tidak serumit terori yang saya paparkan diatas apabila anda sudah mengetahui cara menampilkan tabel data dengan list view, jika anda belum mengerti cara menampilkan tabel data di list view silahka anda lihat artikel sebelumnya cara menampilkan tabel data di list view pada link ini cara menampilkan tabel data di list view

Ok lagsung saja buka Microsoft Excel, buat tabel data terserah anda , sebagai asumsi tabel data yang saya gunakan adalah seperti gambar dibawah ini


Selain tabel data siapkan juga sheet satu lagi untuk digunakan sebagai hasil pencarian
Saya ingatkan kembali agar anda tidak menyalahkan saya saat anda gagal menerapkan tutorial ini, ada harus dan wajib membaca artikel yag telah saya buat sebelumnya, pertama artikel tenatng masalah yang muncul ketika anda memakai List Vie, dan artikel cara menampilkan tabel data dengan listview, mohon ini diperhatikan baik baik karena saya tidak lagi menuliskan step stepnya secara terperinci pada artikel kali ini
Jangan lupa sebelumnya cek dibagian References, ceklist box yang ada deskripsinya Microsoft Windows Common Controls 6.0 (SP))
Jika persiapan sudah selesai sekarang buat Form dengan satu kontrol List View dan Satu Kontrol Combobox, Combobox digunakan untuk menampilkan kriteria yang akan dicari
Design formnya kira kira seperti gambar dibawah ini


Anda tidak harus membuat esign form mirip 100 persen dengan gambar diatas
Masuk kejenndela Code, ketikan perintah ini kedalam event Userform Aktf, kode macro ini merupakan perintah menampilkan kriteria yang akan dicari kedalam Combobox, asumsi saya adalah data yang akan dicari berada pada kolom C2 sampai C tak terbatas
Private Sub UserForm_Activate()
Set ws = Worksheets("Sheet1")
On Error Resume Next
Dim Sel As Range
Dim NoDupes As New Collection
Set Status = ws.Range("C2", ws.Range("C2").End(xlDown))
ComboBox1.Clear
For Each Sel In Status
NoDupes.Add Sel.Value, CStr(Sel.Value)
Next Sel
For Each Item In NoDupes
ComboBox1.AddItem Item
Next Item
End Sub
Ketikan lagi kode macro dibawah ini di area even COmbobox Change, tael data yag akan dicari berada kisaran sel A1 sampai sel C1000, jika tabel data anda lebih sedikit atau lebih banyak anda bisa menyesuaikan dengan data yang anda miliki
Private Sub ComboBox1_Change()
Set ws = Worksheets("Sheet1")
C = ws.Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).Row
Sheets("Sheet2").Range("D1").Value = ws.Range("D1").Value
ws.Range("D2").Value = "*" & ComboBox1.Value & "*"
ws.Range("a1:c1000").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=ws.Range("D1:D2")
ws.Range("A2:E" & C).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Sheet2").Range("A1")
Call tampilkanCari
End Sub
Kode diatas merupakan perintah filter kemudian menyalin hasil filter kesheet2
Selanjutnya adalah menampilkan hasil pencarian tadi kedalam List View Call tampilkanCari, maka kita buat proses seperti ini
Sub tampilkanCari()
Dim wksSource As Worksheet
Dim rngData As Range
Dim rngCell As Range
Dim LstItem As ListItem
Dim RowCount As Long
Dim ColCount As Long
Dim i As Long
Dim j As Long

With Me.ListView1
.ListItems.Clear
.Gridlines = True
.HideColumnHeaders = False
.View = lvwReport
End With

Set wksSource = Worksheets("Sheet1")
Set rngData = wksSource.Range("A1").CurrentRegion
For Each rngCell In rngData.Rows(1).Cells
Me.ListView1.ColumnHeaders.Add Text:=rngCell.Value, Width:=90
Next rngCell
ListView1.ListItems.Clear
RowCount = rngData.Rows.Count
ColCount = rngData.Columns.Count
For i = 2 To RowCount
Set LstItem = Me.ListView1.ListItems.Add(Text:=rngData(i, 1).Value)
For j = 2 To ColCount
LstItem.ListSubItems.Add Text:=rngData(i, j).Value
Next j
Next i
End Sub
Jika anda berhasil maka hasilnya akan seperti dibawah ini


Download - Menampilkan hasil pecarian dengan List View

Jika masih ada pertanyaann silahkan bertanya dikolom komentar, saya lebih aktif diblog dari pada dimedia sosial. Dan demikianlah cara menampilkan hasil pencarian dengan List View, semoga bermanfaat dan selamat berlibur dipenghujug akhir pekan
3 comments
This comment has been removed by the author.
This comment has been removed by the author.
Ali Murtopo

kl hasil pencarian tersebut di input kedalam sheet bisa gk mas?? mohon bantuanya

Reply