MEMBUAT FORM ISIAN DATA SEDERHANA DI EXCEL
April 11, 2017- Buka file Microsoft Excel 2007;
2. Double klik di nama worksheet lalu ganti nama yang sebelumnya Sheet1 menjadi “PARTSDATA” (bisa diganti dengan nama lain).
3. Kemudian kita simpan file sebagai Excel Macro [Save As] > [Excel Macro Enabled Workbook] ketik nama file
disini saya beri nama file “data barang”.
4. Langkah berikutnya membuat Macro untuk file tersebut, adapun langkah-langkah pembuatan Macro sebagai berikut :
-Pada worksheet pilih menu [View] > [Macros] > [View Macros].
-Isikan Macro name “FORM” klik create.
-Klik kanan mouse pada VBA Project kemudian pilih [Insert] > [User Form].
-Langkah selanjutnya adalah Design Form dengan Control yang akan kita gunakan adalah : Control Label, Textbox dan Command Button dan memberi 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”
-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
3. Masukan kode di bawah ini (copy paste saja):
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
4. Dilanjutkan dengan pengisian kode pada tombol tutup langkah seperti nomor 2 di atas dengan kode di bawah ini :
Private Sub CMDTTP_Click()
Unload Me
End Sub
5. Untuk menghindari menutup melalui tanda X pada form masukkan kode
di bawah ini dengan klik kanan mouse pada form dan pilih view code dan
ketikkan kode di bawah 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
6. Mengisi kode pada module, klik kanan module pilih view code dan isikan kode di bawah ini :
Sub FORM()
UserForm1.Show
End Sub
Sekarang kita kembali ke worksheet kemudian kita akan membuat tombol untuk mengaktifkan form (terserah teman-teman mau di mana menyimpannya). Buat rectangle untuk memasukkan kode, klik kanan mouse pada rectangle tersebut lalu pilih “Assign Macro”, pilih form dan selesai.
Sampai di sini dulu ya teman-teman. Semoga artikel ini ada manfaatnya. Apabila ada kesalahan, mohon dimaafkan ya (masih belajar juga). Terima kasih.
Kalau mau download artikel ini, silahkan klik DISINI
Kalau mau download artikel ini, silahkan klik DISINI
