Pembahasan Mengenai Macro Pada Microsoft Excel
Helloo Teman teman, kembali lagi di blog ini, kali kita akan membahas tentang Macro Excel.
Sebelumnya kita harus tahu, apa itu macro pada excel.
Macro di Dalam Excel
Macro di dalam Excel adalah procedure di dalam VBA project (Microsoft Visual Basic) yang dapat dibuat oleh kita, baik dengan cara merekam dari berbagai aktifitas yang sudah kita lakukan di dalam Excel, maupun dibuat dengan cara mengetik sendiri secara langsung. Macro berguna untuk menjalankan berbagai aktifitas yang sering kita lakukan sehari-hari di dalam Excel, sehingga kita tidak perlu lagi mengulangnya secara manual.
Tempat penyimpanan macro dibagi menjadi dua, yakni di dalam workbook itu sendiri (This Workbook dan New Workbook) dan di dalam personal workbook (Personal Macro Workbook). Jika kita menyimpan macro di dalam workbook itu sendiri, maka macro dapat dijalankan hanya oleh workbook tersebut. Namun jika kita menyimpan macro di dalam personal workbook, maka macro dapat dijalankan oleh seluruh workbook yang aktif dibuka pada aplikasi Microsoft Excel.
Lalu, bagaimana sih cara membuat macro..?
Sebelumnya kita harus tahu, apa itu macro pada excel.
Macro di Dalam Excel
Macro di dalam Excel adalah procedure di dalam VBA project (Microsoft Visual Basic) yang dapat dibuat oleh kita, baik dengan cara merekam dari berbagai aktifitas yang sudah kita lakukan di dalam Excel, maupun dibuat dengan cara mengetik sendiri secara langsung. Macro berguna untuk menjalankan berbagai aktifitas yang sering kita lakukan sehari-hari di dalam Excel, sehingga kita tidak perlu lagi mengulangnya secara manual.
Tempat penyimpanan macro dibagi menjadi dua, yakni di dalam workbook itu sendiri (This Workbook dan New Workbook) dan di dalam personal workbook (Personal Macro Workbook). Jika kita menyimpan macro di dalam workbook itu sendiri, maka macro dapat dijalankan hanya oleh workbook tersebut. Namun jika kita menyimpan macro di dalam personal workbook, maka macro dapat dijalankan oleh seluruh workbook yang aktif dibuka pada aplikasi Microsoft Excel.
Lalu, bagaimana sih cara membuat macro..?
- Buka Microsoft Excel, lalu pastikan anda telah mengaktifkan menu developer
- Klik menu developer lalu klik tombol Visual basic atau dapat juga menggunakan Shortkey Alt + F11.
- Pilih menu Insert > UserForm maka akan tampil form VBA
- Langkah selanjutnya adalah design form dengan Control yang akan kita
gunakan adalah : Control Label, Textbox dan Command Button seperti
tampak pada gambar berikut :
- Langkah selanjutnya adalah member nama dan caption untuk tiap label, textbox dan command button
Label1 Caption diganti dengan “Kode”
Label2 Caption diganti dengan “Nama Barang”
Label3 Caption diganti dengan “Satuan”
Label4 Caption diganti dengan “Harga”
- TextBox1 Name diganti dengan “tkode”
TextBox2 Name diganti dengan “tnama”
TextBox3 Name diganti dengan “tsatuan”
TextBox4 Name diganti dengan “tharga”
- command button1 Caption diganti dengan “TAMBAH”
command button1 Name diganti dengan “CMDTMBH”
command button2 Caption diganti dengan “TUTUP”
command button2 Name diganti dengan “CMDTTP” - atur sedemikian rupa hingga tampak seperti gambar dibawah ini
- Langkah selanjutnya adalah membuat kode
1. Klik command button “TAMBAH “
2. Klik menu bar pilih view code
Atau klik kanan mouse pada tombol “TAMBAH” pilih view code - Masukan kode dibawah ini (biar gak cape copy paste saja code dibawah ini):
Private Sub CMDTMBH_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets(“PARTSDATA”)
‘menemukan baris kosong pada database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
‘check untuk sebuah kode
If Trim(Me.tkode.Value) = “” Then
Me.tkode.SetFocus
MsgBox “Masukan Kode Barang”
Exit Sub
End If
‘copy data ke database
ws.Cells(iRow, 1).Value = Me.tkode.Value
ws.Cells(iRow, 2).Value = Me.tnama.Value
ws.Cells(iRow, 3).Value = Me.tsatuan.Value
ws.Cells(iRow, 4).Value = Me.tharga.Value
‘clear data
Me.tkode.Value = “”
Me.tnama.Value = “”
Me.tsatuan.Value = “”
Me.tharga.Value = “”
Me.tkode.SetFocus
End Sub - Dilanjutkan dengan pengisian code pada tombol tutup langkah seperti nomor 2 diatas dengan kode dibawah ini :
Private Sub CMDTTP_Click()
Unload Me
End Sub - Untuk menghindari menutup melalui tanda X pada form masukan kode
dibawah ini dengan klik kanan mouse pada form dan pilih view code dan
ketikan kode dibawah ini :
Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox “MAKE TOMBOL ATUH KANG!”
End If
End Sub - Mengisi code pada module klik kanan module pilih view code dan isikan kode dibawah ini :
Sub FORM()
UserForm1.Show
End Sub - Sekarang kita kembali ke worksheet kmudian kita akan membuat tombol untuk mengaktifkan form…terserah dmana saja menyimpannya…
- Buat rectangle seperti digambar tersebut untuk memasukkan kode klik
kanan mouse pada rectangle tersebut lalu pilih “Assign Macro” lalu pilih
form…..selesai sudah…jika benar sesuai urutan maka akan tampak seperti
ini…..jangan lupa simpen ya….selamat mencoba….
Komentar
Posting Komentar