Cara membuat kwitansi pembayaran sendiri dengan excel - Kwitansi lazim digunakan sebagai tanda terima pembayaran baik pembayaran tunai maupun non tunai (Kredit), bagi anda yang ingin membuat aplikasi kwitansi sendiri dengan excel berikut ini refrensi untuk mempermudah membuat aplikasi kwitansi

Cara membuat nomor urut dengan fungsi
Input nomor urut tanggal dan jam seara otomatis dengan
Membuat nomor urut model Kwitansi
Menghilangkan error #N/A pada Fungsi VLOOKUP Excel
Cara menggunakan fungsi Vlookup
Konversi huruf keangka
Membuat dropdown dengan data Validation
Membuat sel hanya bisa diisi angka dengan data validation


Membuat kwitansi pembayaran sendiri dengan excel

Kita mulai membuat tampilan kwitansi, saya membuat tampilan kwitansi dengan mendownload themplate yang sudah disediakan pada excel, gambaranya seperti dibawah ini

Perhatikan sel sel yang saya tandai dengan warna kuning merah, tugas anda adalah membuat kolom kolom tersebut bekerja secara efektif dan efesien sehingga nantinya diharapkan dapat mempermudah memperepat pekerjaan anda


Membuat nomor otomatis pada nomor kwitansi
Membuat tanggal otomatis
Dropdown nama pembayar
Vlookup nama pembayar meliput alamat kota dan no HP
Sel hanya boleh diisi angka untuk kolom jumlah pembayaran
angka ke huruf, untuk mengisi kolom terbilang
Dropdown jenis pembayaran
Nomor kwitansi tidak boleh ganda (macro)
Mengkunci sel yang tidak diperlukan (macro)

Membuat kwitansi pembayaran sendiri dengan excel

Buat form awal kwitansi pembayaran sebagaimana gambar diatas, dan mengikui setiap kolomnya, nama sheetnya adalah Kwitansi Pembayaran

Jika anda sudah selesai membuat form kwitansi seperti gambar diatas, maka tugas selanjutnya adalah membuat data tabel pembayar, silahkan buat sheet baru dengan nama sheet Tbl_Pembayar, Kolom dimuali dari A1 sampai E1 yang berisi kolom No, Nama pembayar, Alamat, Kota, dan no HP . Perhatukan gambar

Buat sheet baru lagi dengan nama sheet Tbl_Data, untuk nama kolom silahkan perhatikan gambar dibawah ini


Langkah selanjutnya adalah membuat Name Manager, silahkan buka tab Formula > Name Manager > New. PAda kolom Name isi No , dan pada kolom Refers to isikan kode formula dibawah ini
=OFFSET(Tbl_Data!$A$1;1;0;COUNTA(Tbl_Data!$A:$A)-2;1)

Buat satu lagi Name Manager, silahkan buka tab Formula > Name Manager > New. Pada kolom Name isi Nama , dan pada kolom Refers to isikan kode formula dibawah ini
=OFFSET(Tbl_Pembayar!$B$1;1;0;COUNTA(Tbl_Pembayar!$B:$B)-1;1)

Disinilah letak sensitif nama sheet dan masing masing kolom harus sesuai dengan arahan diatas

Update silahkan lihat komentar dibawah

Periksa kembali apa sudah benar atau masih ada yang salah, jika sudah benar silahkan pergi ke sheet Kwitansi Pembayaran tambahkan data bantu pada sel H6 isi dengan "TUBAN" (tanpa tanda petik) dan H7 isi dengan "KW" (tanpa tanda petik). Berlanjut ke I6 sampai I8 isikan masing masing "Tunai" "Angsuran" "Tunggakan"

Samapai disini persiapan membuat aplikasi kwitansi dengan excel telah selesai, sekarang saatnya kita menggunakan formula untuk menyelesaikanya, untuk keterangan name manager dan masing masing sheet bisa anda pahami sendiri jikalau aplikasi ini sudah siap untuk dipakai :D

Membuat kwitansi pembayaran sendiri dengan excel

