Membuat Terbilang Microsoft Excel

CARA MEMBUAT TERBILANG PADA MICROSOFT EXCEL

 

Salah satu kelebihan dari Microsoft Excel adalah dalam kegunaannya untuk menyelesaikan masalah perhitungan, baik penjumlahan, pengurangan, perkalian, pembagian maupun operasi arimatik lainnya, berbeda dengan program pengolah kata yang lebih menonjolkan rangkalian kata, kalimat maupun rangkaian kalimat dalam paragraf.

Namun dalam prakteknya terkadang kita memerlukan rangkaian kata untuk menjelaskan hasil dari perhitungan yang kita lakukan melalui Microsoft Excel contohnya adalah kalimat “Terbilang”, kalimat terbilang ini banyak digunakan dalam pembuatan kuitansi atau terbilang dalam pembuatan Rekapitulasi Rencana Anggaran (Biaya) untuk menterjemahkan angka hasil perhitungan ke dalam kalimat.

Umumnya sudah banyak literatur ataupun program dengan menggunakan Microsoft Ecxel untuk membuat terbilang dengan menggunakan fasiltas tambahan dalam Microsoft Execl yaitu Fasilitas Macro for Excel berbasis Visula Basic.

Bagi yang belum femilear atau belum terbiasa menggunakan fasiltas Macro for Excel ini tentunya akan menghadapi banyak kendala dalam pengoperasiannya, karena tentunya lebih banyak hanya menggunakan fasiltas fungsi-fungsi Excel secara umum, berikut ini kita akan membuat step by step bagaimana membuat terbilang dengan menggunakan fungsi-fungsi yang dimiliki oleh Excel.

Fungsi-fungsi Excel yang akan digunakan adalah antara lain adalah fungsi :

Ø  VLOOKUP(lookup_value, table_array, col_index_num, [range_lookup])

Ø  IF(logical_test, [value_if_true], [value_if_false])

Ø  RIGHT(text,[num_chars])

Ø  LEFT(text, [num_chars])

Ø  VALUE(text)

Ø  LEN(text)

Langkah pertama kita secara umum terlebih dahulu tentunya membuka Program Microsoft Excel atau bisa juga mengerjakannya pada Sheet lembar kerja yang sudah kita buat, contohnya kita membuat terbilang pada Sheet1 dengan langkah-langkah sebagai berikut :

1.         Pada lembar kerja Sheet 1 area A1 : B20 kita ketik angka 0 sampai dengan 19 berikut terbilangnya; Pada kolom A1 sd A20 ketik angka 0 sd 19 sedangkan  pada Kolom B1 sd B20 ketik terbilangnya, seperti contoh berikut ini :

A

B

1

0

2

1

Satu

3

2

Dua

4

3

Tiga

5

4

Empat

6

5

Lima

7

6

Enam

8

7

Tujuh

9

8

Delapan

10

9

Sembilan

11

10

Sepuluh

12

11

Sebelas

13

12

Dua Belas

14

13

Tiga Belas

15

14

Empat Belas

16

15

Lima Belas

17

16

Enam Belas

18

17

Tujuh Belas

19

18

Delapan Belas

20

19

Sembilan Belas

2.         Selanjutnya pada Cell D4 ketik angka antara 1 sd 19, kita ketik saja 19  dan pada Cell E4 ketik formula sebagai berikut :

=VLOOKUP(D4;$A$1:$B$20;2;0)

Fungsinya untuk menterjemahkan angka pada Cell D4 (0-19) menjadi terbilang pada Cell E4

Misal pada Cell D4 kita ketik 19 maka pada Cell E4 akan terbaca Sembila Belas

3.         Selanjunya pada pada Cell D5 ketik angka 20 dan copy Cell E4 ke Cell E5 amaka akan terbaca : #N/A (kode error); maka padak Cell E5 diketik sebagai berikut :

=IF(D6>19;VLOOKUP(VALUE(LEFT(D6;1));$A$1:$B$20;2;0)&” Puluh “&VLOOKUP(VALUE(RIGHT(D6;1));$A$1:$B$20;2;0);VLOOKUP(D6;$A$1:$B$20;2;0))

Fungsinya untuk menterjemahkan angka pada Cell D6 (0-99) menjadi terbilang pada Cell D6

