Cara Membuat Form Pencarian Data Pada Listbox VBA Excel

Cara Membuat Form Pencarian Data Pada Listbox VBA Excel ini adalah bagian Belajar VBA Excel Part 10. Pada tutorial kali ini, Admin akan membahas mengenai cara mencari data yang telah tersimpan dan menampilkannya ke dalam ListBox untuk selanjutnya bisa kita edit ataupun menghapusnya.

Penggunaan form pencarian data ini berguna pada saat data yang telah terinput sudah banyak dan saat akan melakukan pengeditan atau penghapusan data akan menyita waktu untuk mencarinya secara manual satu persatu.

Form pencarian data yang akan dibuat menggunakan sebuah TeksBox dimana menjadi tempat penginput objek yang akan dicari dengan objek pencarian yang akan digunakan disini adalan "Nama". Jadi bila nama yang dicari diketikkan kedalam TeksBox pencarian, maka pada ListBox akan menampilkan data yang memiliki nama yang sesuai dengan yang dicari tersebut.

Untuk membuat form pencarian data ini, Sobat SD ikuti langkah-langkah berikut ini:

1. Buat sebuah form pencarian data dari TeksBox dan ubah (name) menjadi "Search" seperti gambar dibawah ini.

2. Selanjutnya double klik pada TeksBox "Search" tersebut sehingga menampilkan Code Window (jendela kode).

3. Tambahkan/ganti koding makro yang ada dengan makro yang ada dibawah ini.