Jika persiapan dirasa sudah baik dan dilakukan dengan benar, sekarang kita ketahap berikutnya, tahap ini tidak akan berjalan dengan baik jika tahap persiapan tidak diselesaikan dengan benar, jadi silahkan periksa kembali persiapan anda, karena yang selanjutnya sangat tergntung dengan persiapan, baiklah langsung saja buka sheet Kwitansi Pembayaran kita akaan mengisikan formula dan fungs pada kolom yang saya tandai pada gambar form kwitansi diatas. Silahkan ikuti langkah langkah dibawah ini :

Pada kolom D6 isikan formula untuk membuat nomor transaksi secara otomatis dan berurutan, untuk itu gunakan formula dibawah ini

=H7&"/"&TEXT(D14;"MM/YY")&"/"&TEXT(ROWS(No);"00000")

Coba tekan enter dan lihat hasilnya, jika hasilnya adalah KW/12/17/00001 maka anda benar

Pada kolom D7 kita buat list dropdown nama penerima yang ada pada sheet Tbl_Pembayar, kita gunakan fungsi Data Validation, cara menggunakan data validation secara lengkap bisa anda lihat pada link diatas

- Klik sel D7
- Buka tab Data > Data Valdation > Data Validation
- Pada Kolom Allow pilih List
- Pada kolom Source ketkan =Nama
- Pilih OK


Pada kolom D8 sampai kolom D10 kita gunakan fungs Vlookup, Vlookup juga sudah kita bahas silahkan baca kembali

- Kolom D8 isikan fungsi ini =IFERROR(VLOOKUP(D7;Tbl_Pembayar!B2:E11;2;FALSE);"")
- Kolom D9 isikan fungsi ini =IFERROR(VLOOKUP(D7;Tbl_Pembayar!B2:E11;3;FALSE);"")
- Kolom D10 isikan fungsi ini =IFERROR(VLOOKUP(D7;Tbl_Pembayar!B2:E11;4;FALSE);"")

Pada kolom D11 kita kembali menggunakan Data Validation, agar sel atau kolom ini hanya bisa diisi angka saja, nah caranya adalah

- Blok atau pilih sel D11, buka tab Data > Data Validation > data validation
- Pada jendela Data Validation kolom Allow pilih Whole Number
- Pada jendela Data Validation kolom Data pilih Greater Then
- Pada jendela Data Validation kolom Minimum masukan angka 0 (nol)
- Pilih ok

Pada kolom D12 kita akan konersikan dari angka menjadi huruf, cara ini juga sudah pernah dibahas, silakan lihat kembali, Konversi Angka Keguruf atau klik disini, kode mcronya lumayan panjang, jika ingin menulis kembali maka silahkan tulis di jendela VBE > Insert Module ,lalu pastekan kode ini didalam module

