Bagaimana cara menciptakan pencarian data memakai textbox yang ada pada userform? Untuk dapat menciptakan mekanisme pencarian data memakai userform memang sedikit lebih memilih sendiri logika algoritmanya dibandingkan dengan memakai pencarian pada akomodasi excel secara standar.
Lalu Bagaimana caranya?
Saya memakai userform dengan menambahkan 3 buah objek diantaranya yakni 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 mekanisme 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 aktivitas ini dijalankan maka saat Anda mengetikkan goresan pena pada textbox pencarian nama tersebut maka pada label diatas akan muncul atau menampilkan data yang ditemukan pada database worksheet database.
Tetpai kalau tidak ditemukan kata yang seolah-olah dari pencarian dengan data yang ada di database maka label gosip akan menampilkan goresan pena "Data Tidak Ditemukan" hal ini alasannya yakni imbas coding LabelHasilPencarian.Caption = "Data Tidak Ditemukan".
Perhatikan form diatas nama beben yang dicari tidak ditemukan pada database yang ada. Oke, kira-kira begitu Anda dapat mengembangkannya untuk kebutuhan pembuatan aplikasi berbasis VBA excel yang lainnya.
Pelajari:Sumber http://www.excel-id.com/
Cara Menampilkan Baris Terakhir pada Database