Langkah-Langkah Membuat Macro Point of Sales

Langkah-Langkah Membuat Macro Point of Sales Berikut adalah langkah membuat file Excel Macro-Enabled Workbook : 1. Buka Ms. Excel (2007/2010/2013) 2. Ganti nama Worksheet 1 dengan HOME, lalu hias sheet sesuai dengan keinginan.

3. Ganti nama Worksheet 2 dengan KODE BARANG, isikan data, lalu hias sheet sesuai dengan keinginan.

4. Ganti nama Worksheet 3 dengan POINT OF SALES, isikan data, lalu hias sheet sesuai dengan keinginan.

5. Kemudian simpan file sebagai excel macro, klik save as, pilih Excel Macro-Enabled Workbook. Beri nama file “145134011_Fidelia YC_UAS_MACRO_1AMP

Selanjutnya adalah langkah untuk membuat macro di dalam file excel tersebut : 1. Pada sheet POINT OF SALES, pilih menu VIEW - MACROS - VIEW MACROS

2. Isikan Macro Name dengan INPUTDATA, lalu click CREATE.

3. Klik kanan pada VBAProject, INSERT – USER FORM

4. Isi Form dengan control yang digunakan yaitu Control Label, Text Box dan Command Button. Ganti Caption sesuai keinginan.

5. Selanjutnya ganti nama dan caption untuk setiap label, text box dan command button. Label 1, ganti Caption menjadi “No. Transaksi” Label 2, ganti Caption menjadi “Tanggal Transaksi” Label 3, ganti Caption menjadi “Kode Barang” Label 4, ganti Caption menjadi “Nama Barang” Label 5, ganti Caption menjadi “Harga” Label 6, ganti Caption menjadi “Jumlah Pembelian” Label 7, ganti Caption menjadi “Total” TextBox 1, ganti Name menjadi “tnotransaksi” TextBox 2, ganti Name menjadi “ttanggaltransaksi” TextBox 3, ganti Name menjadi “tkodebarang” TextBox 4, ganti Name menjadi “tnamabarang” TextBox 5, ganti Name menjadi “tharga” TextBox 6, ganti Name menjadi “tjumlahpembelian” TextBox 7, ganti Name menjadi “ttotal” CommandButton 1, ganti Caption menjadi “CARI” CommandButton 1, ganti name menjadi “CMDCARI” CommandButton 2, ganti Caption menjadi “TAMBAH” CommandButton 2, ganti name menjadi “CMDTAMBAH” CommandButton 3, ganti Caption menjadi KELUAR” CommandButton 3, ganti name menjadi “CMDKELUAR” Lalu susun dan hias sesuai keinginan seperti ini

6. Membuat kode dengan cara klik kanan pada CommandButton , pilih VIEW CODE

a. Untuk CommandButton CARI, Masukkan kode di bawah ini : Private Sub CMDCARI_Click() 'ambil kode barang yang ada pada textbox2 kodebarang = Me.tkodebarang.Value 'cari kode barang pada database sheet With Worksheets("KODE BARANG").Range("C4:E34") Set c = .Find(kodebarang, LookIn:=xlValues) 'jika ditemukan, maka lihat barisnya 'selanjutnya pindahkan nama barang dari kode barang ke textbox3 'jika tidak ditemukan, munculkan pesan If Not c Is Nothing Then BARIS = c.Row Me.tnamabarang.Value = Worksheets("KODE BARANG").Cells(BARIS, 4).Text Me.tharga.Value = Worksheets("KODE BARANG").Cells(BARIS, 5).Value Else MsgBox "MAAF KODE BARANG TIDAK DITEMUKAN" End If End With End Sub b. Untuk CommandButton TAMBAH, Masukkan kode di bawah ini : Private Sub CMDTAMBAH_Click()

Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("POINT OF SALES") 'menemukan baris kosong pada database Mic.Excel iRow = ws.Cells(Rows.Count, 6).End(xlUp).Offset(1, 0).Row 'Perintah untuk pemrosesan data yang nanti akan dimasukkan ke dalam program VBA (Pengecekan kebenaran untuk data yang diinput) 'Penjelasan : jika textbox Date tidak terisi maka akan muncul pesan "Insert Date" dan setelah itu SetFocus pointer untuk mengetik akan tertuju kepada textbox Account Number If Trim(Me.tnotransaksi.Text) = "" Then Me.tnotransaksi.SetFocus MsgBox "MASUKAN NOMOR TRANSAKSI", vbOKOnly Exit Sub End If 'Perintah untuk pemrosesan data yang nanti akan dimasukkan ke dalam program VBA (Pengecekan kebenaran untuk data yang diinput) 'Penjelasan : jika textbox Date tidak terisi maka akan muncul pesan "Insert Date" dan setelah itu SetFocus pointer untuk mengetik akan tertuju kepada textbox Date If Trim(Me.ttanggaltransaksi.Text) = "" Then Me.ttanggaltransaksi.SetFocus MsgBox "MASUKAN TANGGAL TRANSAKSI", vbOKOnly Exit Sub End If 'Perintah untuk pemrosesan data yang nanti akan dimasukkan ke dalam program VBA (Pengecekan kebenaran untuk data yang diinput) 'Penjelasan : jika textbox Account Number tidak terisi maka akan muncul pesan "Insert Account Number" dan setelah itu SetFocus pointer untuk mengetik akan tertuju kepada textbox Account Number If Trim(Me.tkodebarang.Text) = "" Then Me.tkodebarang.SetFocus MsgBox "MASUKAN KODE BARANG", vbOKOnly Exit Sub End If 'Perintah untuk pemrosesan data yang nanti akan dimasukkan ke dalam program VBA (Pengecekan kebenaran untuk data yang diinput) 'Penjelasan : jika textbox Account Name tidak terisi maka akan muncul pesan "Insert Account Name" dan setelah itu SetFocus pointer untuk mengetik akan tertuju kepada textbox Account Name If Trim(Me.tjumlahpembelian.Text) = "" Then Me.tjumlahpembelian.SetFocus MsgBox "MASUKAN JUMLAH PEMBELIAN", vbOKOnly