Function ANGKAKATA(nomor)
'Fungsi ANGKAKATA untuk mengubah angka menjadi kata
Application.Volatile
Terjemah = Array("", "satu", "dua", "tiga", "empat", _
"lima", "enam", "tujuh", "delapan", "sembilan")
ANGKAKATA = Terjemah(nomor)
End Function
Function TERBILANG(n_angka, _
Optional m_huruf = 4, Optional Satuan = "")
'Fungsi TERBILANG
Application.Volatile
angka = Fix(Abs(n_angka))
'Dua desimal dibelakang koma
desimal1 = Mid(Abs(n_angka), Len(angka) + 2, 1)
desimal2 = Mid(Abs(n_angka), Len(angka) + 3, 1)
If desimal2 = "" Then
If desimal1 = "" Or desimal1 = "0" Then
Koma = ""
Else
Koma = " koma " & ANGKAKATA(desimal1)
End If
ElseIf desimal2 = "0" Then
If desimal1 = "0" Then
Koma = ""
ElseIf desimal1 = "1" Then
Koma = " koma sepuluh"
Else
Koma = " koma " & ANGKAKATA(desimal1) & " puluh"
End If
Else
If desimal1 = "0" Then
Koma = " koma nol " & ANGKAKATA(desimal2)
ElseIf desimal1 = "1" Then
If desimal2 = "1" Then
Koma = " koma sebelas"
Else
Koma = " koma " & ANGKAKATA(desimal2) & " belas"
End If
Else
Koma = " koma " & ANGKAKATA(desimal1) & _
" puluh " & ANGKAKATA(desimal2)
End If
End If
'Memisahkan angka
No1 = Left(Right(angka, 1), 1)
No2 = Left(Right(angka, 2), 1)
No3 = Left(Right(angka, 3), 1)
No4 = Left(Right(angka, 4), 1)
No5 = Left(Right(angka, 5), 1)
No6 = Left(Right(angka, 6), 1)
No7 = Left(Right(angka, 7), 1)
No8 = Left(Right(angka, 8), 1)
No9 = Left(Right(angka, 9), 1)
No10 = Left(Right(angka, 10), 1)
No11 = Left(Right(angka, 11), 1)
No12 = Left(Right(angka, 12), 1)
No13 = Left(Right(angka, 13), 1)
No14 = Left(Right(angka, 14), 1)
No15 = Left(Right(angka, 15), 1)
'Bilangan satuan
If Len(angka) >= 1 Then
If Len(angka) = 1 And No1 = 1 Then
nomor1 = "satu"
ElseIf Len(angka) = 1 And No1 = 0 Then
nomor1 = "Nol"
ElseIf No2 = "1" Then
If No1 = "1" Then
nomor1 = "sebelas"
ElseIf No1 = "0" Then
nomor1 = "sepuluh"
Else
nomor1 = ANGKAKATA(No1) & " belas"
End If
Else
nomor1 = ANGKAKATA(No1)
End If
Else
nomor1 = ""
End If
'Bilangan puluhan
If Len(angka) >= 2 Then
If No2 = 1 Or No2 = "0" Then
nomor2 = ""
Else
nomor2 = ANGKAKATA(No2) & " puluh "
End If
Else
nomor2 = ""
End If
'Bilangan ratusan
If Len(angka) >= 3 Then
If No3 = "1" Then
nomor3 = "seratus "
ElseIf No3 = "0" Then
nomor3 = ""
Else
nomor3 = ANGKAKATA(No3) & " ratus "
End If
Else
nomor3 = ""
End If
'Bilangan ribuan
If Len(angka) >= 4 Then
If No6 = "0" And No5 = "0" And No4 = "0" Then
nomor4 = ""
ElseIf (No4 = "1" And Len(angka) = 4) Or _
(No6 = "0" And No5 = "0" And No4 = "1") Then
nomor4 = "seribu "
ElseIf No5 = "1" Then
If No4 = "1" Then
nomor4 = "sebelas ribu "
ElseIf No4 = "0" Then
nomor4 = "sepuluh ribu "
Else
nomor4 = ANGKAKATA(No4) & " belas ribu "
End If
Else
nomor4 = ANGKAKATA(No4) & " ribu "
End If
Else
nomor4 = ""
End If
'Bilangan puluhan ribu
If Len(angka) >= 5 Then
If No5 = "1" Or No5 = "0" Then
nomor5 = ""
Else
nomor5 = ANGKAKATA(No5) & " puluh "
End If
Else
nomor5 = ""
End If
'Bilangan ratusan Ribu
If Len(angka) >= 6 Then
If No6 = "1" Then
nomor6 = "seratus "
ElseIf No6 = "0" Then
nomor6 = ""
Else
nomor6 = ANGKAKATA(No6) & " ratus "
End If
Else
nomor6 = ""
End If
'Bilangan jutaan
If Len(angka) >= 7 Then
If No9 = "0" And No8 = "0" And No7 = "0" Then
nomor7 = ""
ElseIf No7 = "1" And Len(angka) = 7 Then
nomor7 = "satu juta "
ElseIf No8 = "1" Then
If No7 = "1" Then
nomor7 = "sebelas juta "
ElseIf No7 = "0" Then
nomor7 = "sepuluh juta "
Else
nomor7 = ANGKAKATA(No7) & " belas juta "
End If
Else
nomor7 = ANGKAKATA(No7) & " juta "
End If
Else
nomor7 = ""
End If
'Bilangan puluhan juta
If Len(angka) >= 8 Then
If No8 = "1" Or No8 = "0" Then
nomor8 = ""
Else
nomor8 = ANGKAKATA(No8) & " puluh "
End If
Else
nomor8 = ""
End If
'Bilangan ratusan juta
If Len(angka) >= 9 Then
If No9 = "1" Then
nomor9 = "seratus "
ElseIf No9 = "0" Then
nomor9 = ""
Else
nomor9 = ANGKAKATA(No9) & " ratus "
End If
Else
nomor9 = ""
End If
'Bilangan milyar
If Len(angka) >= 10 Then
If No12 = "0" And No11 = "0" And No10 = "0" Then
nomor10 = ""
ElseIf No10 = "1" And Len(angka) = 10 Then
nomor10 = "satu milyar "
ElseIf No11 = "1" Then
If No10 = "1" Then
nomor10 = "sebelas milyar "
ElseIf No10 = "0" Then
nomor10 = "sepuluh milyar "
Else
nomor10 = ANGKAKATA(No10) & " belas milyar "
End If
Else
nomor10 = ANGKAKATA(No10) & " milyar "
End If
Else
nomor10 = ""
End If
'Bilangan puluhan Milyar
If Len(angka) >= 11 Then
If No11 = "1" Or No11 = "0" Then
nomor11 = ""
Else
nomor11 = ANGKAKATA(No11) & " puluh "
End If
Else
nomor11 = ""
End If
'Bilangan ratusan milyar
If Len(angka) >= 12 Then
If No12 = "1" Then
nomor12 = "seratus "
ElseIf No12 = "0" Then
nomor12 = ""
Else
nomor12 = ANGKAKATA(No12) & " ratus "
End If
Else
nomor12 = ""
End If
'Bilangan triliun
If Len(angka) >= 13 Then
If No15 = "0" And No14 = "0" And No13 = "0" Then
nomor13 = ""
ElseIf No13 = "1" And Len(angka) = 13 Then
nomor13 = "satu triliun "
ElseIf No14 = "1" Then
If No13 = "1" Then
nomor13 = "sebelas triliun "
ElseIf No13 = "0" Then
nomor13 = "sepuluh triliun "
Else
nomor13 = ANGKAKATA(No13) & " belas triliun "
End If
Else
nomor13 = ANGKAKATA(No13) & " triliun "
End If
Else
nomor13 = ""
End If
'Bilangan puluhan triliun
If Len(angka) >= 14 Then
If No14 = "1" Or No14 = "0" Then
nomor14 = ""
Else
nomor14 = ANGKAKATA(No14) & " puluh "
End If
Else
nomor14 = ""
End If
'Bilangan ratusan triliun
If Len(angka) >= 15 Then
If No15 = "1" Then
nomor15 = "seratus "
ElseIf No15 = "0" Then
nomor15 = ""
Else
nomor15 = ANGKAKATA(No15) & " ratus "
End If
Else
nomor15 = ""
End If
'Jika angka terlalu banyak (> 15 digit)
If Len(angka) > 15 Then
bilang = "Angka terlalu banyak (>15)"
Else
If IsNull(n_angka) Then
bilang = ""
ElseIf n_angka < 0 Then bilang = "minus " & Trim(nomor15 & nomor14 & nomor13 & _ nomor12 & nomor11 & nomor10 & nomor9 & nomor8 & nomor7 & nomor6 & nomor5 & nomor4 & _ nomor3 & nomor2 & nomor1 & Koma & " " & Satuan) Else: bilang = Trim(nomor15 & _ nomor14 & nomor13 & nomor12 & nomor11 & nomor10 & nomor9 & nomor8 & nomor7 & nomor6 & _ nomor5 & nomor4 & nomor3 & nomor2 & nomor1 & Koma & " " & Satuan) End If End If 'Pilihan model huruf If m_huruf = 4 Then TERBILANG = StrConv(Left(bilang, 1), 1) & _ StrConv(Mid(bilang, 2, 1000), 2) Else TERBILANG = StrConv(bilang, m_huruf) End If TERBILANG = Replace(TERBILANG, " ", " ", 1, 1000, vbTextCompare) End Function






