Tiket Pesawat : pesan online - harga murah & promo - domestik & internasional
Tiket Pesawat : pesan online - harga murah & promo - domestik & internasional

Selasa, 18 Desember 2012

Aplikasi Kasir Excel

  1. 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.

  2. Pada sheet Main, buat tabel transaksi seperti terlihat pada gambar berikut

  3. Pada cells F7 ketikan =IF(C7="","",VLOOKUP(C7,stock!$B$4:$C$23,2,FALSE)) pada cell G7 ketikan =IF(D7="","",VLOOKUP(C7,stock!$B$4:$F$24,3,FALSE)) pada cells H7 ketikkan =IF(E7="","",VLOOKUP(C7,stock!$B$4:$E$23,4,FALSE)) pada cells I7 ketikkan =IF(D7="","",G7*D7+H7*E7) pada cells J7 ketikan =IF( E7="","",IF(K7-D7-E7*L7<0,"stock kurang","ada")) pada cells I20 ketikkan =IF(I7="","",SUM(I7:I19)) dan pada cell I22 ketikkan =IF(I20="","",I21-I20)

  4. Pada sheets Stock buat database barang seperti berikut
  5. Pada sheet Laba buat tabel seperti pada gambar berikut

  6. 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))

  7. 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

  8. langkah berikutnya Anda harus membuat menu agar ketika membuka file aplikasi kasir ini tampilan pertama yang muncul adalah menu utama dengan cara klik menu developer kemudian view code dan buat form seperti biasa, tampilannya kira-kira seperti berikut

  9. 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

  10. Langkah terkhir coba Anda isikan data penjualan transaksi kira-kira seperti berikut,
Demikian tutorial bagaimana cara membuat program aplikasi kasir dengan excel.

5 komentar:

  1. gajelas banget sih caranya, gaurut susah buat ngertiin

    BalasHapus
  2. berhasil!!, makasi banyak ya gan (y)

    BalasHapus
  3. Di cells c3 pada kolom laba =IF(main!C7="","",VLOOKUP(main!C7,stock!$B$4:$H$23,7,FALSE))
    Tidak bisa.
    Gimana gan?
    Thx

    BalasHapus
  4. sumber : http://jago-office.blogspot.com/2013/02/aplikasi-kasir-model-excel.html

    BalasHapus
  5. Assalamualaikum gan ane pengen bisa buat aplikasi Koperasi buat sekolah ane bisa bantu gak ya.... trims

    BalasHapus