Diskusi tentang Excel

Membuat Pencarian Data Paling Sederhana Melalui UserForm



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

Related

UserForm 8772880791374343317

Post a Comment

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item