Masih dikolom D12 ketikan fungsi buatan sendiri =IFERROR(TERBILANG(D11)&" rupiah";"")

Sekarang kita pindah ke sel atau kolom D14 masukan fungsi tanggal otomatis =NOW(), jika disertai format maka tulis jadi seperti ini =TEXT(NOW();"DD MMMM YYYY")

Pada sel D15 atau kolom tipe pembayaran, kembali kita gunakan list dropdown, caranya sama dengan membuat list dropdown pada langkah membuat dropdown nama pembayar, bedanya hanya pada kolom Source isikan rumus =$I$6:$I$8

Melompat ke kolom D18, isikan rumus =H6&" "&TEXT(D14;"dd mmmm yyyy"). Dan hasl akhirnya adalah sebagaimana gambar ini


Melelahkan sekali membuat tutorial ini, semoga bermanfaat saja buat anda, untuk tahapan selanjutnya adalah menyimpan setiap pembayaran kedalam sheet Tbl_Data, karena tidak cukup ruang dan waktunya maka kita lanjutkan pada kesempatan yang akan datang

Membuat kwitansi pembayaran sendiri dengan excel
Baiklah kita lanjutkan kembali Membuat kwitansi pembayaran sendiri dengan excel , kita sudah sampai kebagian Print, cara print out cukup mudah ya,

