Aplikasi Penjualan

APLIKASI PENJUALAN

Nama Kelompok :

1. Mufid Ifam M. (1412000088 )
2. Fakhrus Shirooth Busyro. ( 1412000097 )

1

Tutorial Membuat Laporan Penjualan Via EXCEL
1. Langkah Pertama yang Harus Di Lakukan Ialah Membuka
Microsoft Excel

Setelah Membuka Microsoft Excel Kita Membuat 4 Sheet dan di
kasih nama “ Home, Form Barang, Form Transaksi, Data Transaksi.

2. Langkah Kedua Kita Membuat Form Barang, Langkah
pertama yang harus di lakukan adalah Membuat Tabel dan di
kasih nama “ Nama barang, Harga Beli, Harga Jual, Stok
Awal.

2

3. Langkah ke Tiga Kita membuat tabel yang hamper mirip di
sebelah tabel sebelumnya cuman di tambahin dengan tabel “
Terjual dan Stok Akhir.

4. Jika Sudah Kita akan membuat tabelnya dengan cara
menekan dua kolom lalu pergi ke menu insert, Lalu klik icon
Tabel di atas dan jangan lupa menekan my tabel hiders dan
jangan lupa Memberi Nama tabel nya dengan nama “Tabel
Barang” jika sudah klik enter.

3

5. Setelah itu jangan lupa di save dan tipe file save nya di ganti
yang awalnya nama file nya “Enable workbook” di ganti ke
“Macro Enable Workbook” jika sudah silahkan save di
tempat yang kalian inginkan.

6. Jika sudah menyimpan / save file kita akan membuat tombol
Batal dan Simpan, Cara nya adalah kalian harus
mengaktifkan mode developer di bagian setting lalu “clik”
yang “Customize Ribon” Lalu Centang Mode Developernya.
4

7. Jika sudah selesai mengaktifkan mode developernya maka
muncul bagian baru di excel, lalu kalian pilih icon
“Developer” lalu cari icon “Insert”seletah itu kan banyak
muncul pilihan kalian pilih yang “active x control”

5

8. Jika sudah kalian bisa taruh di bawah tabel yang pertama,
lalu klik “Properties” trus ubah nama nya menjadi
“cmdBatal” dan ubah Captionnya menjadi “Batal” jika sudah
kili silang matikan “Design Mode” Untuk menggunakan
Tombol “Batal”

6

9. Kita akan memasukan script di tombol ”Batal” dengan cara
aktifkan “Designt Mode” lalu klik Kiri 2x Hingga muncul
Gambar seperti ini.

7

10. Jika sudah muncul masukan script Tombol Batal berikut
Script nya

'TOMBOL BATAL TIDAK BERFUNGSI JIKA TRANSAKSI BELUM ADA
'KONFIRMASI UNTUK MEMBATALKAN TRANSAKSI
Pesan = MsgBox("Apakah ingin menghapus semua data?",

vbQuestion + vbYesNo, "Konfirmasi")
If Pesan = vbYes Then
Sheet1.Range("B6").ClearContents
Sheet1.Range("C6").ClearContents
Sheet1.Range("D6").ClearContents
Sheet1.Range("E6").ClearContents
Else
Exit Sub

8

End If

11. Kalian Copy script di atas lalu paste di dalam tombol Batal,
Jika sudah klik silang tombol Batal berfungsi untuk
menghapus data yang tidak jadi / salah.

12. Kita membuat tombol Simpan cara nya sama seperti
membuat Tombol Batal kita klik menu insert lalu pilih yang
“Active x control” jika sudah letakkan di samping tombol
Batal, Lalu kita masukkan script tombol Simpan yang cara
nya sama seperti tombol Batal.

13. Berikut adalah script Tombol Simpan

9

'DATA YANG KITA INPUT
nama_barang = Range("B6").Text
harga_beli = Range("C6").Text
harga_jual = Range("D6").Text
stok = Range("E6").Text

'VALIDASI INPUTAN JIKA ISIAN MASIH ADA YANG KOSONG
If nama_barang = "" Or harga_beli = "" Or harga_jual = "" Or stok
= "" Then

