Membuat Form Sederhana

Seringkali kita duduk berjam-jam di depan komputer hanya untuk mengerjakan tugas di Ms Excel.  Dengan sedikit bantuan visual basic Editor atau yang biasa kita kenal degan makro pekerjaan yang bisanya lama bisa kita percepat, dengan merekam pekerjaan2 tersebut dan memanggilnya saat kita butuhkan…
Dalam kesempatan ini saya akan membahas bagaimana membuat userform yang tentu dalam sebuah pekerjaan Excel sangat membantu, khususnya dalam penginputan data.
Dalam percobaan ini saya menggunakan data yang berisi Nomor Urut, Nama,  Alamat, Serta no telepon.

Setelah data di buat seperti di atas kita buka jendela visual basic editor dengan menekan tombol Alt + F11 atau pada jendela ms Excel….
Pilih Insert kemudian pilih Userform!

Buat tiga buah textbox, yang nantinya akan berfungsi untuk Nama, Alamat, Serta no telepon..Kemudian buat sebuah CommandButton yang nantinya berfungsi sebagi perintah pengisian database, rename menjadi Ok atau Proses atau apapun sekehendak anda…
Beri label di samping masing – masing textbox….
Nama untuk textbox1, Alamat Untuk Textbox 2 , No Telepon Untuk textbox3….

Nah!!!! Sekarang tinggal mengisi perintah…dounble klik Command button 1 atau tombol OK….
akan muncul jendela untuk mengetikan script…
dan ketikan script berikut :

Private Sub CommandButton1_Click()

Range(“a2″).Select    ’>>>> Memilih cell a2

ActiveCell.End(xlDown).Select   ‘ >>>>>>>> Menuju ke cell paling bawah yang terahir di isi

ActiveCell.Offset(1, 0).Select  ’ >>>>> pindah ke cell yang di bawahnya satu baris

ActiveCell.FormulaR1C1 = “=R[-1]C+1″  ’ >>>>> mengisi cell dengan nomor urut

ActiveCell.Offset(0, 1).Select    ’ >>>>> bergeser satu cell ke kanan

ActiveCell.Value = TextBox1.Text  ’ >>Mengisi cell yang aktif sesuai dengan kata yang di ketik di textbox1

ActiveCell.Offset(0, 1).Select   ‘ >>>>> bergeser satu cell ke kanan

ctiveCell.Value = TextBox2.Text ‘ >>Mengisi cell yang aktif sesuai dengan kata yang di ketik di textbox1

ActiveCell.Offset(0, 1).Select   ‘ >>>>> bergeser satu cell ke kanan

ActiveCell.Value = TextBox3.Text  ’ >>Mengisi cell yang aktif sesuai dengan kata yang di ketik di textbox1

End Sub

Private Sub CommandButton1_Click()
Range(“a2″).Select    ’>>>> Memilih cell a2ActiveCell.End(xlDown).Select   ‘ >>>>>>>> Menuju ke cell paling bawah yang terahir di isiActiveCell.Offset(1, 0).Select  ’ >>>>> pindah ke cell yang di bawahnya satu barisActiveCell.FormulaR1C1 = “=R[-1]C+1″  ’ >>>>> mengisi cell dengan nomor urutActiveCell.Offset(0, 1).Select    ’ >>>>> bergeser satu cell ke kananActiveCell.Value = TextBox1.Text  ’ >>Mengisi cell yang aktif sesuai dengan kata yang di ketik di textbox1ActiveCell.Offset(0, 1).Select   ‘ >>>>> bergeser satu cell ke kananctiveCell.Value = TextBox2.Text ‘ >>Mengisi cell yang aktif sesuai dengan kata yang di ketik di textbox1ActiveCell.Offset(0, 1).Select   ‘ >>>>> bergeser satu cell ke kananActiveCell.Value = TextBox3.Text  ’ >>Mengisi cell yang aktif sesuai dengan kata yang di ketik di textbox1
End Sub
Jika script sudah di ketikan semua, kita tinggal mencobanya…
Pilih menu run, lalu menu Run sub/Userform atau dengan menekan tombol f5!!
Silahkan isi nama, alamat serta no telepon kemudian lihat hasilnya!!!!
Untuk memudahkan pemanggilan userform nantinya, kita harus membuat tombol yang berfungsi untuk memanggil userform yang akan kit pakai..
Buka jendela Ms. Excel, buat sebuah tombol dengan textbox yang tersedia, dengan cara pilih menu develover kemudian pilih insert, seelanjutnya cari button…dan sisipkan pada sheet yang akan di pake..

Selanjutnya kembali ke jendela visual basic, buat sebuah modul..Insert >> mOdule, kemudian buat sebuah prosedur..Insert>> PRosedur, beri nama “Tampil”
ketikan scrypt pada prosedur tersebut :
Sub Tampil()
UserForm1.Show
End Sub

Buka kembali jendela Ms Excel, klik kanan tombol yang tadi di buat pilih assign macro, pilih macro “Tampil”….

dan..tombol yang anda buat pun sudah dapat berfungsi…

Hufff…….

Cukup ribet ya???

Memang untuk belajar visual basic for application atau macro butuh kesabaran….ya…….saya juga masih belajar…

selamat mencoba!!!!!!!