Blok semua area form kwoitansi dari B2 sampai E21, lalu silahkan masuk ke tab Page Layout > Print area > Set Print area, untuk mereview tekan kombiinasi tombol CTRL+P

Sekarang masuk ke tab Developer > Insert > Insert Commondbutton (ActiveX controls). Buat dua tombol yatu tombol Simpan dan tombol Print


Masuk kejendela VBE, Insert Module > Masukan kode macro dibawah ini

Sub Print_Kwitansi()
Sheet1.PrintPreview
End Sub

Untuk tombol Simpan masukan kode maro dibawah ini juga, letakan saja tepat dibawah kode print


Sub Smpan_Kwitansi()
i = Sheet3.Cells(Sheet3.Rows.Count, "A").End(xlUp).Offset(0, 0).Row
Sheet3.Cells(i + 1, 1).Value = i - 1
Sheet3.Cells(i + 1, 2).Value = Sheet1.Range("D14")
Sheet3.Cells(i + 1, 3).Value = Sheet1.Range("D6").Text
Sheet3.Cells(i + 1, 4).Value = Sheet1.Range("D7")
Sheet3.Cells(i + 1, 5).Value = Sheet1.Range("D8")
Sheet3.Cells(i + 1, 6).Value = Sheet1.Range("D9")
Sheet3.Cells(i + 1, 7).Value = Sheet1.Range("D10")
Sheet3.Cells(i + 1, 8).Value = Sheet1.Range("D11")
Sheet3.Cells(i + 1, 9).Value = Sheet1.Range("D12")
Sheet3.Cells(i + 1, 10).Value = Sheet1.Range("D15")
Sheet3.Cells(i + 1, 11).Value = Sheet1.Range("D16")
End Sub


Masih dijendela VBE, beralih ke Mcrosoft Excel Object > Sheet1, double klik Sheet1 dan masukan kode maro dibawah ini

Private Sub CommandButton2_Click()
Print_Kwitansi
End Sub
Private Sub CommandButton1_Click()
Smpan_Kwitansi
End Sub


Koereksi Membuat kwitansi pembayaran sendiri dengan excel

Ada kesalahan pada Sheet Tbl_Data, untuk mengkoreksinya silahkan lakukan langkah langkah dibawah ini :

Pindahkan semua nilai baris A1 sampai K1 ke baris A2 sampai K2, atau dengan kata lain CUT baris ke 1 lalu pastekan ke baris 2


Masuk ke tab menu Formula, Name Manager > Klik name manager No pada kolom Refers to ganti rumusnya menjadi seperti ini

=OFFSET(Tbl_Data!$A$3;0;0;COUNTA(Tbl_Data!$A:$A)-1;10)


Simpan hasilnya dan silahkan dicoba , kalau menemukan bug dan kesalahan silahkan tanyakan pada kolom komentar, untuk file sampel masih belum bisa diunggah

Download File kwitansi pembayaran
Link download kwitansi pembayaran tersedia
Mau semua fle sampel silahkan klik > disini

Demikianlah Cara membuat kwitansi pembayaran sendiri dengan excel, semoga bermanfaat
No comments