MEMBUAT FORM ISIAN DATA SEDERHANA DI EXCEL

Adapun langkah-langkah pembuatan form sebagai berikut :

1.      Buka Ms. Excel

2.      Double Klik pada nama worksheet lalu ganti nama Sheet1 menjadi “PARTSDATA” (bisa diganti dengan nama lain).

3.       Pada Row 1 kolom kita buat nama heading untuk tabelnya seperti tampak pada gambar dibawah ini :

4.      Kemudian kita simpan file sebagai excel makro dengan nama Data Barang. File > Save As > Excel Macro Enabled Workbook > Data Barang.

Langkah berikutnya membuat Macro untuk file tersebut, adapun langkah-langkah pembuatan macro sebagai berikut :

1.      Pada worksheet pilih menu view klik tab Macros pilih view macros :

Hingga muncul text dialog seperti di bawah ini :

 2.       Isikan macro name : “FORM” klik create

 3.      . Klik kanan mouse pada VBA Project > Insert > Use Form

4.      Buatlah Label dengan menggunakan toolbox dan letakkan pada Form kemudian ganti Caption tiap label :

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

5.      Kemudian buatlah textbox. Cara membuatnya hampir sama dengan membuat label yaitu dengan menggunakan toolbox dan pilih textbox. Dan jangan lupa ganti nama pada tiap textbox.

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

6.      Buatlah Commond Button “TAMBAH” dan “TUTUP”. Jangan lupa ganti name dan caption tiap commond button.

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

7.      Membuat kode pada Commond Button “TAMBAH”. Klik command button “TAMBAH“ > 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

 

8.      Membuat kode pada Commond Button “TUTUP”. Caranya sama dengan membuat kode pada Commond Button “TAMBAH”, hanya saja kodenya yang berbeda. Kode pada Commond Button yaitu :

Private Sub CMDTTP_Click()
Unload Me
End Sub

9.      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

10.  Mengisi kode pada module klik kanan module pilih view code dan isikan kode dibawah ini :

Sub FORM()
UserForm1.Show
End Sub

11.  Klik Run > Run Sub/Use Form atau bisa dengan menekan tombol F5

12.  Hasilnya akan menjadi seperti ini

Selesai.

Selamat mencoba dan semoga berhasil!