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

            Nah itu deh cara-cara membuat program Excel Macro yang telah gue jelasin step by step,… Semoga bermanfaat yah untuk agan-agan dan nyonya-nyonya sekalian,.. Tetap semangat dan jadilah mahasiswa sukses!

Comments

Post a Comment

Popular posts from this blog

Perlengkapan Kuliah Yang Wajib diBawa

6 Tips Menghemat Pengeluaran (Uang) Mahasiswa

Permasalahan Mahasiswa dan Solusinya