MsgBox "Isian belum lengkap", vbExclamation, "Konfirmasi"
Exit Sub
End If

Pesan = MsgBox("Apakah ingin melanjutkan proses simpan
data?", vbQuestion + vbYesNo, "Konfirmasi")

If Pesan = vbYes Then

SimpanData ' << MEMANGGIL PROSEDUR Simpan data

Else
Exit Sub

End If

10

14. Kalian Copy scriptnya trus paste kan di dalam tombol
simpan jika sudah klik silang, Tombol Tambah Berfungsi
untuk memasukan kan apa yang mau kita jual.

15. Dan yang terakhir di bagian Barang adalah Memasukan
fungsi SIMPAN
DATA cara nya sama seperti memasukan script batal dan
simpan tinggal meng copas script di bawah lalu paste di
bagian paling bawah sendiri.

16. Script Fungsi simpan Data
Sub SimpanData()

LastItemRow = Sheet1.Range("B999999").End(xlUp).Row 'Last
Item Row

TotalRows = LastItemRow - 5 'TOTAL ITEM

11

FirstDBRow = Sheet1.Range("H999999").End(xlUp).Row + 1
'DETAIL PERTAMA

Sheet1.Range("H" & FirstDBRow & ":K" & FirstDBRow + TotalRows
- 1).Value = Sheet1.Range("B6:E6" & LastItemRow).Value 'DETAIL
TRANSAKSI

Sheet1.Range("B6").ClearContents
Sheet1.Range("C6").ClearContents
Sheet1.Range("D6").ClearContents
Sheet1.Range("E6").ClearContents

MsgBox "Data berhasil disimpan", vbInformation, "Konfirmasi"

ActiveWorkbook.Save '<< SAVE FILE EXCEL
End Sub

17. Kita Membuat Form Transaksi Langkah awal yang di
butuhkan di dalam form transaksi adalah membuat tabel
seperti di bawah ini:

12

18. Jika sudah kita membuat tabel “No Nota” yang fungsi nya
nantik nyambung / masuk di dalam no transaksi.

19. Cara nya kita membuat tabel dengan tabel heeders seperti
gambar di bawah ini

13

20. Jika sudah jangan lupa tabel nya di kasih nama “NoNota”
jika sudah klik enter

21. Lalu sebelahnya kita tambahi kolom “Total Nota” fungsi nya
untuk memasukan data yang ada di “No Nota” dengan cara
kolom “Total Nota” kita Counta No Nota dengan cara
memasukan rumus seperti di bawah

22. Lalu untuk mengisi No Transaksi dengan memasukan
Rumus “Total Nota” yang sudah di counta + 1 dan secara
otomatis No Transaksi terisi angka 1
14

23. Lalu kolom tanggal nya bisa kita set dengan =TODAY()

24. Total Item kita isi dengan memasukan rumus
Counta(E7:E16) Yang di hasilkan dari mengcounta tabel
nama barang.

25. Cara mengisi Nama Barang yaitu dengan menggunakan data
validation cara nya klik “Data” Trus pilih Data Validation
Pilih yang “List” Sourch nya kita arahkan ke “Form Barang”
kita block “Nama Barang” nya semua trus ENTER klik Ok.

15

16

17

26. Nantik tampil seperti gambar di bawah

27. Untuk mengisi tabel harga kita menggunakan fungsi
“VLOOKUP” dengan rumus sebagai berikut
=VLOOKUP(K10;Barang(#All);3;FALSE yang di hasilkan
dari tabel barang,dan yang mau kita ambil adalah harga jual
di index ke 3.

28. Jadi nanti tampilan harga nya mengikuti apa yang kita pilih
seperti gambar di bawah ini
18

29. Untuk kolom Qty itu untuk menentukan berapa banyak
jumlah yang harus di bayar atau harga barang tersebut jadi
tinggal di isi sesuai kebutuhan aja

30. Lalu untuk mengisi kolom total, tinggal kita masukan rumus
=Qty*Harga jadi =k12*k11

19

31. Kita akan menambah kan tombol ”Tambah” seperti cara
yang ada di atas pergi ke menu developer terus klik insert
pilih yang “Active x Control” trus letak kan di bawah tabel
total

32. Jangan lupa klik “Propertise” ubah nama sama caption nya,
ubah nama menjadi “cmdTambah” lalu caption nya
“Tambah” jika sudah silang saja

20

33. Trus kita mau memasukan script tombol “Tambah” dengan
cara mengaktifkan design mode trus klik kiri 2x tombol
tambah hinga masuk ke bagian dalam tombol “Tambah” lalu
copas script di bawah.

21

34. Script tombol Tambah
'PILIH SHEET, DISINI NAMA SHEETNYA ADALAH : Transaksi Kasir

Sheets("Form Transaksi").Select

'DATA YANG KITA INPUT
no_transaksi = Range("K6").Text
tanggal = Range("K7").Text
nama_barang = Range("K10").Text
harga = Range("K11").Value
qty = Range("K12").Value
jumlah = Range("K13").Value

'VALIDASI INPUTAN JIKA ISIAN MASIH ADA YANG KOSONG

22

If no_transaksi = "" Or tanggal = "" Or nama_barang = "" Or harga
= "" Or qty = "" Or jumlah = "" Then

MsgBox "Isian belum lengkap", vbExclamation, "Konfirmasi"
Exit Sub
End If

'MEMASUKKAN DATA KE TABEL TRANSAKSI KETIKA MENGKLIK
TOMBOL TAMBAH

Dim ItemRow As Long, AvailRow As Long
With Sheet3

AvailRow = .Range("E999999").End(xlUp).Row + 1 'First Avail
Row

'TAMBAH ITEM KE TABEL TRANSAKSI
.Range("C" & AvailRow).Value = .Range("K6").Value 'NO.
TRANSAKSI
.Range("D" & AvailRow).Value = .Range("K7").Value 'TANGGAL
.Range("E" & AvailRow).Value = .Range("K10").Value 'NAMA
BARANG
.Range("F" & AvailRow).Value = .Range("K11").Value 'HARGA
.Range("G" & AvailRow).Value = .Range("K12").Value 'QTY
.Range("H" & AvailRow).Value = .Range("K13").Value 'JUMLAH
End With

23

'MENGOSONGKAN ISIAN DATA
Sheets("Form Transaksi").Select '<< MEMILIH SHEET Transaksi
Kasir
Sheet3.Range("K10").ClearContents
Sheet3.Range("K12").ClearContents

35. Fungsi tombol tambah untuk memasukan apa yang mau kita
beli kedalam kolom Transaksi

36. Sehabis transaksi / menambahkan apa yang kita mau beli,
past i, kan terjadi eror di kolom “Harga” sama “Total” yang
perlu kita lakukan adalah menambahkan rumus di depan dan
di bagian paling belakang vlookup pada kolom “Harga”
dengan menambahkan rumus IFEROR (dibagian depan) (“”)
dibagian akhir fungsi nya apa, bila terjadi eror data tesebut
tidak menampilkan apa apa.

37. Untuk mengisi form Grand Total kita menggunakan fungsi
SUM jadi yang di SUM adalah kolom Total.

24

38. Lalu untuk mengisi kolom Kembali kita menggunakan
rumus pengurangan yang di dapet dari (Bayar - Total) =H18
– H17

25

39. Lalu kita akan menambahkan Tombol yaitu Tombol “Clear”
cara nya pergi ke menu developer klik insert pilih yang
active x control letakkan di bawah tabel nama barang, lalu
jangan lupa klik prpertise trus ganti nama dan caption nya
ganti nama menjadi “cmdClear” dan caption nya “ Clear”
jika sudah klik silang.

26

40. Lalu kita akan memasukkan script tombol Clear cara nya
aktifin design mode trus klik kiri 2x tombol Clear hingga
masuk ke bagian untuk memasukan script lalu copas script di
bawah.

27

41. Script Tombol Clear
'TOMBOL BATAL TIDAK BERFUNGSI JIKA TRANSAKSI BELUM ADA
If Range("K8").Value = 0 Then '<< ADALAH CELL Total Item

Exit Sub
End If

'KONFIRMASI UNTUK MEMBATALKAN TRANSAKSI

Pesan = MsgBox("Apakah ingin membatalkan transaksi?",
vbQuestion + vbYesNo, "Konfirmasi")

If Pesan = vbYes Then

Sheet3.Range("C7:H16").ClearContents '<< MENGOSONGKAN
TABEL TRANSAKSI

Sheet3.Range("K7") = "=today()" '<< MENAMPILKAN
TANGGAL HARI INI

28

Sheet3.Range("K10").ClearContents
Sheet3.Range("K12").ClearContents
Sheet3.Range("H18").ClearContents
‘Sheet3.Range("H19").ClearContents
Else
Exit Sub
End If
42. Langkah selanjutnya kita membuat tabel di sheet data

transaksi tabel nya terdiri dari “No Transaksi , Tanggal,
Nama Barang, Harga, Qty, Jumlah” jika sudah blok 2 tabel
lalu pergi ke menu insert terus klik tabel lalu centang my
table heeders lalu klik oke.

29

43. Tabel name nya di ubah menjadi “Transaksi”

44. Lalu kita akan membuat tombol “Simpan” cara nya sama
seperti yang di atas tinggal ke menu developer klik insert
lalu pilih yang active x control lalu letak kan di samping
tombol clear, lalu jangan lupa untuk mengatur properties
mengganti nama dan caption, nama di ganti dengan
“cmdSimpan” caption nya di ganti dengan “Simpan” jika
sudah klik silang.
30

31

45. Lalu kita akan memasukan script tombol simpan cara nya
nyalakan Design Mode nya terlebih dahulu terus klik kiri 2x
lalu copas script di bawah ke dalam tombol simpaan.

32

46. Script Tombol Simpan
'TIDAK DAPAT SIMPAN DATA JIKA TRANSAKSI BELUM ADA
If Range("K8").Value = 0 Then '<< ADALAH CELL Total Item

MsgBox "Data tidak dapat disimpan, belum ada transaksi",
vbExclamation, "Konfirmasi"

Exit Sub
End If

'KONFIRMASI UNTUK SIMPAN DATA
Pesan = MsgBox("Apakah ingin melanjutkan proses simpan
data?", vbQuestion + vbYesNo, "Konfirmasi")
If Pesan = vbYes Then

SimpanNoNota '<< MEMANGGIL PROSEDUR SimpanNoNota
33

SimpanData ' << MEMANGGIL PROSEDUR SimpanData YANG
SUDAH KITA BUAT PADA Module1

Else

Exit Sub

End If

47. Sehabis memasukan script Tombol simpan kita masukan
fungsi “Simpan Nota” di bawah dengan cara masuk ke
dalam forum script “Simpan” lalu arahkan ke paling bawah
terus klik enter 3x lalu paste kan fungsi simpan di Nota situ.

48. Script Fungsi Simpan Nota
Sub SimpanNoNota()

'PILIH SHEET, DISINI NAMA SHEETNYA ADALAH : Transaksi Kasir
Sheets("Form Transaksi").Select

'NO. TRANSAKSI YANG AKAN KITA COPY

34

no_transaksi = Range("K6").Text

'MEMASUKKAN DATA KE TABEL NO NOTA KETIKA MENGKLIK
TOMBOL TAMBAH

Sheets("Form Transaksi").Select '<< MEMILIH SHEET Transaksi
Kasir

TotalData = Range("Q6").Value '<< CELL ADALAH TOTAL DATA /
Nota PADA TABEL NO NOTA

Rows(TotalData + 7 & ":" & TotalData + 7).Select '<< ANGKA 4
ADALAH BARIS PERTAMA PADA TABEL NO NOTA YG AKAN DIISI
DATA

Selection.Copy
Rows(TotalData + 7 & ":" & TotalData + 7).Select
ActiveSheet.Paste
Application.CutCopyMode = False

'MENENTUKAN KOLOM PADA TABEL TRANSAKSI YG AKAN
DIISIKAN DATA

Range("N" & TotalData + 7).Select '<< W ADALAH KOLOM NO
NOTA, ANGKA 7 ADALAH BARIS PERTAMA PADA TABEL NO NOTA

ActiveCell.FormulaR1C1 = no_transaksi
End Sub

35

49. Lalu masukan script fungsi Simpan Data di bawah dengan
cara yang sama seperti memasukan script Fungsi Simpan
Nota.

50. Script Fungsi Simpan Data
Sub SimpanData()

'SIMPAN DATA KE SHEET DAFTAR TRANSAKSI
LastItemRow = Sheet3.Range("E999999").End(xlUp).Row 'Last
Item Row
TotalRows = LastItemRow - 6 'TOTAL ITEM
FirstDBRow = Sheet4.Range("B999999").End(xlUp).Row + 1
'DETAIL PERTAMA
Sheet4.Range("B" & FirstDBRow & ":G" & FirstDBRow +
TotalRows - 1).Value = Sheet3.Range("C7:H" & LastItemRow).Value
'DETAIL TRANSAKSI

36

'MENGOSONGKAN ISIAN DATA DAN TABEL TRANSAKSI DI SHEET
Transaksi Kasir

Sheet3.Range("C7:H16").ClearContents '<< MENGOSONGKAN
TABEL TRANSAKSI

Sheet3.Range("K7") = "=today()" '<< MENAMPILKAN TANGGAL
HARI INI

Sheet3.Range("K10").ClearContents
Sheet3.Range("K12").ClearContents
Sheet3.Range("H18").ClearContents
‘Sheet3.Range("H19").ClearContents

MsgBox "Data berhasil disimpan", vbInformation, "Konfirmasi"

ActiveWorkbook.Save '<< SAVE FILE EXCEL
End Sub

51. Fungsi simpan data bertujuan untuk menyimpan seluruh data
penjualan ke sheet data transaksi / tabel data transaksi

52. Lalu kita menuju ke sheet barang untuk mengisi kolom “Terjual”
dengan cara menggunakan rumus di bawah ini kalian ikutin
gambar di bawah kalo sudah selesai klik enter.

37

1.
38

2.
3.

39

4.

53. Lalu untuk mengisi stok akhir menggunakan cara pengurangan
yaitu (=stok awal – Terjual)

40

Tampilan Home
1. Buat Latar belakang background Home terlebih dahulu.

41

2. Buat gambar took dan nama took.
cari INSERT kemudian, ke TEXT lalu TEXT BOX

42

Lalu ketik dan paste gambar dan nama toko.

3. Lalu, buat tombol Home, Data Barang, From Transaksi, dan
Data Transaksi
Pergi ke INSERT>Shapes>cari bentuk persegi panjang

Bikin 4 kotak.
Home, Data Barang, From Transaksi, dan Data Transaksi

43

Klik kanan mouse di kotak masing masing, lalu klik
LINK/HYPERLINK

44

Lalu klik sesuai nama motak yang di klik kanan tadi
Home > Cell reference Home
Data Barang > Cell reference From Barang
From Transaksi > Cell reference From Transaksi
Data Transaksi > Cell reference Data Transaksi

45

4. Buat Total Penjualan dan Total Barang
Buatlah terlebih dahulu Kotak Total Penjualan dan Total
Barang yang akan di jual

Lalu, buatlah lagi 2 kotak untuk jumlah penjualan dan
jumlah barang.
lalu ikutilah langkah langkah dalam gambar secara berurutan

46

a. Tekan tombol “ = “ di kolom seperti gambar
b. Setelah menulis tanda sama dengan lalu klik ke Statistik.
c. Pilih yang Pnjualan lalu Enter.

47

d. Pilih yang terjual lalu Enter.
e. Maka hasilnya akan seperti ini.

5. Selanjutnya membuat bagian Produk Terlaris

48

Langkah awalnya sama seperti seelumnya
Buat kotak dahulu lalu tulis Produk Terlaris kemudian desain
sesuai apa yang di inginkan.

a. untuk kotak berikutnya sama seperti sebelumnya tulis “
= “ terlebih dahulu lalu ke Statistika > Produk
Terbanyak > Enter

b. untuk kotak berikutnya sama seperti sebelumnya tulis “
= “ terlebih dahulu lalu ke Statistika > Penjualan
Terbanyak > Enter

49