Berita Jambi: Membuat Aplikasi Kasir Sederhana Dengan Microsoft Excel

Agustus 3, 2018 - 21:01

Berita Jambi: Membuat Aplikasi Kasir Sederhana Dengan Microsoft Excel

BRITO.ID,BERITA JAMBI - Sudah saat para pedagang di Indonesia menggunakan teknologi untuk mendukung kinerja jual beli, salah satunya menggunakan komputer. Banyak sudah yang menjual berbagai macam software POS atau Point of Sale, kita menyebutnya Program Kasir. Namun software POS biasanya dibandrol dengan harga yang lumayan mahal untuk kalangan pedagang kecil atau UKM. Menggunakan perangkat lunak seperti Microsoft Excel mungkin bisa menjadi alternatif.

Untuk anda yang sedang belajar atau ingin belajar tentang cara membuat program kasir, mungkin cara ini bisa menjadi pilihan tepat. Berikut ini adalah langkah-langkah cara membuat program kasir dengan microsoft excel dengan macro VBA.

Masuk Ms. Excel dan buat 3 buah sheet dengan masing masing nama sheet "Utama, Main, Stock, dan Laba". Untuk sheet utama jangan diisi data apapun namun beri warna background agar lebih menarik.
Pada sheet Main, buatlah tabel untuk transaksi seperti ini

Pada cells F7 isi =IF(C7="","",VLOOKUP
(C7,stock!$B$4:$C$23,2,FALSE))
pada cell G7 isi =IF(D7="","",VLOOKUP
(C7,stock!$B$4:$F$24,3,FALSE))
pada cells H7 isi =IF(E7="","",VLOOKUP
(C7,stock!$B$4:$E$23,4,FALSE))
pada cells I7 isi =IF
(D7="","",G7*D7+H7*E7)

pada cells J7 ketikan =IF( E7="","",
IF(K7-D7-E7*L7<0 data-blogger-escaped-ada=""
data-blogger-escaped-br="" data-blogger-escaped-kurang=""
data-blogger-escaped-stock="">
pada cells I20 ketikkan =IF(I7="","",SUM(I7:I19)) dan
pada cell I22 ketikkan =IF(I20="","",I21-I20)

Pada sheets Stock buat database barang seperti berikut

Setelah tabel laba terbuat ketikan rumus di cell C3 berikut
=IF(main!C7="","",VLOOKUP(main!C7,
stock!$B$4:$H$23,7,FALSE)) dan di cells D3 ketikan
=IF(main!I7="","",(main!I7-((main!D7)+(main!E7*main!L7))*C3))

Agar program aplikasi kasir lebih menarik Anda harus sedikit membuat macro VBA untuk membuat tombol pada sheet Main. Buat tombol Barang, Laba, dan Hapus Data dan buat macro copykan script berikut : Sub DeleteStuff()

Dim c As Range
For Each c In Range("C7:E19")
If Not IsNumeric(c) Then c.ClearContents
Next c
End Sub

Sub barang()
Sheets("stock").Select
End Sub
Sub laba()
Sheets("laba").Select
End Sub
Sub Auto_Open()
UserForm1.Show
End Sub

Buatlah Menu Utama untuk tampilan awal program kasir ini. Klik menu developer kemudian view code dan buat form, tampilannya seperti di bawah ini

Buat script VBA seperti berikut

Private Sub CommandButton1_Click()
Sheets("main").Select
Range("A1").Select
End Sub

Private Sub CommandButton2_Click()
Sheets("stock").Select
Range("A1").Select
End Sub

Private Sub CommandButton3_Click()
Sheets("laba").Select
Range("A1").Select
End Sub

Private Sub CommandButton4_Click()
Me.Hide
End Sub