MEMBUAT APLIKASI KWITANSI DI EXCEL

CARA MEMBUAT APLIKASI KWITANSI BERBASIS MICROROFT EXCEL

Memberikan hasil yang maksimal kepada pengunjung adalah salah satu Prioritas kami, sehingga luangkan waktu beberapa menit untuk membaca artikel ini secara cermat, karena ini akan singkat dan detail.

APA ITU KWITANSI

Kwitansi adalah salah satu bukti fisik transaksi yang sah, yang dikeluarkan oleh pihak pertama kepada pihak kedua, dan ini biasanya terjadi di sebuah instansi atau perkantoran dll.

MENGAPA KITA PERLU MENJADIKAN KWITANSI BERBASIS APLIKASI ?

Jika Anda mempunyai data yang harus ada kwitansinya dan Anda melakukan dengan cara manual, maka ini akan sangat merepotkan Anda, apalagi Anda mempunyai data sampai ribuan bahkan puluhan ribu..

Anda dapat membuat pekerjaan itu dengan sangat ringan dan menyingkat waktu, dengan cara membuat sebuah Aplikasi Kwitansi yang berbasis microsoft excel.

Karena Anda cukup 1 klik maka sistem akan berjalan sesuai intruksi yang Anda berikan.

Mau tau cara membuatnya ??

Langsung praktikkan yaa...

CARA MEMBUAT APLIKASI KWITANSI SEKOLAH SEDERHANA

1. Buka microsoft excel Anda dan buatlah data seperti dibawah ini

2. Berikutnya, Buat format kwitansi seperti dibawah ini

3. Salin Formula dibawah ini kedalam cell F3

="No : "&IF($I$1="";"";VLOOKUP($I$1;data;1;0))

4. Salin Formula dibawah ini kedalam cell D5

=IF($I$1="";"";VLOOKUP($I$1;data;2;0))

5. Salin Formula dibawah ini kedalam cell D6

=IF(D11="";"";IF(D11=0;"nol";IF(D11<0;"minus ";"")&SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(IF(--MID(TEXT(ABS(D11);"000000000000000");1;3)=0;"";MID(TEXT(ABS(D11);"000000000000000");1;1)&" ratus "&MID(TEXT(ABS(D11);"000000000000000");2;1)&" puluh "&MID(TEXT(ABS(D11);"000000000000000");3;1)&" trilyun ")&IF(--MID(TEXT(ABS(D11);"000000000000000");4;3)=0;"";MID(TEXT(ABS(D11);"000000000000000");4;1)&" ratus "&MID(TEXT(ABS(D11);"000000000000000");5;1)&" puluh "&MID(TEXT(ABS(D11);"000000000000000");6;1)&" milyar ")&IF(--MID(TEXT(ABS(D11);"000000000000000");7;3)=0;"";MID(TEXT(ABS(D11);"000000000000000");7;1)&" ratus "&MID(TEXT(ABS(D11);"000000000000000");8;1)&" puluh "&MID(TEXT(ABS(D11);"000000000000000");9;1)&" juta ")&IF(--MID(TEXT(ABS(D11);"000000000000000");10;3)=0;"";IF(--MID(TEXT(ABS(D11);"000000000000000");10;3)=1;"*";MID(TEXT(ABS(D11);"000000000000000");10;1)&" ratus "&MID(TEXT(ABS(D11);"000000000000000");11;1)&" puluh ")&MID(TEXT(ABS(D11);"000000000000000");12;1)&" ribu ")&IF(--MID(TEXT(ABS(D11);"000000000000000");13;3)=0;"";MID(TEXT(ABS(D11);"000000000000000");13;1)&" ratus "&MID(TEXT(ABS(D11);"000000000000000");14;1)&" puluh "&MID(TEXT(ABS(D11);"000000000000000");15;1));1;"satu");2;"dua");3;"tiga");4;"empat");5;"lima");6;"enam");7;"tujuh");8;"delapan");9;"sembilan");"0 ratus";"");"0 puluh";"");"satu puluh 0";"sepuluh");"satu puluh satu";"sebelas");"satu puluh dua";"duabelas");"satu puluh tiga";"tigabelas");"satu puluh empat";"empatbelas");"satu puluh lima";"limabelas");"satu puluh enam";"enambelas");"satu puluh tujuh";"tujuhbelas");"satu puluh delapan";"delapanbelas");"satu puluh sembilan";"sembilanbelas");"satu ratus";"seratus");"*satu ribu";"seribu");0;""));" ";" ")))

6. Salin Formula dibawah ini kedalam cell D7

=IF($I$1="";"";VLOOKUP($I$1;data;3;0))

7. Salin Formula dibawah ini kedalam cell D11

=IF($I$1="";"";VLOOKUP($I$1;data;5;0))

8. Salin Formula dibawah ini kedalam cell F11

="Tumbrasanom, "&IF($I$1="";"";VLOOKUP($I$1;data;6;0))

9. Salin Formula dibawah ini kedalam cell F15

=IF($I$1="";"---------------";VLOOKUP($I$1;data;7;0))

10. Kemudian pada tombol CommandButton1, Klik 2x dan masukan Kode Macro dibawah ini

Dim Awal, Akhir As Integer
Awal = Range("I2").Value
Akhir = Range("I3").Value

If Awal <= Akhir And Awal >= 1 Then
Application.ScreenUpdating = False
For i = Awal To Akhir
With Sheets("kwitansi")
.Range("I1").Value = i
.PrintOut
End With
Next i
Else
Pesan = MsgBox("Cek lagi Nomor yang akan dicetak...!!!!", vbOKCancel, "Error Cetak")
Range("I2:I3").Select
End If

11. Untuk Format Number Tanggal Kwitansi, silahkan ganti menjadi Text. Lihat gambar dibawah ini

12. Simpan dengan extensi .xlsm atau .xlsb dan selesai deh

Jika Anda melakukan langkah-langkah diatas dengan benar dan penempatan Formula dan Kode Macro dengan benar, maka sistem akan berjalan sesuai intruksi yang Anda berikan diatas.

INTI ARTIKEL

1. Aplikasi Kwitansi perantara mempermudah dalam pekerjaan kita

2. Belajar Microsoft Excel dapat di perlukan dalam perkantoran dan lain-lain
3. Anda dapat belajar Excel di blog ini, karena kami kebanyakan akan menyertakan contoh file pembelajaran untuk pemahaman yang mendalam.

PRIORITAS KAMI

Kami sangat memperhatikan hasil maksimal dan kepuasan bagi pengunjung sehingga selain artikel diatas, kami juga menyediakan sampel file gratis untuk pemahaman yang mendalam.

Download File

Apabila Anda merasa bahwa artikel ini bagus dan layak untuk dibagikan maka silahkan share ke sosial media yang Anda punya, bisa lewat Facebook, Google Plus, Whatsapp, Telegram dll.

Link Artikel Ini :
https://www.mtsbmtumbrasanom.id/2019/02/membuat-aplikasi-kwitansi-di-excel.html

Kami Selalu Berusaha Memberikan Yang Terbaik dan Original Untuk Anda

Terimakasih atas kunjungannya dan menjadi tamu kami sehingga.

Jabat Erat@Hak Cipta 2015