Misal pada Cell D6 kita ketik 99 maka pada Cell E6 akan terbaca Sembilan Puluh Sembilan.

4.         Selanjutnya pada pada Cell D7 ketik angka 100 dan copy Cell E6 ke Cell E7 amaka akan terbaca : Satu Puluh (seharusnya seratus); maka padak Cell E7 diketik sebagai berikut :

IF(D8>99;IF(VALUE(LEFT(D8;1))=1;”Seratus “;VLOOKUP(VALUE(LEFT(D8;1));$A$1:$B$20;2;0)&” Ratus “)&” “&IF(VALUE(RIGHT(D8;2))>19;VLOOKUP(VALUE(LEFT(VALUE(RIGHT(D8;2));1));$A$1:$B$20;2;0)&” Puluh “&VLOOKUP(VALUE(RIGHT(VALUE(RIGHT(D8;2));1));$A$1:$B$20;2;0);VLOOKUP(VALUE(RIGHT(D8;2));$A$1:$B$20;2;0));IF(D8>19;VLOOKUP(VALUE(LEFT(D8;1));$A$1:$B$20;2;0)&” Puluh “&VLOOKUP(VALUE(RIGHT(D8;1));$A$1:$B$20;2;0);VLOOKUP(D8;$A$1:$B$20;2;0)))

Fungsinya untuk menterjemahkan angka pada Cell D7 (0-999) menjadi terbilang pada Cell E7

Misal pada Cell D7 kita ketik 999 maka pada Cell E4 akan terbaca Sembilan Ratus Sembilan Puluh Sembilan.

5.         Demikian seterusnya sehingga sampai ke perhitungan 999 Milyar Rupiah, berikur formula untuk terbilang sampai dengan 999 Milyar Rupiah pada Sheet TblM

Isi pada Cell D1 dengan angka antara 0 sampai 999.999.999.999 makan akan terbaca terbilang pada Cell E1

