Cara Membuat Form Isian Data Sederhana dengan Macro Excel

Macro adalah sebuah sistem input otomatis yang merekam jejak Keyboard dan mouse. Macro biasanya digunakan untuk menggantikan rangkaian berulang tindakan mouse dan keyboard yang umum digunakan pada aplikasi-aplikasi yang saya sebutkan di atas. Ekstensi file dari Macro umumnya .mac. Dengan menggunakan Macro, pengguna dapat meringkas waktu pekerjaan yang biasa dikonsumsi untuk pekerjaan yang sama.

Dalam postingan kali ini saya akan menjelaskan tentang Cara Membuat Form Isian Data Sederhana dengan Macro Excel.

Langsung saja disimak penjelasannya, guys.

Pertama, buka Ms. Excel, lalu pada Sheet1, kita rename. Untuk contoh kali ini saya menggantinya menjadi PARTSDATA.
Kemudian, pada row atas kita buat nama heading untuk tabelnya nanti.

 
Selanjutnya, kita simpan dokumen tersebut dengan format Excel Macro Enable Workbook, lalu ganti nama file. Di sini saya menyimpannya dengan nama Data Barang.

Kemuidan, jika sudah di simpan, kembali lagi ke dokumen tersebut dan kita akan mulai mambuat Macro.
Pertama, klik menu View lalu pilih Macro > View Macro. Lalu akan muncul kotak dialog. Isikan macro name "FORM" lalu klik Create.

Kemudian, untuk memunculkan User Form, kita bisa menggunakan menu Insert > Userform ataupun klik kanan pada VBA Project > Insert > Userform

Tampilan setelah itu akan seperti pada gambar di bawah.

Selanjutnya kita akan membuat design form dengan menggunakan Tool yang ada pada Toolbox.
Pertama, untuk membuat bagian nama heading tabel yang tadi kita ketik di worksheet, kita menggunakan tool Label.

Hal yang sama kita lakukan untuk membuat Nama Barang, Satuan dan Harga, namun pad bagian caption di Properties harus di ganti sesuai nama heading.

Label1 Caption diganti dengan “Kode”
Label2 Caption diganti dengan “Nama Barang”
Label3 Caption diganti dengan “Satuan”
Label4 Caption diganti dengan “Harga”

Baiklah, kemudian kita kan membuat kolom isian data dengan menggunakan tool Toolbox.

Untuk Toolbox, bagian pada Properties yang harus diganti adalan (Name). Ganti seperti di contoh.

TextBox1 Name diganti dengan “tkode”
TextBox2 Name diganti dengan “tnama”
TextBox3 Name diganti dengan “tsatuan”
TextBox4 Name diganti dengan “tharga”

Lalu, untuk menu Tambah dan Tutup di bagian bawah, kita akan menggunakan Command Button. Untuk Command Button, kita harus mengganti baik (Name) maupun Caption.


command button1 Caption diganti dengan “TAMBAH”
command button1 Name diganti dengan “CMDTMBH”
command button2 Caption diganti dengan “TUTUP”
command button2 Name diganti dengan “CMDTTP”

Setelah semua dibuat dan design form sudah pas, maka selanjutnya kita masukkan kode-kode nya.
Caranya, klik kanan pada UserForm > View Code.
Untuk lebih jelasnya, simak gambar di bawah.

- Setelah muncul tampilan seperti itu, kita hanya tinggal memasukkan kode-kode yang ada. Anda bisa meng-copy kode tersebut di bawah 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 kode pada tombol Tutup dengan kode dibawah ini :

Private Sub CMDTTP_Click()
Unload Me
End Sub

- Untuk menghindari menutup melalui tanda X pada form masukan 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

- Lalu yang terakhir :

Sub FORM()
UserForm1.Show
End Sub 

*Semua kode harus di masukkan secara berurutan ya.

Tampilannya akan seperti ini,

Setelah memasukkan kode-kode tersebut, kita akan membuka kembali worksheet dan membuat tombol untuk mengaktifkan form tadi.

Dengan cara klik Insert > Shape lalu pilih bentuk apapun yang and asuka. Anda juga bisa menambah kata-kata atau mendesain tombol tersebut sesuka anda.

Lalu klik kanan pada tombol tersebut dan pilih Assign Macro.

Kemudian akan muncul kotak dialog. Pada kotak dialog tersebut kita pilih FORM, lalu klik Ok.

Kemudian akan muncul UserForm dengan design seperti yang tadi anda buat.

 Lihat apa yang terjadi jika seseorang mencoba menutup UserForm tersebut dengan menggunakan tanda silang. Kalimat pada kode yang tadi dimasukkan akan muncul.

Baiklah, itu tadi penjelasan saya mengenai cara membuat macro sederhana. Semoga bermanfaat.