Mei 16, 2017

Angka terbilang

Supaya kerja kita cepat perlu setting excel agar ketika mengetik angka muncul di sbelahnya huruf terbilang

Cara Peratama
1. non-aktifkan dahulu security macro
caranya :
-options-->Trust Center-->Trust Center Settings-->Enable all macros-->ok

2.Siapkan add ins terbilang Unduh disini
caranya :
-options-->add-ins-->Go -->browsr. cari di mana anda menyimpan add-ins terbilang
-ok
sampai disini udah bisa di gunakan misal ketik angka di
cell D4 lalu ketik =terbilang(d4) enter maka muncul huruf bilangan sperti :


Cara Kedua
Untuk cara yg kedua ini tdk perlu setting apa2 karna menggunakan rumus/formula tetapi cara ini hanya bisa membilang sampai 15 bilangan sepert : 12345678910 , kalau lebih dari 15 angka seperti 123456789101112131415 maka tdk bisa jalan.

1. Ketiklah angka yg ingin di Conver ke huruf. Misal angkan ada di cell A1 sampai seterusnya seperti :


2. ketiklah rumus di sebelahnya atau di tempat yg di inginkan.


3. Enter,jadinya sperti ini lalu di copy ke bawah.....



Nah,..walaupun banyak ga bakal ribet dan capek krn tinggal di tarik ke bawah...heeee....

ini rumusnya
=IF(A1=0;"nol";IF(A1<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(A1);"000000000000000");1;3)=0;"";MID(TEXT(ABS(A1);"000000000000000");1;1)&" Ratus "&MID(TEXT(ABS(A1);"000000000000000");2;1)&" Puluh "&MID(TEXT(ABS(A1);"000000000000000");3;1)&" Trilyun ")&
IF(--MID(TEXT(ABS(A1);"000000000000000");4;3)=0;"";MID(TEXT(ABS(A1);"000000000000000");4;1)&" Ratus "&MID(TEXT(ABS(A1);"000000000000000");5;1)&" Puluh "&MID(TEXT(ABS(A1);"000000000000000");6;1)&" Milyar ")&
IF(--MID(TEXT(ABS(A1);"000000000000000");7;3)=0;"";MID(TEXT(ABS(A1);"000000000000000");7;1)&" Ratus "&MID(TEXT(ABS(A1);"000000000000000");8;1)&" Puluh "&MID(TEXT(ABS(A1);"000000000000000");9;1)&" Juta ")&
IF(--MID(TEXT(ABS(A1);"000000000000000");10;3)=0;"";IF(--MID(TEXT(ABS(A1);"000000000000000");10;3)=1;"*";MID(TEXT(ABS(A1);"000000000000000");10;1)&" Ratus "&MID(TEXT(ABS(A1);"000000000000000");11;1)&" Puluh ")&MID(TEXT(ABS(A1);"000000000000000");12;1)&" Ribu ")&

IF(--MID(TEXT(ABS(A1);"000000000000000");13;3)=0;"";MID(TEXT(ABS(A1);"000000000000000");13;1)&" Ratus "&MID(TEXT(ABS(A1);"000000000000000");14;1)&" Puluh "&MID(TEXT(ABS(A1);"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";"Dua Belas");"Satu Puluh Tiga";"Tiga Belas");"Satu Puluh Empat";"Empat Belas");"Satu Puluh Lima";"Lima Belas");"Satu Puluh Enam";"Enam Belas");"Satu Puluh Tujuh";"Tujuh Belas");"Satu Puluh Delapan";"Delapan Belas");"Satu Puluh Sembilan";"Sembilan Belas");"Satu Ratus";"Seratus");"*Satu Ribu";"Seribu");0;""));"  ";" "))

Lumayan banyak,bila diketik manual cukup membbuat jari krting. he.he.he.
Di copy saja rumusnya lalu di paste pada excel
Ini yg sudah jadi



Cara ketiga
Membuat huruf terbilang manual
Kalo kita ingin mengetik huruf a,b,c sampai z ,untuk bulan dan angka itu tinggal tarik aja kebawah sudah ada bawaan excelnya
kalo untuk hitungan satu ,dua,tiga dan seterusnya  pake huruf itu tdk ada fiturnya artinya kita harus membuat manual agar nantinya bisa di tarik ke bawah dgn mudah


ini screenshoot yg tdk bisa berjalan dgn di tarik ke bawah agar bisa berjalan caranya:
1. ketik berapa angka huruf yg diinginkan
2. Buat costum list
3. import
4. ok
step-stepnya
1. ketik berapa angka huruf yg diinginkan


2. Buat costum list
kalo pake office 2010 caranya klik file --> options --> Advanced --> gulir kebawah --> cari kata edit costum lists..klik
klik yg sy beri no 1 lalu blok yg sy beri nomor 2 lalu klik import.....ok --->ok
beres....kita coba ketik satu tarik kebawah ini jadinya :


Ini angka terbilang yg sudah sy ketik di word untuk di masukan ke Costum list tapi sayang tdk bisa di masukan lebih dari seratus dua puluh empat,entah kalo office 2013-2016 kebetulan sy lagi pakai office 2010

 klik disini
selesai.