KALI INI SAYA AKAN SHARING TUTORIAL MEMBUAT FORM ENTRY BARANG DI MS. EXCEL
Terkadang kita merasa jenuh mengisi table
di excel, untuk itu kita membutuhkan form sederhana untuk mengisi data
tersebut.
Adapun langkah-langkah pembuatan form sebagai berikut :
1. Buka Ms. Excel.
2. Double Klik di nama worksheet lalu ganti nama Sheet1 menjadi “PARTSDATA”
(bisa diganti dengan nama lain).
3. Pada Row 1 buat kolom dengan nama heading
untuk tabel, seperti contoh dibawah
ini:
4. Kemudian simpan terlebih dahulu file dengan cara klik file save
as dan pilih tipe Excel Macro Enabled
Workbook sebagai ekstensi
penyimpanan.
Langkah berikutnya membuat Macro untuk
file tersebut.
5. Pada
worksheet pilih menu view klik tab Macros pilih view macros :
Akan muncul tampilan
Macro, lalu tulis macro name menjadi “FORM” kemudian klik create, seperti
gambar dibawah ini:
6.
Setelah itu akan muncul tampilan MVA. Kemudian klik kanan mouse pada VBA Project , Pilih insert, kemudian pilih Userform.
7. Akan muncul tampilan UserForm
Langkah
selanjutnya adalah design userform dengan komponen yang akan kita gunakan ,
seperti : Label untuk tulisan
“kode barang, nama barang, satuan, dan harga barang”. Sedangkan Textbox untuk tempat
pengisian data kecuali data satuan menggunakan komponen Combo Box, dan Command Button digunakan
pada tulisan “tambah data” dan “selesai”. Seperti
tampak pada gambar berikut :
Langkah selanjutnya adalah memberi nama dan caption untuk tiap label, textbox, Combo box 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”
ComboBox Name diganti dengan “cbosatuan”
TextBox3 Name diganti dengan “tharga”
command button1 Caption diganti dengan “TAMBAH DATA”
command button1 Name diganti dengan “cmdtambah”
command button2 Caption diganti dengan “SELESAI”
command button2 Name diganti dengan “cmdselesai”
Langkah selanjutnya adalah membuat kode.
1. Klik command button “TAMBAH DATA“
2. Klik kanan pada tombol “TAMBAH
DATA” lalu pilih view code atau klik menu bar pilih view code.
Maka akan muncul tampilan seperti
ini
3. Masukan kode seperti 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.cbosatuan.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
4. Dilanjutkan dengan pengisian code pada
tombol selesai, sama seperti langkah nomor 2 diatas dengan kode dibawah ini :
Private Sub cmdselesai_Click()
Unload Me
End Sub
5. Untuk kolom pengisian
satuan atau pada cbosatuan, gunakan kode berikut:
6. 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 “PAKE TOMBOL SELESAI ATUH BANG!”
End If
End Sub
7. Mengisi code pada module dengan cara klik kanan
module pilih view code dan isikan kode dibawah ini :
Sub FORM()
UserForm1.Show
End Sub
7. Lalu klik run. Dan akan muncul tampilan
sepertini dibawah ini:
8. Buat tombol untuk mengaktifkan form entry data menggunakan shape.
Lalu klik kanan tombol
yang telah dibuat, pilih Assign Macro
Setelah tampilan assign
macros terbuka, pilih nama macro yang telah dibuat di awal (FORM), lalu klik oke.
9. TERAKHIR, Simpan hasil kerja pembuatan form
entry barang yang telah dibuat dalam tipe Excel Macro Enabled Workbook, dan
buat nama filenya sesuai keinginan.
>>>Untuk melihat hasil
form entry data sesuai tutorial diatas,
KLIK DISINI.
Terimakasih atas
kunjungannya, semoga bermanfaat dan sampai jumpa di tutorial selanjutnya J Assalamu’alaikum Wr.Wb.