Langka-‐Langkah Untuk membuat Visual Basic Bukalah Ms.Excel Kemudian setelah itu save as ke excel macro-‐enabled workbook. Setelah itu buatlah data seperti dibawah ini dan ubah back ground agar penampilannya menarik. Cara menggunakan Backgroud pada Ms.Excel, yaitu: Klik Page Layout -‐> Klik Backgroud -‐> Pilihlah Backgroun yang diinginkan -‐> klik Insert Lihatlah Gambar dibawah ini.
CARA MENGINPUT DAFTAR PELANGGAN Buatlah Macro atau Visual Basic Caranya: Klik Macro -‐> View macro, -‐> Ubah Name Macro -‐> Klik Create
Maka hasilnya akan Seperti gambar dibawah ini.
Klik Insert -‐> userform pun akan muncul -‐> Edit, dengan tool box (sesuai dengan yang ada pada excel) -‐> Caption pada Label di ubah seperti yang ada pada excel seperti ini.
Setelah itu, buatlah pula CommandButton sebanyak 2 buat, dengan caption pada setiap commandbutton yang diubah menjadi : 1. Tambah 2. Tutup Lihatlah Gambar di Bawah ini.
Klik command button Tambah dua kali, masukkan coding pada useform 5 Private Sub CMDTMBH_Click() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("DAFTAR_PELANGGAN") 'menemukanbariskosongpada database iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(1, 0).Row 'checkuntuksebuahkode If Trim(Me.bb.Value) = "" Then Me.bb.SetFocus MsgBox "Ketikan Nama Pelanggan" Exit Sub
End If 'transfer ComboBox ws.Cells(iRow, 6).Value = Me.ComboBox1.Value 'copy data ke database ws.Cells(iRow, 1).Value = Me.aa.Value ws.Cells(iRow, 2).Value = Me.bb.Value ws.Cells(iRow, 3).Value = Me.cc.Value ws.Cells(iRow, 4).Value = Me.dd.Value ws.Cells(iRow, 5).Value = Me.ee.Value ws.Cells(iRow, 7).Value = Me.gg.Value 'clear data Me.aa.Value = "" Me.bb.Value = "" Me.cc.Value = "" Me.dd.Value = "" Me.ee.Value = "" Me.gg.Value = "" Me.bb.SetFocus End Sub Private Sub CMDTTP_Click() Unload Me End Sub Private Sub gg_Change() End Sub Private Sub UserForm_QueryClose(Cancel As Integer, _ CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True MsgBox "Klik TUTUP"
End If End Sub Hasilnya akan seperti gambar di bawah ini.
Lalu Klik Run Macro. Maka akan muncul seperti di bawah ini.
CARA MENGINPUT DATA PERBULAN Buatlah Macro atau Visual Basic Caranya: Klik Macro -‐> View macro, -‐> Ubah Name Macro -‐> Klik Create
Maka hasilnya akan Seperti gambar dibawah ini.
Klik Insert -‐> userform pun akan muncul -‐> Edit, dengan tool box (sesuai dengan yang ada pada excel) -‐> Caption pada Label di ubah seperti yang ada pada excel seperti ini. Setelah itu, buatlah pula CommandButton sebanyak 2 buat, dengan caption pada setiap commandbutton yang diubah menjadi : 1. Tambah 2. Tutup Lihatlah Gambar di Bawah ini.
Klik command button Tambah dua kali, masukkan coding pada useform 1 Private Sub CMDTMBH_Click() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("Januari") 'menemukanbariskosongpada database iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(1, 0).Row 'checkuntuksebuahkode If Trim(Me.bb.Value) = "" Then Me.bb.SetFocus MsgBox "Ketikan Nama Pelanggan" Exit Sub End If 'transfer ComboBox ws.Cells(iRow, 5).Value = Me.ComboBox1.Value 'transfer ComboBox
ws.Cells(iRow, 6).Value = Me.ComboBox2.Value 'transfer ComboBox ws.Cells(iRow, 7).Value = Me.ComboBox3.Value 'copy data ke database ws.Cells(iRow, 1).Value = Me.aa.Value ws.Cells(iRow, 2).Value = Me.bb.Value ws.Cells(iRow, 3).Value = Me.cc.Value ws.Cells(iRow, 4).Value = Me.dd.Value ws.Cells(iRow, 8).Value = Me.hh.Value 'clear data Me.aa.Value = "" Me.bb.Value = "" Me.cc.Value = "" Me.dd.Value = "" Me.hh.Value = "" Me.bb.SetFocus End Sub Private Sub CMDTTP_Click() Unload Me End Sub Private Sub Label11_Click() End Sub Private Sub UserForm_QueryClose(Cancel As Integer, _ CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True MsgBox "Klik TUTUP" End If End Sub
Maka hasilnya akan terlihat pada gambar dibawah.
Begitu pun untuk data bulan-‐bulan berikutnya.
MEMBUAT HIASAN PADA MENU UTAMA
Agar penampilan tanpak menarik kita dapat membuat Menu Utama seperti pada gambar di bawah ini.
VISUAL BASIC (MACRO) Disusun untuk memenuhi salah satu syarat menyelesaikan UAS Spreadsheet.
Disusun oleh : Aulia Emi Wulandari NIM 145134008
PROGRAM STUDI D-4 AKUNTANSI MANAJEMEN PEMERINTAHAN JURUSAN AKUNTANSI POLITEKNIK NEGERI BANDUNG 2015
