Dalam Aplikasi pendataan biasanya kita temukan form input data personal atau anggota atau siswa, dan selain itu terkadang kita juga menemukan form login pada Aplikasi, nah untuk membuatnya bagaimana ? berikut kami jelaskan dan Cara Membuat Input Data Menggunakan Userform.
Seperti Aplikasi Sederhana kami ini juga menggunakan userform untuk input data dan userform untuk login database, data yang sudah diinputkan tersebut akan masuk ke database (kumpulan data).
Artikel Terkait : Download Aplikasi Sederhana
Link Terkait : Belajar Kode Macro Itu Sangat Mudah
Selanjutnya pada Aplikasi Sederhana kami terdapat pula menu programer yang diperuntukkan siapa yang membuat dan apabila seorang pengguna merasa kesulitan maka di form informasi terdapat kontak kami.
Baca Juga : Cara Membuat Icon Dinamis Pada Tombol Menu UserForm
Link Belajar Kode Macro dan Cara Membaca : www.mtsbmtumbrasanom.id/search/label/vba
Berexperiment yuukk..
1. Buka Microsoft Excel Anda
2. Buatlah 1 tombol CommandButton (lewat menu ribbon DEVELOPER) jika belum mengerti caranya silahkan kunjungi artikel kami sebelumnya dibawah ini
Artikel Terkait : Cara Membuat Tombol CommandButton ActiveX Control Di Excel
3. Ubah nama menjadi INPUT DATA
4. Klik 2 kali (masuk ke jendela Visual Basic For Application (VBA))
5. Ketik kode macro ini UserForm1.Show
6. Buatlah 1 buah Userform
7. Buatlah 5 buah label yang masih-masih diberi nama : Nama, Tempat Lahir, Tanggal Lahir, Alamat, Pekerjaan
8. Buatlah 5 buah textbox
9. Buatlah 2 buah tombol CommandButton (CommandButton 1 = SIMPAN dan CommandButton2 = KEMBALI)
10. Sehingga akhirnya menjadi seperti gambar dibawah ini
11. Klik 2 kali tombol simpan
12. Salin kode macro dibawah ini
'mencari tempat untuk dibuat database (kumpulan data)
Set wsdatabase = Sheets("sheet2")
Dim Barisdatabase As Long
With wsdatabase
'memilih baris nomor 2 dari atas dan nomor 2 dari samping
Barisdatabase = .Cells(.Rows.Count, "A"). _
End(xlUp).Offset(0, 2).Row
'Input Data
.Cells(Barisdatabase + 1, 2).Value = TextBox1.Text
.Cells(Barisdatabase + 1, 3).Value = TextBox2.Text
.Cells(Barisdatabase + 1, 4).Value = TextBox3.Text
.Cells(Barisdatabase + 1, 5).Value = TextBox4.Text
.Cells(Barisdatabase + 1, 6).Value = TextBox5.Text
'setelah terinput maka textbox kembali kosong
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
'pesan setelah data diinput/disimpan
MsgBox "data tersimpan di sheet 2", vbOKOnly
TextBox1.Text = ""
End With
13. Dan pada tombol KEMBALI berikan kode macro END atau Unload Me
14. Sekarang waktunya mencoba (tekan F5)
15. Simpan dengan type Excel Macro
Apabila Anda melakukan langkah-langkah dengan benar dan penempatan kode macro sudah betul maka kode macro pasti akan berjalan dengan baik, dan apabila masih terjadi error/Debug maka kode macro masih ada yang salah/pembuatan userform yang kurang benar, untuk itu silahkan komentar untuk mendapatkan jawabanya.
1. Buka Microsoft Excel Anda
2. Buatlah 1 tombol CommandButton (lewat menu ribbon DEVELOPER) jika belum mengerti caranya silahkan kunjungi artikel kami sebelumnya dibawah ini
Artikel Terkait : Cara Membuat Tombol CommandButton ActiveX Control Di Excel
3. Ubah nama menjadi INPUT DATA
4. Klik 2 kali (masuk ke jendela Visual Basic For Application (VBA))
5. Ketik kode macro ini UserForm1.Show
6. Buatlah 1 buah Userform
7. Buatlah 5 buah label yang masih-masih diberi nama : Nama, Tempat Lahir, Tanggal Lahir, Alamat, Pekerjaan
8. Buatlah 5 buah textbox
9. Buatlah 2 buah tombol CommandButton (CommandButton 1 = SIMPAN dan CommandButton2 = KEMBALI)
10. Sehingga akhirnya menjadi seperti gambar dibawah ini
12. Salin kode macro dibawah ini
'mencari tempat untuk dibuat database (kumpulan data)
Set wsdatabase = Sheets("sheet2")
Dim Barisdatabase As Long
With wsdatabase
'memilih baris nomor 2 dari atas dan nomor 2 dari samping
Barisdatabase = .Cells(.Rows.Count, "A"). _
End(xlUp).Offset(0, 2).Row
'Input Data
.Cells(Barisdatabase + 1, 2).Value = TextBox1.Text
.Cells(Barisdatabase + 1, 3).Value = TextBox2.Text
.Cells(Barisdatabase + 1, 4).Value = TextBox3.Text
.Cells(Barisdatabase + 1, 5).Value = TextBox4.Text
.Cells(Barisdatabase + 1, 6).Value = TextBox5.Text
'setelah terinput maka textbox kembali kosong
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
'pesan setelah data diinput/disimpan
MsgBox "data tersimpan di sheet 2", vbOKOnly
TextBox1.Text = ""
End With
13. Dan pada tombol KEMBALI berikan kode macro END atau Unload Me
14. Sekarang waktunya mencoba (tekan F5)
15. Simpan dengan type Excel Macro
Apabila Anda melakukan langkah-langkah dengan benar dan penempatan kode macro sudah betul maka kode macro pasti akan berjalan dengan baik, dan apabila masih terjadi error/Debug maka kode macro masih ada yang salah/pembuatan userform yang kurang benar, untuk itu silahkan komentar untuk mendapatkan jawabanya.
Demikian dari kami semoga apa yang kami tulis di blog www.mtsbmtumbrasanom.id dapat bermanfaat bagi Anda dan terimakaasih atas kunjungannya dan akhirnya jabat erat.
Post a Comment for "CARA INPUT DATA MENGGUNAKAN USERFORM"