{"id":161,"date":"2025-09-15T08:48:30","date_gmt":"2025-09-15T08:48:30","guid":{"rendered":"https:\/\/www.warunginter.net\/2017\/08\/cara-membuat-kwitansi-dengan-menggunakan-microsoft-excel.html"},"modified":"2025-09-15T08:48:30","modified_gmt":"2025-09-15T08:48:30","slug":"cara-membuat-kwitansi-dengan-menggunakan-microsoft","status":"publish","type":"post","link":"https:\/\/flycai.warunginter.net\/?p=161","title":{"rendered":"Cara Membuat Kwitansi Dengan Menggunakan Microsoft Excel"},"content":{"rendered":"<div class=\"post-body entry-content\" id=\"post-body-1935673966848952874\">\n<div class=\"post-body-artikel\">\n<div class=\"separator\" style=\"clear: both; text-align: center;\">\n<\/div>\n<div class=\"separator\" style=\"clear: both; text-align: center;\">\n<\/div>\n<p>Mungkin kamu sedang mencari tutorial cara membuat kwitansi dengan menggunakan Microsoft Excel untuk melakukan transaksi pembayaran, mungkin ini artikel yang tepat untuk kamu.<\/p>\n<p>Disini admin akan menjelaskan secara terperinci langkah demi langkah, agar kamu dapat memahami program kwitansi ini nantinya. Oke perhatikan dengan benar tutorial berikut ini.<\/p>\n<p>1. Buka Microsoft Excel kamu, silahkan buat format kwitansi sesuka kamu, kemudian ubah sheet1 menjadi Kwitansi. Jika ingin membuat seperti admin juga tidak masalah karna admin menjelaskan rumus-rumusnya sesuai dengan format kwitansi yang admin buat.<\/p>\n<div class=\"separator\" style=\"clear: both; text-align: center;\">\n<a href=\"https:\/\/flycai.warunginter.net\/wp-content\/uploads\/2026\/06\/formatkwitansi.png\" imageanchor=\"1\" style=\"margin-left: 1em; margin-right: 1em;\"><img loading=\"lazy\" decoding=\"async\" border=\"0\" data-original-height=\"325\" data-original-width=\"947\" height=\"217\" src=\"https:\/\/flycai.warunginter.net\/wp-content\/uploads\/2026\/06\/formatkwitansi.png\" width=\"640\"\/><\/a><\/div>\n<p>\n2. Tambahkan Sheet lagi kemudian beri nama menjadi Data, buat format Data seperti yang admin buat, bila ingin berbeda tidak masalah. Jangan lupa di isi data nya oleh kamu.<\/p>\n<div class=\"separator\" style=\"clear: both; text-align: center;\">\n<a href=\"https:\/\/flycai.warunginter.net\/wp-content\/uploads\/2026\/06\/formatDatadimicrosoftexcel.png\" imageanchor=\"1\" style=\"margin-left: 1em; margin-right: 1em;\"><img loading=\"lazy\" decoding=\"async\" border=\"0\" data-original-height=\"780\" data-original-width=\"1400\" height=\"222\" src=\"https:\/\/flycai.warunginter.net\/wp-content\/uploads\/2026\/06\/formatDatadimicrosoftexcel.png\" width=\"400\"\/><\/a><\/div>\n<p>\n<b>Baca Juga<\/b>: <a href=\"https:\/\/www.warunginter.net\/2018\/12\/tutorial-cara-print-di-excel.html\" target=\"_blank\">Tutorial Cara Print di Excel Yang Baik dan Benar<\/a><\/p>\n<p>3. Jika sudah selesai membuat sheet Data, sekarang kita kembali lagi ke sheet Kwitansi. Kemudian isi No Kwitansi sesuai data yang sobat isi di sheet Data. Contoh Admin 0001.<\/p>\n<div class=\"separator\" style=\"clear: both; text-align: center;\">\n<a href=\"https:\/\/flycai.warunginter.net\/wp-content\/uploads\/2026\/06\/formatkwitansidimicrosoftexcel.png\" imageanchor=\"1\" style=\"margin-left: 1em; margin-right: 1em;\"><img loading=\"lazy\" decoding=\"async\" border=\"0\" data-original-height=\"593\" data-original-width=\"981\" height=\"241\" src=\"https:\/\/flycai.warunginter.net\/wp-content\/uploads\/2026\/06\/formatkwitansidimicrosoftexcel.png\" width=\"400\"\/><\/a><\/div>\n<p>4. Masukan Rumus &#8211; rumus pada field yang akan terisi otomatis ;<br \/>\n\u00a0\u00a0\u00a0 Tanggal : =VLOOKUP(D3;Data!A3:Data!F53;3)<br \/>\n\u00a0\u00a0\u00a0 Telah Terima Dari : =VLOOKUP(D3;Data!A3:Data!F53;6)<br \/>\n\u00a0\u00a0\u00a0 Terbilang : =terbilang(D11)&amp;&#8221; rupiah&#8221;<br \/>\n\u00a0\u00a0\u00a0 Untuk Keperluan : =VLOOKUP(D3;Data!A3:Data!F53;5)<br \/>\n\u00a0\u00a0\u00a0 Uang Sejumlah : =VLOOKUP(D3;Data!A3:Data!F53;4)<br \/>\n\u00a0\u00a0\u00a0 Yang Menerima : =VLOOKUP(D3;Data!A3:Data!F53;2)<br \/>\n\u00a0\u00a0\u00a0 <\/p>\n<blockquote class=\"tr_bq\"><p>\n<span style=\"color: red;\"><b>Note : <\/b><\/span><\/p>\n<ul>\n<li>Semua data diambil dari sheet Data, kecuali field Terbilang hanya memanggil field Uang Sejumlah.<\/li>\n<li>\u00a0=VLOOKUP(<span style=\"color: orange;\">D3<\/span>;<span style=\"color: blue;\">Data!<span style=\"color: blue;\">A3:Data!F53<\/span><\/span>;<span style=\"color: magenta;\">3<\/span>)<\/li>\n<li><span style=\"color: orange;\">D3<\/span> pada rumus diatas diambil dari isi data pada field No Kwitansi.<\/li>\n<li><span style=\"color: blue;\">Data!<span style=\"color: blue;\">A3:Data!F53 <\/span><\/span>diambil dari banyaknya row dan colom yang terpakai pada sheet Data<\/li>\n<li><span style=\"color: magenta;\">3<\/span> Diambil dari tata letak Tanggal yang ada di sheet Data.<\/li>\n<\/ul>\n<\/blockquote>\n<p>\nSebenarnya sampai sini kita sudah selesai, namun karena Microsoft Excel tidak support dengan rumus terbilang maka kita harus membuat scriptnya terlebih dahulu di Visual Basic.<\/p>\n<p><b>Baca Juga<\/b>: <a href=\"http:\/\/www.warunginter.net\/2017\/08\/pengertian-rumus-terbilang-dan-cara-menampilkan-tab-developer.html\">Cara Menampilkan Tab Developer di Microsoft Excel dan Pengertian Rumus Terbilang<\/a><\/p>\n<p>5. Buka Tab Developer &gt; pilih Visual Basic<\/p>\n<div class=\"separator\" style=\"clear: both; text-align: center;\">\n<a href=\"https:\/\/flycai.warunginter.net\/wp-content\/uploads\/2026\/06\/tabdeveloperdiexcel.png\" imageanchor=\"1\" style=\"margin-left: 1em; margin-right: 1em;\"><img loading=\"lazy\" decoding=\"async\" border=\"0\" data-original-height=\"577\" data-original-width=\"971\" height=\"237\" src=\"https:\/\/flycai.warunginter.net\/wp-content\/uploads\/2026\/06\/tabdeveloperdiexcel.png\" width=\"400\"\/><\/a><\/div>\n<p>\n6. Nah sekarang kita Tambahkan script Terbilang, caranya klik insert &gt; pilih module &gt; Copy-paste script dibawah ini di module tersebut.<\/p>\n<pre>'Fungsi Terbilang dengan VBA untuk MS Office\n\n'Fungsi penterjemahan masing-masing angka\nPrivate Function KeKata(Nomor)\nTrjKata = Array(\"\", \"satu\", \"dua\", \"tiga\", \"empat\", \"lima\", \"enam\", \"tujuh\", \"delapan\", \"sembilan\")\nKeKata = TrjKata(Nomor)\nEnd Function\n\n'Mulai penulisan Fungsi Terbilang\nPublic Function terbilang(Nilai_Angka, Optional Style = 4, Optional Satuan = \"\")\nAngka = Fix(Abs(Nilai_Angka))\n'Desimal dibelakang koma\ndes1 = Mid(Abs(Nilai_Angka), Len(Angka) + 2, 1)\ndes2 = Mid(Abs(Nilai_Angka), Len(Angka) + 3, 1)\n\nIf des2 = \"\" Then\n\u00a0\u00a0\u00a0 If des1 = \"\" Or des1 = \"0\" Then\n\u00a0\u00a0\u00a0 Koma = \"\"\n\u00a0\u00a0\u00a0 Else\n\u00a0\u00a0\u00a0 Koma = \" koma \" &amp; KeKata(des1)\n\u00a0\u00a0\u00a0 End If\nElseIf des2 = \"0\" Then\n\u00a0\u00a0\u00a0 If des1 = \"0\" Then\n\u00a0\u00a0\u00a0 Koma = \"\"\n\u00a0\u00a0\u00a0 ElseIf des1 = \"1\" Then\n\u00a0\u00a0\u00a0 Koma = \" koma sepuluh\"\n\u00a0\u00a0\u00a0 Else\n\u00a0\u00a0\u00a0 Koma = \" koma \" &amp; KeKata(des1) &amp; \" puluh\"\n\u00a0\u00a0\u00a0 End If\nElse\n\u00a0\u00a0\u00a0 If des1 = \"0\" Then\n\u00a0\u00a0\u00a0 Koma = \" koma nol \" &amp; KeKata(des2)\n\u00a0\u00a0\u00a0 ElseIf des1 = \"1\" Then\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 If des2 = \"1\" Then\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Koma = \" koma sebelas\"\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Else\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Koma = \" koma \" &amp; KeKata(des2) &amp; \" belas\"\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 End If\n\u00a0\u00a0\u00a0 Else\n\u00a0\u00a0\u00a0 Koma = \" koma \" &amp; KeKata(des1) &amp; \" puluh \" &amp; KeKata(des2)\n\u00a0\u00a0\u00a0 End If\nEnd If\n'Misahin Angka\nNo1 = Left(Right(Angka, 1), 1)\nNo2 = Left(Right(Angka, 2), 1)\nNo3 = Left(Right(Angka, 3), 1)\nNo4 = Left(Right(Angka, 4), 1)\nNo5 = Left(Right(Angka, 5), 1)\nNo6 = Left(Right(Angka, 6), 1)\nNo7 = Left(Right(Angka, 7), 1)\nNo8 = Left(Right(Angka, 8), 1)\nNo9 = Left(Right(Angka, 9), 1)\nNo10 = Left(Right(Angka, 10), 1)\nNo11 = Left(Right(Angka, 11), 1)\nNo12 = Left(Right(Angka, 12), 1)\nNo13 = Left(Right(Angka, 13), 1)\nNo14 = Left(Right(Angka, 14), 1)\nNo15 = Left(Right(Angka, 15), 1)\n'Satuan\nIf Len(Angka) &gt;= 1 Then\n\u00a0\u00a0\u00a0 If Len(Angka) = 1 And No1 = 1 Then\n\u00a0\u00a0\u00a0 Nomor1 = \"satu\"\n\u00a0\u00a0\u00a0 ElseIf Len(Angka) = 1 And No1 = 0 Then\n\u00a0\u00a0\u00a0 Nomor1 = \"Nol\"\n\u00a0\u00a0\u00a0 ElseIf No2 = \"1\" Then\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 If No1 = \"1\" Then\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Nomor1 = \"sebelas\"\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ElseIf No1 = \"0\" Then\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Nomor1 = \"sepuluh\"\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Else\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Nomor1 = KeKata(No1) &amp; \" belas\"\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 End If\n\u00a0\u00a0\u00a0 \n\u00a0\u00a0\u00a0 Else\n\u00a0\u00a0\u00a0 Nomor1 = KeKata(No1)\n\u00a0\u00a0\u00a0 End If\nElse\nNomor1 = \"\"\nEnd If\n\n'Puluhan\nIf Len(Angka) &gt;= 2 Then\n\u00a0\u00a0\u00a0 If No2 = 1 Or No2 = \"0\" Then\n\u00a0\u00a0\u00a0 Nomor2 = \"\"\n\u00a0\u00a0\u00a0 Else\n\u00a0\u00a0\u00a0 Nomor2 = KeKata(No2) &amp; \" puluh \"\n\u00a0\u00a0\u00a0 End If\nElse\nNomor2 = \"\"\nEnd If\n'Ratusan\nIf Len(Angka) &gt;= 3 Then\n\u00a0\u00a0\u00a0 If No3 = \"1\" Then\n\u00a0\u00a0\u00a0 Nomor3 = \"seratus \"\n\u00a0\u00a0\u00a0 ElseIf No3 = \"0\" Then\n\u00a0\u00a0\u00a0 Nomor3 = \"\"\n\u00a0\u00a0\u00a0 Else\n\u00a0\u00a0\u00a0 Nomor3 = KeKata(No3) &amp; \" ratus \"\n\u00a0\u00a0\u00a0 End If\nElse\nNomor3 = \"\"\nEnd If\n'Ribuan\nIf Len(Angka) &gt;= 4 Then\n\u00a0\u00a0\u00a0 If No6 = \"0\" And No5 = \"0\" And No4 = \"0\" Then\n\u00a0\u00a0\u00a0 Nomor4 = \"\"\n\u00a0\u00a0\u00a0 ElseIf (No4 = \"1\" And Len(Angka) = 4) Or (No6 = \"0\" And No5 = \"0\" And No4 = \"1\") Then\n\u00a0\u00a0\u00a0 Nomor4 = \"seribu \"\n\u00a0\u00a0\u00a0 ElseIf No5 = \"1\" Then\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 If No4 = \"1\" Then\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Nomor4 = \"sebelas ribu \"\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ElseIf No4 = \"0\" Then\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Nomor4 = \"sepuluh ribu \"\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Else\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Nomor4 = KeKata(No4) &amp; \" belas ribu \"\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 End If\n\n\u00a0\u00a0\u00a0 Else\n\u00a0\u00a0\u00a0 Nomor4 = KeKata(No4) &amp; \" ribu \"\n\u00a0\u00a0\u00a0 End If\nElse\nNomor4 = \"\"\nEnd If\n'Puluhan ribu\nIf Len(Angka) &gt;= 5 Then\n\u00a0\u00a0\u00a0 If No5 = \"1\" Or No5 = \"0\" Then\n\u00a0\u00a0\u00a0 Nomor5 = \"\"\n\u00a0\u00a0\u00a0 Else\n\u00a0\u00a0\u00a0 Nomor5 = KeKata(No5) &amp; \" puluh \"\n\u00a0\u00a0\u00a0 End If\nElse\nNomor5 = \"\"\nEnd If\n'Ratusan Ribu\nIf Len(Angka) &gt;= 6 Then\n\u00a0\u00a0\u00a0 If No6 = \"1\" Then\n\u00a0\u00a0\u00a0 Nomor6 = \"seratus \"\n\u00a0\u00a0\u00a0 ElseIf No6 = \"0\" Then\n\u00a0\u00a0\u00a0 Nomor6 = \"\"\n\u00a0\u00a0\u00a0 Else\n\u00a0\u00a0\u00a0 Nomor6 = KeKata(No6) &amp; \" ratus \"\n\u00a0\u00a0\u00a0 End If\nElse\nNomor6 = \"\"\nEnd If\n'Jutaan\nIf Len(Angka) &gt;= 7 Then\n\u00a0\u00a0\u00a0 If No9 = \"0\" And No8 = \"0\" And No7 = \"0\" Then\n\u00a0\u00a0\u00a0 Nomor7 = \"\"\n\u00a0\u00a0\u00a0 ElseIf No7 = \"1\" And Len(Angka) = 7 Then\n\u00a0\u00a0\u00a0 Nomor7 = \"satu juta \"\n\u00a0\u00a0\u00a0 ElseIf No8 = \"1\" Then\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 If No7 = \"1\" Then\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Nomor7 = \"sebelas juta \"\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ElseIf No7 = \"0\" Then\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Nomor7 = \"sepuluh juta \"\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Else\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Nomor7 = KeKata(No7) &amp; \" belas juta \"\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 End If\n\n\u00a0\u00a0\u00a0 Else\n\u00a0\u00a0\u00a0 Nomor7 = KeKata(No7) &amp; \" juta \"\n\u00a0\u00a0\u00a0 End If\nElse\nNomor7 = \"\"\nEnd If\n'Puluhan juta\nIf Len(Angka) &gt;= 8 Then\n\u00a0\u00a0\u00a0 If No8 = \"1\" Or No8 = \"0\" Then\n\u00a0\u00a0\u00a0 Nomor8 = \"\"\n\u00a0\u00a0\u00a0 Else\n\u00a0\u00a0\u00a0 Nomor8 = KeKata(No8) &amp; \" puluh \"\n\u00a0\u00a0\u00a0 End If\nElse\nNomor8 = \"\"\nEnd If\n'Ratusan juta\nIf Len(Angka) &gt;= 9 Then\n\u00a0\u00a0\u00a0 If No9 = \"1\" Then\n\u00a0\u00a0\u00a0 Nomor9 = \"seratus \"\n\u00a0\u00a0\u00a0 ElseIf No9 = \"0\" Then\n\u00a0\u00a0\u00a0 Nomor9 = \"\"\n\u00a0\u00a0\u00a0 Else\n\u00a0\u00a0\u00a0 Nomor9 = KeKata(No9) &amp; \" ratus \"\n\u00a0\u00a0\u00a0 End If\nElse\nNomor9 = \"\"\nEnd If\n'Milyar\nIf Len(Angka) &gt;= 10 Then\n\u00a0\u00a0\u00a0 If No12 = \"0\" And No11 = \"0\" And No10 = \"0\" Then\n\u00a0\u00a0\u00a0 Nomor10 = \"\"\n\u00a0\u00a0\u00a0 ElseIf No10 = \"1\" And Len(Angka) = 10 Then\n\u00a0\u00a0\u00a0 Nomor10 = \"satu milyar \"\n\u00a0\u00a0\u00a0 ElseIf No11 = \"1\" Then\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 If No10 = \"1\" Then\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Nomor10 = \"sebelas milyar \"\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ElseIf No10 = \"0\" Then\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Nomor10 = \"sepuluh milyar \"\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Else\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Nomor10 = KeKata(No10) &amp; \" belas milyar \"\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 End If\n\n\u00a0\u00a0\u00a0 Else\n\u00a0\u00a0\u00a0 Nomor10 = KeKata(No10) &amp; \" milyar \"\n\u00a0\u00a0\u00a0 End If\nElse\nNomor10 = \"\"\nEnd If\n'Puluhan Milyar\nIf Len(Angka) &gt;= 11 Then\n\u00a0\u00a0\u00a0 If No11 = \"1\" Or No11 = \"0\" Then\n\u00a0\u00a0\u00a0 Nomor11 = \"\"\n\u00a0\u00a0\u00a0 Else\n\u00a0\u00a0\u00a0 Nomor11 = KeKata(No11) &amp; \" puluh \"\n\u00a0\u00a0\u00a0 End If\nElse\nNomor11 = \"\"\nEnd If\n'Ratusan Milyar\nIf Len(Angka) &gt;= 12 Then\n\u00a0\u00a0\u00a0 If No12 = \"1\" Then\n\u00a0\u00a0\u00a0 Nomor12 = \"seratus \"\n\u00a0\u00a0\u00a0 ElseIf No12 = \"0\" Then\n\u00a0\u00a0\u00a0 Nomor12 = \"\"\n\u00a0\u00a0\u00a0 Else\n\u00a0\u00a0\u00a0 Nomor12 = KeKata(No12) &amp; \" ratus \"\n\u00a0\u00a0\u00a0 End If\nElse\nNomor12 = \"\"\nEnd If\n'Triliun\nIf Len(Angka) &gt;= 13 Then\n\u00a0\u00a0\u00a0 If No15 = \"0\" And No14 = \"0\" And No13 = \"0\" Then\n\u00a0\u00a0\u00a0 Nomor13 = \"\"\n\u00a0\u00a0\u00a0 ElseIf No13 = \"1\" And Len(Angka) = 13 Then\n\u00a0\u00a0\u00a0 Nomor13 = \"satu triliun \"\n\u00a0\u00a0\u00a0 ElseIf No14 = \"1\" Then\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 If No13 = \"1\" Then\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Nomor13 = \"sebelas triliun \"\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ElseIf No13 = \"0\" Then\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Nomor13 = \"sepuluh triliun \"\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Else\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Nomor13 = KeKata(No13) &amp; \" belas triliun \"\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 End If\n\n\u00a0\u00a0\u00a0 Else\n\u00a0\u00a0\u00a0 Nomor13 = KeKata(No13) &amp; \" triliun \"\n\u00a0\u00a0\u00a0 End If\nElse\nNomor13 = \"\"\nEnd If\n'Puluhan triliun\nIf Len(Angka) &gt;= 14 Then\n\u00a0\u00a0\u00a0 If No14 = \"1\" Or No14 = \"0\" Then\n\u00a0\u00a0\u00a0 Nomor14 = \"\"\n\u00a0\u00a0\u00a0 Else\n\u00a0\u00a0\u00a0 Nomor14 = KeKata(No14) &amp; \" puluh \"\n\u00a0\u00a0\u00a0 End If\nElse\nNomor14 = \"\"\nEnd If\n'Ratusan triliun\nIf Len(Angka) &gt;= 15 Then\n\u00a0\u00a0\u00a0 If No15 = \"1\" Then\n\u00a0\u00a0\u00a0 Nomor15 = \"seratus \"\n\u00a0\u00a0\u00a0 ElseIf No15 = \"0\" Then\n\u00a0\u00a0\u00a0 Nomor15 = \"\"\n\u00a0\u00a0\u00a0 Else\n\u00a0\u00a0\u00a0 Nomor15 = KeKata(No15) &amp; \" ratus \"\n\u00a0\u00a0\u00a0 End If\nElse\nNomor15 = \"\"\nEnd If\n\nIf Len(Angka) &gt; 15 Then\nbilang = \"Digit Angka Terlalu Banyak\"\nElse\n\u00a0\u00a0\u00a0 If IsNull(Nilai_Angka) Then\n\u00a0\u00a0\u00a0 bilang = \"\"\n\u00a0\u00a0\u00a0 ElseIf Nilai_Angka &lt; 0 Then\n\u00a0\u00a0\u00a0 bilang = \"minus \" &amp; Trim(Nomor15 &amp; Nomor14 &amp; Nomor13 &amp; Nomor12 &amp; Nomor11 &amp; Nomor10 &amp; Nomor9 &amp; Nomor8 &amp; Nomor7 _\n\u00a0\u00a0\u00a0 &amp; Nomor6 &amp; Nomor5 &amp; Nomor4 &amp; Nomor3 &amp; Nomor2 &amp; Nomor1 &amp; Koma &amp; \" \" &amp; Satuan)\n\u00a0\u00a0\u00a0 Else\n\u00a0\u00a0\u00a0 bilang = Trim(Nomor15 &amp; Nomor14 &amp; Nomor13 &amp; Nomor12 &amp; Nomor11 &amp; Nomor10 &amp; Nomor9 &amp; Nomor8 &amp; Nomor7 _\n\u00a0\u00a0\u00a0 &amp; Nomor6 &amp; Nomor5 &amp; Nomor4 &amp; Nomor3 &amp; Nomor2 &amp; Nomor1 &amp; Koma &amp; \" \" &amp; Satuan)\n\u00a0\u00a0\u00a0 End If\nEnd If\nIf Style = 4 Then\nterbilang = StrConv(Left(bilang, 1), 1) &amp; StrConv(Mid(bilang, 2, 1000), 2)\nElse\nterbilang = StrConv(bilang, Style)\nEnd If\nterbilang = Replace(terbilang, \"\u00a0 \", \" \", 1, 1000, vbTextCompare)\n\nEnd Function\n\nSub Macro2()\n'\n' Macro2 Macro\n'\n\n'\n\u00a0\u00a0\u00a0 Application.Goto Reference:=\"Macro2\"\nEnd Sub\n<\/pre>\n<p>\n7. Jika sudah, save dan tutup Visual Basic nya. Kemudian kembali lagi ke Microsoft Excel dan buka sheet Kwitansi tadi apakah sudah tampil Terbilang nya, jika belum coba klik data terbilangnya setelah hanya tekan Enter.<\/p>\n<p>Oke sekian informasi cara membuat Kwitansi menggunakan Microsoft Excel, semoga artikel ini dapat membantu kamu yang sedang membutuhkan informasi ini. Jika masih ada yang kurang paham silahkan kamu bertanya di kolom komentar.\n<\/p><\/div>\n<\/div>\n","protected":false},"excerpt":{"rendered":"<p>Mungkin kamu sedang mencari tutorial cara membuat kwitansi dengan menggunakan Microsoft Excel untuk melakukan transaksi pembayaran, mungkin ini artikel yang tepat untuk kamu. Disini admin akan menjelaskan secara terperinci langkah&#8230; <a class=\"read-more-link\" href=\"https:\/\/flycai.warunginter.net\/?p=161\">Read more &raquo;<\/a><\/p>\n","protected":false},"author":1,"featured_media":2042,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[64],"tags":[],"class_list":["post-161","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-msoffice"],"_links":{"self":[{"href":"https:\/\/flycai.warunginter.net\/index.php?rest_route=\/wp\/v2\/posts\/161","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/flycai.warunginter.net\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/flycai.warunginter.net\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/flycai.warunginter.net\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/flycai.warunginter.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=161"}],"version-history":[{"count":1,"href":"https:\/\/flycai.warunginter.net\/index.php?rest_route=\/wp\/v2\/posts\/161\/revisions"}],"predecessor-version":[{"id":1563,"href":"https:\/\/flycai.warunginter.net\/index.php?rest_route=\/wp\/v2\/posts\/161\/revisions\/1563"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/flycai.warunginter.net\/index.php?rest_route=\/wp\/v2\/media\/2042"}],"wp:attachment":[{"href":"https:\/\/flycai.warunginter.net\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=161"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/flycai.warunginter.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=161"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/flycai.warunginter.net\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=161"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}