Tutorial Membuat Form Isian Data Sederhana pada Microsoft Excel

Untuk mengisi Isian Data pada Ms. Excel terkadang membutuhkan waktu yang lama, nah untuk itu saya akan menjelaskan kalian bagaimana menggunakan Form Isian Data pada Ms. Excel untuk mempermudah kita mengerjakan tugas pada Ms. Excel. Berikut langkah-langkahnya:

• Pertama, buka dokumen ms. excel yang kalian ingin buat form datanya.

• Double klik sheet1 dan ganti menjadi PARTSDATA. Save dokumen ms. excel tersebut sebagai file Macro. Jangan klik close dokumen excel kalian.

• Klik tab view, klik Macros. isikan Macros name dan pilih Macros in. klik create.

• Akan muncul VBA Project. Klik tab insert dan pilih UserForm.

• Langkah selanjutnya adalah design form dengan Control Label
  Label1 Caption diganti dengan “Kode”
  Label2 Caption diganti dengan “Nama Barang”
  Label3 Caption diganti dengan “Satuan”
  Label4 Caption diganti dengan “Harga”

• Langkah selanjutnya adalah design form dengan Control Textbox.
  TextBox1 Name diganti dengan “tkode”
  TextBox2 Name diganti dengan “tnama”
  TextBox3 Name diganti dengan “tsatuan”
  TextBox4 Name diganti dengan “tharga”

• Langkah selanjutnya adalah design form dengan Command 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

• klik kanan mouse pada tombol “TAMBAH” pilih view code kemudian masukan 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

• Dilanjutkan dengan pengisian code pada tombol tutup.
  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
• Mengisi code pada module klik kanan module pilih view code dan isikan kode dibawah ini:
  Sub FORM()
  UserForm1.Show
  End Sub
• Beginilah kira-kira seluruh kodenya.

• Kembali ke worksheet, insert shapes terserah sesuai keinginan anda. kemudian klik kanan pilih assign macro.

• Klik shapes tersebut dan voila! Form isian data sederhana pun telah selesai dibuat.

Selesai!
Demikian cara menggunakan form isian data pada Ms. Excel. Selamat mencoba!