FORM ISIAN DATA SEDERHANA PADA MICROSOFT EXCEL

CARA MEMBUAT FORM ISIAN DATA SEDERHANA PADA MICROSOFT EXCEL

       Pada kesempatan kali ini saya akan menjelaskan cara membuat form isian data sebagai berikut:

1. Buka file Microsoft Excel
2. Double Klik di nama worksheet lalu ganti nama yang awalnya Sheet1 menjadi “PARTSDATA” (bisa diganti dengan nama lain).
3. Pada row (baris) 1 buatlah nama heading untuk tabelnya seperti tampak pada gambar dibawah ini

Gambar a

4. Kemudian simpanlah file sebagai excel makro dengan cara klik File>klik Save As>ketik nama file pada File Name>pada save as type pilih Excel Macro Enabled Workbook>klik

Gambar b

5. Pada worksheet, pilih tab View, kemudian pada group Macros klik Macros lalu pilih View Macros.

Gambar c

Sehingga akan muncul kotak dialog seperti yang tampak pada gambar di bawah ini

Gambar d

6. Isilah macro name dengan “Form”, kemudian klik Create
7. Klik kanan mouse pada VBA Project>klik Insert>Klik UserForm, atau dapat juga dilakukan dengan cara klik tab Insert>klik UserForm

Gambar e

Gambar f

8. Langkah selanjutnya adalah design form. Dalam hal ini control yang akan kita gunakan adalah Label,Textbox, dan Command Button seperti tampak pada gambar berikut :

Gambar g

Selanjutnya berilah nama dan caption untuk tiap Label :
Label1 Caption diganti dengan “Kode”
Label2 Caption diganti dengan “Nama Barang”
Label3 Caption diganti dengan “Satuan”
Label4 Caption diganti dengan “Harga”

Gambar h

Selanjutnya berilah nama dan caption untuk tiap TextBox :
TextBox1 Name diganti dengan “tkode”
TextBox2 Name diganti dengan “tnama”
TextBox3 Name diganti dengan “tsatuan”
TextBox4 Name diganti dengan “tharga

Gambar i

Selanjutnya berilah nama dan caption untuk tiap CommandButton :
CommandButton1 Caption diganti dengan “TAMBAH”
CommandButton1 Name diganti dengan “CMDTMBH”
CommandButton2 Caption diganti dengan “TUTUP”
CommandButton2 Name diganti dengan “CMDTTP”

9. Langkah selanjutnya adalah membuat kode Klik command button “Tambah” kemudian Klik menu bar > klik view code atau klik kanan mouse pada CommandButton “TAMBAH” > pilih View Code

Gambar j

Kemudian, masukanlah kode 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

Setelah itu, lanjutkan dengan pengisian code pada tombol Tutup. Masukanlah kode di bawah 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
Setelah itu, isi code pada module dengan cara klik kanan module>klik View Code dan isikan kode dibawah ini :
Sub FORM()
Show
End Sub
Nah, berikut adalah Gambar Form Code (tempat untuk mengisi/mengetikkan kode)

Gambar k

Sekarang kita kembali ke worksheet kemudian kita akan membuat tombol untuk mengaktifkan form.

1. Buat rectangle seperti digambar tersebut
2. Masukkan kode dengan cara klik kanan mouse pada rectangle tersebut>klik “Assign Macro”

Gambar l

Sehingga akan muncul kotak dialog “Assign Macro”>pilih “form data barang”>OK

 

Gambar m

Apabila teman-teman mengikuti tahapan membuat form isian data sederhana secarabenar, maka hasil akhirnya akan tampak seperti gambar di bawah ini :

 

Gambar n

Terima kasih atas perhatiannya semoga dapat berguna bagi kita semua