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_C
()
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.FormulaR
= “=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_C
()
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.For
= “=R[-1]C+1″ ’
>>>>> mengisi cell
dengan nomor
urutActiveCell.Offse
(0, 1).Select ’
>>>>> bergeser satu
cell ke
kananActiveCell.Val
= TextBox1.Text ’
>>Mengisi cell yang
aktif sesuai dengan
kata yang di ketik
di
textbox1ActiveCell.
(0, 1).Select ‘
>>>>> bergeser satu
cell ke
kananctiveCell.Valu
= TextBox2.Text ‘
>>Mengisi cell yang
aktif sesuai dengan
kata yang di ketik
di
textbox1ActiveCell.
(0, 1).Select ‘
>>>>> bergeser satu
cell ke
kananActiveCell.Val
= 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…….
juga masih belajar…
selamat
mencoba!!!!!!!
Mufhimin Al Mustaqim
