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
 Hak Cipta

Post a Comment for "MEMBUAT APLIKASI KWITANSI DI EXCEL"