Cara Membuat Form Menggunakan Ms.Excel

Posted by Bagus Swara On 9:42 PM

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.

MS.Excel

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

+ comments + 2 comments

Anonymous
November 27, 2013 at 2:56 PM  

Mantap...

Terimakasih Anonymous atas Komentarnya di Cara Membuat Form Menggunakan Ms.Excel
November 28, 2013 at 6:22 AM  

Makasih gan kunjunganya

Post a Comment

:)) ;)) ;;) :D ;) :p :(( :) :( :X =(( :-o :-/ :-* :| 8-} :)] ~x( :-t b-( :-L x( :-q =))

Silahkan dishare dan tinggalkan komentar untuk kemajuan blog ini.
Terima kasih atas komentarnya brada.....!

Bagus Swara

Blog ini ane buat dengan tujuan sabagai E-Book electronic jadi siapa saja yang membutuhan artikel yang ada di blog ini silakan di digunkan, semoga apa yang ane sajikan dapat bermanfaat bagi ente semua....Read More

Langganan

Masukan Email Ente:

Postingan terbaru

Koment Terbaru

Followers