Posted by | Posted in SISTEM OPERASI | Posted on 14-06-2012
Pada Kesempatan kali ini saya akan coba berbagi informasi mengenai penginputan data pembelian barang yang biasa kita lakukan dengan menggunakan Microsoft excel. Lembar kerja yang kita buat tetap sama yaitu di MS excel hanya tetapi saya dalam penginputan data nya menggunakan sebuah aplikasi yang terdapat pada MS excel itu sendiri yaitu menggunakan VBA ( visual basic application) untuk memudahkan kita dalam menginputkan datanya
Mari langsung saja kita ke TKP
Adapun Langkah Langkah pembuatan form sebagai berikut:
- Buka File excel 2007
- Double klik di nama worksheet lalu ganti nama yang semula sheet 1 menjadi nama yang sesuai anda ingnkan, pada kesempatan ini saya memakai nama “data”
- Pada Row 1 kolom kita buat nama heading/ Nama field tabel seperti tampak pada gambar dibawah ini(yang saya highlight warna biru).
- Kemudia kita simpan file sebagai excel makro…… klik file saveAs pilih Excel Macro Enabled Workbook…. Ketik nama file disini saya beri nama “data”
Langkah berikutnya membuat makro untuk file tersebut , dengan langkah- langkah sebagai berikut
- Pada woksheet pilih menu view klik tab Macros pilih view Macros :
- Isikan macro name: “FORM” klik create
- Klik kanan mouse pada VBA project
- Pilih insert
- Pilih User form
Langkah Selanjutnya adalah mendesain form
Koding
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 Then
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 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
Sekarang Kita kembali ke worksheet kemudian kita akan membuat tombol untuk mengaktifkan form, kita bisa letakan dimana saja
Demikianlah informasi yang saya bisa sampaikan semoga bisa membantu dan bermanfaat bagi para pencinta VBA.