Cara Membuat Form Menggunakan Ms.Excel

Assalamualaikum wr.wb
Bagi temen-temen yang sering menggunakan program pengolahan data dari MS.WINDOWS yaitu MS.Excel tentu tidak jauh dari mengisi data-data ke dalam work sheet (lembar kerja) pada kolom dan baris. Untuk mempermudah dalam pengisian apalagi jika datanya banyak alangkah lebih baik kita menggunakan form. Menggunakan form akan lebih simple karena ente tidak harus selalu kembali ke kolom awal jika baris pada kolom terakhir sudah selesai di input. Keuntungan lain adalah adanya peringatan atau validasi tertentu yang akan sangat membantu bagi user.
Pada contoh kali ini ane akan share cara membuat form menggunakan ms.excel dengan kasus transaksi penjualan barang untuk lebih jelasnya silahkan lihat gambar di bawah ini masbro.



Source Code:

Private Sub ComboBox1_Click()
If ComboBox1.ListIndex = 0 Then
TextBox5.Text = 3000000
ElseIf ComboBox1.ListIndex = 1 Then
TextBox5.Text = 5000000
ElseIf ComboBox1.ListIndex = 2 Then
TextBox5.Text = 2500000
ElseIf ComboBox1.ListIndex = 3 Then
TextBox5.Text = 1000000
ElseIf ComboBox1.ListIndex = 4 Thenv TextBox5.Text = 1500000
ElseIf ComboBox1.ListIndex = 5 Then
TextBox5.Text = 1300000
ElseIf ComboBox1.ListIndex = 6 Then
TextBox5.Text = 500000
End If
End Sub

Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("data")

'menemukan baris kosong pada database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

'cek untuk sebuah kode If Trim(Me.TextBox1.Value) = "" Then
Me.TextBox1.SetFocus
MsgBox "Masukan Tanggal Transaksi"
Exit Sub
End If

'copy ke database
ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ws.Cells(iRow, 2).Value = Me.TextBox2.Value
ws.Cells(iRow, 3).Value = Me.ComboBox1.Value
ws.Cells(iRow, 4).Value = Me.TextBox5.Value
ws.Cells(iRow, 5).Value = Me.TextBox6.Value
ws.Cells(iRow, 6).Value = Me.TextBox7.Value

'Clear Data
Me.TextBox2.Value = ""
Me.ComboBox1.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""
Me.TextBox2.SetFocus
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub CommandButton3_Click()
TextBox7.Text = TextBox5.Text * TextBox6.Text
End Sub

Private Sub TextBox5_Change()
TextBox5.Value = Format(TextBox5, "###,##0.00")
End Sub

Private Sub TextBox7_Change()
TextBox7.Value = Format(TextBox7, "###,##0.00")
End Sub

Private Sub UserForm_Activate()
Me.TextBox1.Value = Date
Me.ComboBox1.AddItem "LCD TV 32 INCH"
Me.ComboBox1.AddItem "LCD TV 49 INCH"
Me.ComboBox1.AddItem "LEMARI ES 2 PINTU"
Me.ComboBox1.AddItem "RAK PIRING"
Me.ComboBox1.AddItem "MESIN CUCI"
Me.ComboBox1.AddItem "VACUM CLEANER"
Me.ComboBox1.AddItem "DVD"
End Sub

Silahkan dikembangkan masbro