Exit Sub End If 'perintah untuk pengcopyan data dari hasil penginputan program VBA menuju ke database Mic.Excel ws.Cells(iRow, 3).Value = Me.tnotransaksi.Value ws.Cells(iRow, 4).Value = Me.ttanggaltransaksi.Value ws.Cells(iRow, 5).Value = Me.tkodebarang.Text ws.Cells(iRow, 6).Value = Me.tnamabarang.Text ws.Cells(iRow, 7).Value = Me.tharga.Value ws.Cells(iRow, 8).Value = Me.tjumlahpembelian.Value ws.Cells(iRow, 9).Value = Me.ttotal.Value 'perintah untuk mengosongkan kembali textbox-textbox yang ada pada program VBA setelah proses penginputan data sebelumnya Me.tnotransaksi.Value = "" Me.ttanggaltransaksi.Value = "" Me.tkodebarang.Text = "" Me.tnamabarang.Value = "" Me.tharga.Value = "" Me.tjumlahpembelian.Value = "" Me.ttotal.Value = "" Me.tnotransaksi.SetFocus End Sub c. Untuk CommandButton KELUAR, Masukkan kode di bawah ini : Private Sub CMDKELUAR_Click() Unload Me UserForm1.Hide End Sub d. Untuk menghindari menutup lewat tanda X, pada form masukan kode dibawah ini, klik kanan pada form pilih VIEW CODE : Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True Me.CMDKELUAR.SetFocus MsgBox "Klik KELUAR!", vbOKOnly End If End Sub e. Bila ingin langsung mengalikan harga dengan jumlah pembelian, pada textbox TOTAL, klik kanan, pilih VIEW CODE lalu isikan kode berikut : Private Sub ttotal_Change() ttotal = Val(tharga) * Val(tjumlahpembelian)

End Sub f. Mengisi Code pada module klik kanan pilih view code dan isikan kode dibawah ini : Sub INPUTDATA() UserForm1.Show End Sub Kemudian kembali ke worksheet untuk mengaktifkan form. 7. Pilih menu INSERT- SHAPES, insert text “INPUT DATA”, lalu klik kanan, pilih ASSIGN MACRO

8. Pilih macro INPUTDATA lalu klik OK, kemudian tombol INPUT DATA akan aktif.

9. Maka, setelah tombol aktif, tampilannya akan seperti ini

10. Apabila memasukan data, otomatis akan ter-input ke form Point of Sales yang telah dibuat sebelumnya.

Selanjutnya adalah langkah membuat instant button menuju ke sheet yg berbeda dengan menggunakan macro : a. Instant Button KODE BARANG 1. Sheet HOME boleh ditambahkan beberapa instant button dengan memilih menu INSERT – SHAPES, pilih sesuai keinginan. 2. Klik kanan pada instant button yang sudah dibuat. Edit text ketikan “KODE BARANG”. Klik kanan lagi Pilih ASSIGN MACRO

3. Kemudian, lakukan langkah berikut, isi MACRO NAME, lalu pilih NEW

4. Pada Module isikan : Sub Kode_Barang () Sheets(“Kode Barang”).Select End Sub 5. Lalu kembali ke worksheet. Ketika instant button KODE BARANG di klik, maka sheet akan langsung berpindah ke sheet Kode Barang (!!CAUTION!! LANGKAH INI BERFUNGSI UNTUK SEMUA INSTANT BUTTON “KODE BARANG” PADA FILE INI )

b. Instant Button POINT OF SALES 1. Untuk instant button POINT OF SALES, bisa dibuat variasi. Sebelum menuju ke sheet Point of Sales, dibuatkan userform log in. Pada instant button yang sudah di ketik “POINT OF SALES”, klik kanan, pilih ASSIGN MACRO, macro name isikan OPENPOS, lalu klik EDIT

2. Kemudian, klik kanan pada FORM, pilih USER FORM lalu tampilan akan menjadi seperti ini

3. Selanjutnya ikuti langkah membuat USERFORM pada bagian INPUTDATA, buat, susun dan hias form menjadi seperti ini

4. Lalu pilih menu VIEW – CODE. Masukkan kode berikut : Private Sub CommandButton1_Click() If Me.tusername.Text = "Fidelmart" And Me.tpassword.Text = "polban14" Then

Sheets("POINT OF SALES").Select Unload Me Else MsgBox ("Password Salah") End If End Sub 5. Isi pula kode berikut ke Module Sub OPENPOS() UserForm2.Show End Sub Kemudian dapat kembali ke HOME dan tombol POINT OF SALES sudah aktif.

LANGKAH MEMBUAT MACRO POINT OF SALES

Oleh : Nama

: Fidelia Yudith Caesarina

NIM

: 145134011

PROGRAM STUDI AKUNTANSI MANAJEMEN PEMERINTAHAN JURUSAN AKUNTANSI POLITEKNIK NEGERI BANDUNG 2015