=IF(F2=0;”(Terbilang)”;IF(F2>999999999999;”Terlalu Besar”;IF(F2>999999999;IF(VALUE(LEFT(F2;(LEN(F2)-9)))=1;”Semilyar “;IF(VALUE(LEFT(F2;(LEN(F2)-9)))>99;IF(VALUE(LEFT(VALUE(LEFT(F2;(LEN(F2)-9)));1))=1;”Seratus “;VLOOKUP(VALUE(LEFT(VALUE(LEFT(F2;(LEN(F2)-9)));1));$B$1:$C$20;2;0)&” Ratus”)&” “&IF(VALUE(RIGHT(VALUE(LEFT(F2;(LEN(F2)-9)));2))>19;VLOOKUP(VALUE(LEFT(VALUE(RIGHT(VALUE(LEFT(F2;(LEN(F2)-9)));2));1));$B$1:$C$20;2;0)&” Puluh “&VLOOKUP(VALUE(RIGHT(VALUE(RIGHT(VALUE(LEFT(F2;(LEN(F2)-9)));2));1));$B$1:$C$20;2;0);VLOOKUP(VALUE(RIGHT(VALUE(LEFT(F2;(LEN(F2)-9)));2));$B$1:$C$20;2;0));IF(VALUE(LEFT(F2;(LEN(F2)-9)))>19;VLOOKUP(VALUE(LEFT(VALUE(LEFT(F2;(LEN(F2)-9)));1));$B$1:$C$20;2;0)&” Puluh “&VLOOKUP(VALUE(RIGHT(VALUE(LEFT(F2;(LEN(F2)-9)));1));$B$1:$C$20;2;0);VLOOKUP(VALUE(LEFT(F2;(LEN(F2)-9)));$B$1:$C$20;2;0)))&” Milyar “)&” “&IF(VALUE(LEFT(RIGHT(F2;9);3))=0;””;IF(VALUE(LEFT(RIGHT(F2;9);3))>99;IF(VALUE(LEFT(VALUE(LEFT(RIGHT(F2;9);3));1))=1;”Seratus “;VLOOKUP(VALUE(LEFT(VALUE(LEFT(RIGHT(F2;9);3));1));$B$1:$C$20;2;0)&” Ratus”)&” “&IF(VALUE(RIGHT(VALUE(LEFT(RIGHT(F2;9);3));2))>19;VLOOKUP(VALUE(LEFT(VALUE(RIGHT(VALUE(LEFT(RIGHT(F2;9);3));2));1));$B$1:$C$20;2;0)&” Puluh “&VLOOKUP(VALUE(RIGHT(VALUE(RIGHT(VALUE(LEFT(RIGHT(F2;9);3));2));1));$B$1:$C$20;2;0);VLOOKUP(VALUE(RIGHT(VALUE(LEFT(RIGHT(F2;9);3));2));$B$1:$C$20;2;0));IF(VALUE(LEFT(RIGHT(F2;9);3))>19;VLOOKUP(VALUE(LEFT(VALUE(LEFT(RIGHT(F2;9);3));1));$B$1:$C$20;2;0)&” Puluh “&VLOOKUP(VALUE(RIGHT(VALUE(LEFT(RIGHT(F2;9);3));1));$B$1:$C$20;2;0);VLOOKUP(VALUE(LEFT(RIGHT(F2;9);3));$B$1:$C$20;2;0)))&” Juta “)&” “&IF(VALUE(LEFT(RIGHT(F2;6);3))=0;””;IF(VALUE(LEFT(RIGHT(F2;6);3))>99;IF(VALUE(LEFT(VALUE(LEFT(RIGHT(F2;6);3));1))=1;”Seratus “;VLOOKUP(VALUE(LEFT(VALUE(LEFT(RIGHT(F2;6);3));1));$B$1:$C$20;2;0)&” Ratus”)&” “&IF(VALUE(RIGHT(VALUE(LEFT(RIGHT(F2;6);3));2))>19;VLOOKUP(VALUE(LEFT(VALUE(RIGHT(VALUE(LEFT(RIGHT(F2;6);3));2));1));$B$1:$C$20;2;0)&” Puluh “&VLOOKUP(VALUE(RIGHT(VALUE(RIGHT(VALUE(LEFT(RIGHT(F2;6);3));2));1));$B$1:$C$20;2;0);VLOOKUP(VALUE(RIGHT(VALUE(LEFT(RIGHT(F2;6);3));2));$B$1:$C$20;2;0));IF(VALUE(LEFT(RIGHT(F2;6);3))>19;VLOOKUP(VALUE(LEFT(VALUE(LEFT(RIGHT(F2;6);3));1));$B$1:$C$20;2;0)&” Puluh “&VLOOKUP(VALUE(RIGHT(VALUE(LEFT(RIGHT(F2;6);3));1));$B$1:$C$20;2;0);VLOOKUP(VALUE(LEFT(RIGHT(F2;6);3));$B$1:$C$20;2;0)))&” Ribu “)&” “&IF(VALUE(RIGHT(F2;3))>99;IF(VALUE(LEFT(VALUE(RIGHT(F2;3));1))=1;”Seratus “;VLOOKUP(VALUE(LEFT(VALUE(RIGHT(F2;3));1));$B$1:$C$20;2;0)&” Ratus”)&” “&IF(VALUE(RIGHT(VALUE(RIGHT(F2;3));2))>19;VLOOKUP(VALUE(LEFT(VALUE(RIGHT(VALUE(RIGHT(F2;3));2));1));$B$1:$C$20;2;0)&” Puluh “&VLOOKUP(VALUE(RIGHT(VALUE(RIGHT(VALUE(RIGHT(F2;3));2));1));$B$1:$C$20;2;0);VLOOKUP(VALUE(RIGHT(VALUE(RIGHT(F2;3));2));$B$1:$C$20;2;0));IF(VALUE(RIGHT(F2;3))>19;VLOOKUP(VALUE(LEFT(VALUE(RIGHT(F2;3));1));$B$1:$C$20;2;0)&” Puluh “&VLOOKUP(VALUE(RIGHT(VALUE(RIGHT(F2;3));1));$B$1:$C$20;2;0);VLOOKUP(VALUE(RIGHT(F2;3));$B$1:$C$20;2;0)));IF(F2>999999;IF(VALUE(LEFT(F2;(LEN(F2)-6)))=1;”Sejuta “;IF(VALUE(LEFT(F2;(LEN(F2)-6)))>99;IF(VALUE(LEFT(VALUE(LEFT(F2;(LEN(F2)-6)));1))=1;”Seratus “;VLOOKUP(VALUE(LEFT(VALUE(LEFT(F2;(LEN(F2)-6)));1));$B$1:$C$20;2;0)&” Ratus”)&” “&IF(VALUE(RIGHT(VALUE(LEFT(F2;(LEN(F2)-6)));2))>19;VLOOKUP(VALUE(LEFT(VALUE(RIGHT(VALUE(LEFT(F2;(LEN(F2)-6)));2));1));$B$1:$C$20;2;0)&” Puluh “&VLOOKUP(VALUE(RIGHT(VALUE(RIGHT(VALUE(LEFT(F2;(LEN(F2)-6)));2));1));$B$1:$C$20;2;0);VLOOKUP(VALUE(RIGHT(VALUE(LEFT(F2;(LEN(F2)-6)));2));$B$1:$C$20;2;0));IF(VALUE(LEFT(F2;(LEN(F2)-6)))>19;VLOOKUP(VALUE(LEFT(VALUE(LEFT(F2;(LEN(F2)-6)));1));$B$1:$C$20;2;0)&” Puluh “&VLOOKUP(VALUE(RIGHT(VALUE(LEFT(F2;(LEN(F2)-6)));1));$B$1:$C$20;2;0);VLOOKUP(VALUE(LEFT(F2;(LEN(F2)-6)));$B$1:$C$20;2;0)))&” Juta “)&” “&IF(VALUE(LEFT(RIGHT(F2;6);3))=0;” “;IF(VALUE(LEFT(RIGHT(F2;6);3))>99;IF(VALUE(LEFT(VALUE(LEFT(RIGHT(F2;6);3));1))=1;”Seratus “;VLOOKUP(VALUE(LEFT(VALUE(LEFT(RIGHT(F2;6);3));1));$B$1:$C$20;2;0)&” Ratus”)&” “&IF(VALUE(RIGHT(VALUE(LEFT(RIGHT(F2;6);3));2))>19;VLOOKUP(VALUE(LEFT(VALUE(RIGHT(VALUE(LEFT(RIGHT(F2;6);3));2));1));$B$1:$C$20;2;0)&” Puluh “&VLOOKUP(VALUE(RIGHT(VALUE(RIGHT(VALUE(LEFT(RIGHT(F2;6);3));2));1));$B$1:$C$20;2;0);VLOOKUP(VALUE(RIGHT(VALUE(LEFT(RIGHT(F2;6);3));2));$B$1:$C$20;2;0));IF(VALUE(LEFT(RIGHT(F2;6);3))>19;VLOOKUP(VALUE(LEFT(VALUE(LEFT(RIGHT(F2;6);3));1));$B$1:$C$20;2;0)&” Puluh “&VLOOKUP(VALUE(RIGHT(VALUE(LEFT(RIGHT(F2;6);3));1));$B$1:$C$20;2;0);VLOOKUP(VALUE(LEFT(RIGHT(F2;6);3));$B$1:$C$20;2;0)))&” Ribu “)&””&IF(VALUE(RIGHT(F2;3))>99;IF(VALUE(LEFT(VALUE(RIGHT(F2;3));1))=1;”Seratus “;VLOOKUP(VALUE(LEFT(VALUE(RIGHT(F2;3));1));$B$1:$C$20;2;0)&” Ratus”)&” “&IF(VALUE(RIGHT(VALUE(RIGHT(F2;3));2))>19;VLOOKUP(VALUE(LEFT(VALUE(RIGHT(VALUE(RIGHT(F2;3));2));1));$B$1:$C$20;2;0)&” Puluh “&VLOOKUP(VALUE(RIGHT(VALUE(RIGHT(VALUE(RIGHT(F2;3));2));1));$B$1:$C$20;2;0);VLOOKUP(VALUE(RIGHT(VALUE(RIGHT(F2;3));2));$B$1:$C$20;2;0));IF(VALUE(RIGHT(F2;3))>19;VLOOKUP(VALUE(LEFT(VALUE(RIGHT(F2;3));1));$B$1:$C$20;2;0)&” Puluh “&VLOOKUP(VALUE(RIGHT(VALUE(RIGHT(F2;3));1));$B$1:$C$20;2;0);VLOOKUP(VALUE(RIGHT(F2;3));$B$1:$C$20;2;0)));IF(F2>999;IF(VALUE(LEFT(F2;LEN(F2)-3))=1;”Seribu “;IF(VALUE(LEFT(F2;LEN(F2)-3))>99;IF(VALUE(LEFT(VALUE(LEFT(F2;LEN(F2)-3));1))=1;”Seratus “;VLOOKUP(VALUE(LEFT(VALUE(LEFT(F2;LEN(F2)-3));1));$B$1:$C$20;2;0)&” Ratus”)&” “&IF(VALUE(RIGHT(VALUE(LEFT(F2;LEN(F2)-3));2))>19;VLOOKUP(VALUE(LEFT(VALUE(RIGHT(VALUE(LEFT(F2;LEN(F2)-3));2));1));$B$1:$C$20;2;0)&” Puluh “&VLOOKUP(VALUE(RIGHT(VALUE(RIGHT(VALUE(LEFT(F2;LEN(F2)-3));2));1));$B$1:$C$20;2;0);VLOOKUP(VALUE(RIGHT(VALUE(LEFT(F2;LEN(F2)-3));2));$B$1:$C$20;2;0));IF(VALUE(LEFT(F2;LEN(F2)-3))>19;VLOOKUP(VALUE(LEFT(VALUE(LEFT(F2;LEN(F2)-3));1));$B$1:$C$20;2;0)&” Puluh “&VLOOKUP(VALUE(RIGHT(VALUE(LEFT(F2;LEN(F2)-3));1));$B$1:$C$20;2;0);VLOOKUP(VALUE(LEFT(F2;LEN(F2)-3));$B$1:$C$20;2;0)))&” Ribu”)&” “&IF(VALUE(RIGHT(F2;3))>99;IF(VALUE(LEFT(VALUE(RIGHT(F2;3));1))=1;”Seratus “;VLOOKUP(VALUE(LEFT(VALUE(RIGHT(F2;3));1));$B$1:$C$20;2;0)&” Ratus”)&” “&IF(VALUE(RIGHT(VALUE(RIGHT(F2;3));2))>19;VLOOKUP(VALUE(LEFT(VALUE(RIGHT(VALUE(RIGHT(F2;3));2));1));$B$1:$C$20;2;0)&” Puluh “&VLOOKUP(VALUE(RIGHT(VALUE(RIGHT(VALUE(RIGHT(F2;3));2));1));$B$1:$C$20;2;0);VLOOKUP(VALUE(RIGHT(VALUE(RIGHT(F2;3));2));$B$1:$C$20;2;0));IF(VALUE(RIGHT(F2;3))>19;VLOOKUP(VALUE(LEFT(VALUE(RIGHT(F2;3));1));$B$1:$C$20;2;0)&” Puluh “&VLOOKUP(VALUE(RIGHT(VALUE(RIGHT(F2;3));1));$B$1:$C$20;2;0);VLOOKUP(VALUE(RIGHT(F2;3));$B$1:$C$20;2;0)));IF(F2>99;IF(VALUE(LEFT(F2;1))=1;”Seratus “;VLOOKUP(VALUE(LEFT(F2;1));$B$1:$C$20;2;0)&” Ratus”)&” “&IF(VALUE(RIGHT(F2;2))>19;VLOOKUP(VALUE(LEFT(VALUE(RIGHT(F2;2));1));$B$1:$C$20;2;0)&” Puluh “&VLOOKUP(VALUE(RIGHT(VALUE(RIGHT(F2;2));1));$B$1:$C$20;2;0);VLOOKUP(VALUE(RIGHT(F2;2));$B$1:$C$20;2;0));IF(F2>19;VLOOKUP(VALUE(LEFT(F2;1));$B$1:$C$20;2;0)&” Puluh “&VLOOKUP(VALUE(RIGHT(F2;1));$B$1:$C$20;2;0);VLOOKUP(F2;$B$1:$C$20;2;0))))))&” Rupiah”))

File Microsoft Excel terbilang sampai dengan 999 Milyar bisa didownload disini (sheet TblM) sedangkan program untuk sampai dengan 999 Trilyun pada Sheet TblT pada yang sama.

DEMIKIAN MUDAH-MUDAHAN BERMAMFAAT

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: