Tutorial Excel Macro
Jumpa
lagi sama gue, Si mahasiswa sejati,..(kayaknya nih blog masih sepi aja, gak ada
yang coment… huft..:( apa karna postingan gue yang gak menarik yah)..
Maaf yah berapa hari ini gue tiba-tiba menghilang habisnya gue baru selesai UTS
nih. Ngomong-ngomong mengenai UTS, gue mau curhat nih (Please dengerin gue!!!).
Salah satu mata kuliah yang gue ambil di semester 4 adalah mata kuliah APLIKOM
alias APLIkasi
KOMputer.
Dimana dalam mata kuliah ini gue and Friends from MN 1 dan MN3 akan mempelajari
tata cara membuat excel Macro. Dan kalau agan-agan dan nyonya-nyonya sudah ada yang
pernah membaca postingan pertama gue pasti udah tau masalah yang bakal
menghadang gue…(Jadi malu :D)
Yaps,
Tingkat kegaptekan gue yang jadi masalahnya,.. Megang mouse aja belum becus
apalagi lagi kalau disuruh membuat aplikasi excel Macro :D (Perlu di ingat saat ngetik gue juga masih
pakai 11 jari!!!, Tragis kan?) Tapi untung nih para pendengar setia
(emang ada?), gue mendapat bimbingan dari teman dan postingan para blogger-blogger
hebat lainnya dalam menyelesaikan tugas tersebut. Dan hasilnya Alhamdullilah,
pas test gue sukses dengan nilai yang lumayan bukan lumanyun wkwkwkwk,… :D
Karena
merasa berhutang budi itulah akhirnya gue merasa terpanggil untuk memposting
cara membuat excel macro tsb sebagai rasa balas budi gue atas pertolongan dari
pihak-pihak tersebut. Oke, Langsung aja kita menuju TKP.,,,
TUTORIAL
EXCEL MACRO
Pada dasarnya Excel
macro adalah suatu aplikasi yang digunakan untuk membuat program sederhana yang
dapat kita gunakan untuk mempermudah tugas kita dalam menjalankan Excel.
Tahap 1
Buat Tabel seperti
gambar dibawah ini. (harus di cell yang sama) Tabel ini terdiri dari Nomor,
Nama Barang, Stok Awal, Stok Akhir, dan Total Pendapatan
Tahap 2
Setelah tabel selesai
tekan tombol ALT + F11 secara bersamaan. Akan terbuka jendela visual basic
seperti gambar di bawah ini.
Tahap 3
Klik menu insert di
jendela visual basic lalu pilih useform.
Tahap 4
Klik Useform 1 untuk
merubah propertinya. Properti yang di rubah yaitu Name : formisidata, Caption :
Isi Data. Lihat perubahan yang terjadi pada nama Form.
Pada form isi data kita
tempatkan Label (Logo huruf A), Text Box (Logo huruf ab), dan CommandButton (logo
Kotak diujung kiri) dari Tool Box
Letakkan 5 Label pada form, kemudian ubah
captionnya pada jendela properties, Label 1 : Nomor, Label
2 : Nama Barang, Label 3 : Stok Awal, Label 4 : Stok Akhir dan label 5 : Total
Pendapatan .
Kemudian letakkan 4 Textbox sejajar dengan 4 label
tersebut. Rubah name 4 Textbox tersebut menjadi Textbox 1 : txtnomor, Textbox 2 :
txtnamabarang, textbox 3 : textstokawal, textbox 4 : txtstokakhir dan textbox 5
: txttotal.
Lalu tambahkan 2 CommandButton lalu ubah name menjadi Cmdtambah dan
Cmdkeluar.
Tahap 5
Kita memasuki bahasa
pemprograman, dengan memasukan Module melalui menu insert klik Module. Pada
jendela module1 ketik Program dibawah ini :
Sub isi_databarang()
Range("B4").Select
Do
If ActiveCell.Value =
"" Then
formisidata.Show
Exit Sub
Else
Exit Sub
End If
Loop
End Sub
Klik pada jendela Project-VBAProject, lalu klik kanan pada formisidata pilih view code agar jendela kode formisidata terbuka.
Lalu ketik bahasa
program ini pada masing-masing objek .
1. Pilih cmdkeluar dengan mengklik
kotak Objeck di kanan atas lalu ketik
bahasa program berikut :
Private Sub
cmdkeluar_Click()
Unload Me
End Sub
2. Lalu pilih cmdtambah dengan
mengklik kotak Objek di pojok kanan atas lalu ketik bahasa program berikut :
Private Sub
cmdtambah_Click()
ActiveCell.Value =
txtnomor.Text
ActiveCell.Offset(0, 1).Value
= txtnamabarang.Text
ActiveCell.Offset(0,
2).Value = txtstokawal.Text
ActiveCell.Offset(0,
3).Value = txtstokakhir.Text
ActiveCell.Offset(0,
4).Value = txttotal.Text
ActiveCell.Offset(1,
0).Select
'clear data
Me.txtnomor.Value =
""
Me.txtnamabarang.Value
= ""
Me.txtstokawal.Value =
""
Me.txtstokakhir.Value =
""
Me.txttotal.Value =
""
Me.txtnomor.SetFocus
End Sub
3. Selanjutnya Pilih Userform dengan
mengklik kotak objek di pojok kanan atas lalu ketik bahasa program ini :
Private Sub
UserForm_active()
txt.nomor.Text =
""
txtnamabarang.Text =
""
txtstokawal.Text =
""
txtstokakhir.Text =
""
txttotal.Text =
""
formisidata.Show
End Sub
Tahap 6
Klik play untuk
menjalankannya (tanda ujung panah berwarna hijau )
Tahap 7
Membuat tombol
pemanggil dengan cara klik insert
pilih shape(sesuai keinginan) lalu klik kanan pilih assign macro lalu pilih macro yang di buat dan klik OK
nice post mas
ReplyDelete