Visual Basic Excel
Belajar membuat program dengan Microsoft excel visual basic
Setelah kita mempelajari tentang Login dan juga Input Data pada Userform ke database excel, kini sudah saatnya data yang kita input seperti pembelajaran ke-2 sebelumnya harus dicari agar data itu bias kapan saja kita akan merubah data validasinya misalnya....data yang kalian input itu terlalu banyak dan ada beberapa data yang memang mengalami kesalahan dan atau memang harus mengalami perubahan, maka dari itu kita harus membuat form pencarian data dengan itu akan mempermudah data yang akan kita rubah dapat muncul kembali di setiap kolom-kolom yang sudah tersedia sesuai dengan kategori masing-masing.
Ok!.....daripada kita panjang lebar membahas tentang bagaimana cara mencari data alangkah baiknya kit alangsung menuju ke langkah-langkah seperti berikut ini.
​
1. jika data sebelumnya kita sudah pernah input di database yang sudah kita buat sekarang kita tinggal hanya melanjutkan dengan cara menambah UserForm khusus untuk Form Pencarian saja. yaitu dengan cara klik Insert lalu pilih UserForm maka akan seperti tampilan berikut dibawah ini.
​
ok setelah kita sudah ditunjukan tampilan UserForm seperti gambar diatas sekarang kita hanya tinggal melakukan desain dengan menggunakan alat bantu desain form (Toolbox) dengan beberapa label dan juga beberapa textbox serta commandbutton sebagai tombol pencariannya. Perhatikan gambar dibawah ini.
Perhatikan gambar di atas gambar diatas menunjukan adanya tombol cari, jika kalian punya desain sendiri atau warna form sendiri atau punya hobi desain form sendiri juga lebih bagus, gambar diatas hanya sebagai contoh pembelajaran saja, bagi para pemula disarankan agar mengikuti desain seperti gambar diatas saja agar script kode vba nya tidak kemana-mana hehehehehehe.......bagi yang sudah senior silahkan di modifikasi sendiri yah..
Baik.....Next !!!!!
2. Pada UserForm diatas silahkan double klik tombol cari yang sudah kita buat agar masuk ke lembar pengkodean seperti tampak pada gamabar dibawah ini.
3. Kita lanjutkan dengan memasukan kode dibawah ini :
Data = TexyBox1.Value
With Worksheets("Sheet1").Range("A2:A100")
Set c = .find(TextBox1, LookIn:=xlValues)
If Not c Is Nothing Then
baris = c.Row
TextBox1.Value = Worksheets("Sheet1").Cells(baris, 1).Value
TextBox2.Value = Worksheets("Sheet1").Cells(baris, 2).Value
TextBox3.Value = Worksheets("Sheet1").Cells(baris, 3).Value
End If
End With
​