Private Sub Search_Change()
	ListBoxBelajar.Clear
	If Search = "" Then
		Tampil_ListBoxBelajar
	Else
		Set Ws = Worksheets("BelajarVBA")
		iRow = Ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
		With ListBoxBelajar
			.AddItem
			.ForeColor = vbBlue
			.ColumnCount = 8
			.ColumnWidths = "50;80;80;80;80;80;80;80"
			.List(.ListCount - 1, 0) = "KODE ID"
			.List(.ListCount - 1, 1) = "NAMA"
			.List(.ListCount - 1, 2) = "ALAMAT"
			.List(.ListCount - 1, 3) = "KECAMATAN"
			.List(.ListCount - 1, 4) = "KELURAHAN"
			.List(.ListCount - 1, 5) = "TGL. LAHIR"
			.List(.ListCount - 1, 6) = "JENIS KELAMIN"
			.List(.ListCount - 1, 7) = "MODAL USAHA"
		End With
		For i = 2 To iRow
			If LCase(Ws.Cells(i, 2)) Like "*" & LCase(Search) & "*" Then
				With ListBoxBelajar
					.AddItem
					.List(.ListCount - 1, 0) = Ws.Cells(i, 1
					.List(.ListCount - 1, 1) = Ws.Cells(i, 2)
					.List(.ListCount - 1, 2) = Ws.Cells(i, 3)
					.List(.ListCount - 1, 3) = Ws.Cells(i, 4)
					.List(.ListCount - 1, 4) = Ws.Cells(i, 5)
					.List(.ListCount - 1, 5) = Ws.Cells(i, 6)
					.List(.ListCount - 1, 6) = Ws.Cells(i, 7)
					.List(.ListCount - 1, 7) = Ws.Cells(i, 8)
				End With
			End If
		Next i
	End If
End Sub

Penjelasan makro diatas adalah:

• Private Sub Search_Change() 👉 End Sub. Sebuah scope prosedur dengan objek TeksBox "Search" tadi dimana perintah berikutnya akan dijalankan bila kolom pencarian tersebut di isi.
  

• If Search = "" Then 👉 Tampil_ListBoxBelajar 👉 End If. Perintah yang menyatakan bila kolom pencarian kosong maka data yang ditampilkan pada ListBox tidak mengalami perubahan.
  

• Else. Ini artinya jika kolom pencarian tidak kosong atau terisi maka...lanjut keperintah berikutnya yang dibawah ini.
  

• Set Ws = Worksheets("BelajarVBA") 👉 iRow = Ws.Cells(Rows.Count, 1).End(xlUp).Row + 1. Melanjutkan perintah diatas bila kolom pencarian terisi dengan keyword yang dicari, maka selanjutnya memerintahkan sistem untuk menenelusuri data pada database worksheet.
  

• With ListBoxBelajar 👉 .List(.ListCount - 1, 0) = "KODE ID" sampai 👉 End With. Data yang ditemukan akan ditampilkan dengan format judul (head) dari kode ID dan seterusnya pada ListBox.
  

• For i = 2 To iRow 👉 Next i. Data yang dicari dimulai dari baris kedua sampai kebaris data terakhir.
  

• If LCase(Ws.Cells(i, 2)) Like "*" & LCase(Search) & "*" Then 👉 End If. Jika data yang dicari tersebut sesuai dengan data pada kolom kedua pada ListBox (dalam hal ini, kita mencari berdasarkan kategori nama).
  

• With ListBoxBelajar 👉 .List(.ListCount - 1, 0) = Ws.Cells(i, 1) sampai 👉 End With. Jika ditemukan maka akan ditampilkan kedalam Listbox sesuai susunan yang telah kita buat.
  

4. Coba Run atau klik F5 pada keyboard lalu coba masukkan nama yang kalian cari. Jika cara Sobat SD benar dan kode yang dimasukkan sesuai yang ada diatas, maka hasilnya akan seperti video.gif diatas.

Nah Sobat SD semua, untuk tahapan "Belajar VBA Excel" kita berakhir di artikel ini. Admin telah memberikan pembahasan megenai cara membuat aplikasi sederhana berbasis VBA Excel dari awal hingga berakhir pada tutorial kali ini. Dalam Materi Tutorial "Belajar VBA Excel" tersebut yang dibagi kedalam beberapa part (bagian), telah dibahas beberapa hal dasar membuat sebuah aplikasi diantaranya:

1. Belajar VBA Excel Part1 - Membahas tahapan awal yang diperlukan untuk membuat sebuah aplikasi sederhana berbasis VBA Excel

2. Belajar VBA Excel Part2 - Membahas bagaimana cara membuat kode id yang akan tampil secara otomatis saat aplikasi dijalankan, berurutan mengikuti kode id terakhir yang ada.

3. Belajar VBA Excel Part3 - Membahas bagaimana cara membuat ComboBox bertingkat menggunakan 2 (dua) atau lebih ComboBox dimana data yang ditampilkan memiliki hubungan dan saling berkaitan.

4. Belajar VBA Excel Part4 - Membahas cara membuat form input tanggal menggunakan DTPicker, MonthView dan TeksBox.

5. Belajar VBA Excel Part5 - Membahas cara membuat form input untuk format Currency (mata uang) dengan menggunakan titik (.) sebagai pemisah ribuan.

6. Belajar VBA Excel Part6 - Membahas tentang  cara membuat tombol simpan beserta coding makro yang digunakan untuk memberi perintah simpan data inputan kedalam database worksheets, serta bagaimana membuat MsgBox sebagai pesan pemberitahuan dan peringatan.

7. Belajar VBA Excel Part7 - Membahas mengenai cara menampilkan data yang tersimpan untuk dilihat kembali kedalam ListBox.

8. Belajar VBA Excel Part8 - Membahas cara menampilkan kembali data tersimpan ataupun data pada Listbox untuk ditampilkan kedalam Form Input untuk selanjutnya di Edit (Ubah) ataupun akan di Delete (hapus).

9. Belajar VBA Excel Part9 - Membahas cara membuat tombol Edit dan Delete serta koding yang digunakan untuk memberi perintah Edit dan hapus data yang terpilih.

10. Belajar VBA Excel Part10 - Membahas cara membuat form pencarian dari TeksBox untuk digunakan dalam pencarian data yang lebih cepat.

Apakah materi mengenai cara membuat sebuah aplikasi sederhana berbasis VBA Excel berakhir disini saja?...

Admin mengatakan untuk tahapan "Belajar VBA Excel" sudah berakhir sampai disini dan selanjutnya akan diganti dengan tema "Tutorial VBA Excel". Untuk materi Tutorial VBA Excel nanti, Admin akan mencoba memberikan beberapa pembahasan tentang:

1. Cara menfilter data dengan satu kriteria dan multi kriteria.
2. Cara membuat print preview sekaligus cara memprint data.
3. Cara menyimpan data dalam format pdf.
4. Cara membuat form login biasa dan login dengan menggunakan akses terbatas.
5. Cara melakukan ekspor inport data tanpa perlu keluar dari aplikasi.
   
6. Cara membuat Userform VBA Excel tampak seperti sebuah aplikasi profesinal.
7. dan lain sebagainya.

Jadi tetap update dan rajin membuka Blog Sobat SD atau kalian bisa kunjungi halaman Facebook Sobat SD, Pinterest Sobat SD ataupun Youtube Sobat SD. Semoga membawa manfaat buat Sobat SD, Wassalam.

Location:

Share :