Bagaimana cara membuat pencarian data menggunakan textbox yang ada pada userform? Untuk bisa membuat prosedur pencarian data menggunakan userform memang sedikit lebih menentukan sendiri logika algoritmanya dibandingkan dengan menggunakan pencarian pada fasilitas excel secara standar.
Lalu Bagaimana caranya?
Saya menggunakan userform dengan menambahkan 3 buah objek diantaranya adalah label, textbox dan commandbutton.
Untuk label1 silakan ganti properties name menjadi : LabelHasilPencarian
Untuk textbox1 silakan ganti properties name menjadi : TextboxCari
Untuk CommandButton1 silakan ganti properties name menjadi : TombolCari dan Label ganti menjadi : "Cari"
Langkah berikutnya silakan ketikkan atau tulis coding berikut untuk prosedur CommandButton1
Private Sub TombolCari_Click()
'Belajar Pemrograman VBA Excel
'--------------------------------------
'Bersama Kang Yatna Supriyatna
'Blog: www.excel-id.com
'--------------------------------------
Dim Datanya As Range
Pencarian = TextboxCari.Value
Set Datanya = Range("Database").Cells.Find(what:=Pencarian, LookIn:=xlValues, lookat:=xlPart)
If Datanya Is Nothing Then
LabelHasilPencarian.Caption = "Data Tidak Ditemukan"
Else
LabelHasilPencarian.Caption = Datanya.Value
End If
End Sub
Jika program ini dijalankan maka ketika Anda mengetikkan tulisan pada textbox pencarian nama tersebut maka pada label diatas akan muncul atau menampilkan data yang ditemukan pada database worksheet database.
Tetpai jika tidak ditemukan kata yang mirip dari pencarian dengan data yang ada di database maka label informasi akan menampilkan tulisan "Data Tidak Ditemukan" hal ini karena pengaruh coding LabelHasilPencarian.Caption = "Data Tidak Ditemukan".
Perhatikan form diatas nama beben yang dicari tidak ditemukan pada database yang ada. Oke, kira-kira begitu Anda bisa mengembangkannya untuk kebutuhan pembuatan aplikasi berbasis VBA excel yang lainnya.
Pelajari:
Cara Menampilkan Baris Terakhir pada Database
makasih gan infonya
BalasHapus