November 10, 2010

ADD IN TERBILANG DALAM BAHASA INGGRIS

menanggapi permintaan untuk membuat terbilang versi inggris …. berikut adalah kodenya :

1	Public Function terb16en(x As Double) As String
2	ANGKA = Array(“”, “one”, “two”, “three”, “four”, “five”, “six”, “seven”, “eight”, “nine”, “ten”, “eleven”, “twelve”, “threeteen”, “fourteen”, “fiveteen”, “sixteen”, “seventeen”, “eighteen”, “nineteen”)
3	LEVEL = Array(” Trillion “, ” Billion “, ” Million “, ” Thousand “, ” “)
4	puluhan = Array(“”, “”, “twenty “, “thirty “, “forty “, “fifty “, “sixty “, “seventy “, “eighty “, “ninety “)
5	For i = 0 To 4
6	TEMPRP = “”
7	If Mid(Right(“000000000000000” & Abs(Round(x, 0)), 15), 1 + (3 * i), 1) > 0 Then TEMPRP = ANGKA(Mid(Right(“000000000000000″ & Abs(Round(x, 0)), 15), 1 + (3 * i), 1)) & ” hundred “
8	If Mid(Right(“000000000000000” & Abs(Round(x, 0)), 15), 2 + (3 * i), 2) < 20 Then TEMPRP = TEMPRP & ANGKA(Mid(Right(“000000000000000” & Abs(Round(x, 0)), 15), 2 + (3 * i), 2))
9	If Mid(Right(“000000000000000” & Abs(Round(x, 0)), 15), 2 + (3 * i), 2) >= 20 Then TEMPRP = TEMPRP & puluhan(Mid(Right(“000000000000000” & Abs(Round(x, 0)), 15), 2 + (3 * i), 1)) & ANGKA(Mid(Right(“000000000000000” & Abs(Round(x, 0)), 15), 3 + (3 * i), 1))
10	BERILEVEL:
11	If TEMPRP Empty Then TEMPRP = TEMPRP & LEVEL(i)
12	terb16en = Application.WorksheetFunction.Substitute(terb16en & TEMPRP, “Se “, “Satu “)
13	Next i
14	If Abs(Round(x, 0)) = 0 Then terb16en = “zero “
15	If x < 0 Then terb16en = “Minus ” & terb16en
16	End Function

…

function argument-nya =TERB16EN(angka)

kode sudah saya masukkan dalam file terbilangpack.xls silahkan di download

silahkan baca juga artikel2 dengan tag TERBILANG

bingung cara downloadnya ??

Baca aja halaman download dengan klik icon di samping

feed , email and my social media

Terkait

Tags:EXCEL, function, fungsi, inggris, macro, macro excel, macroexcel, microsoft, Microsoft Excel, office, terbilang, terbilang inggris, tips, tricks

9 Comments

evil_gw3n

thx..sebelumnya…yang saya maksudkan terbilang yang satuannya usd thx
November 10, 2010 Balas

motorbreath

kalo mau pakai satuan usd di depan …
=”USD “&TERB16(angka)
… kalo di belakang
… =TERB16(angka)&” USD”
… kalo bahasa inggris ganti TERB16 dengan TERB16EN
November 11, 2010 Balas

Mimin Kurniawanti

itu menambah kan nya di mana om syukron
misalkan: di tambah Rupiah, di edit spasi, kapital antara kata
ex: 12.000 terbilang Dua Belas Ribu rupiah

Muhammad Syukron :
untuk hurup kapital di awal tipa kata bisa ditambahkan fungsi PROPER
Maret 17, 2013 Balas
Sulistio Handayani

Bos, gimana kalo terbigen-nya pake angka dibelakang koma seperti 167,70….. thx

Muhammad Syukron :
untuk yang bahasa inggris saya belum buat … kalau untuk bahasa indonesia bisa pakai link ini
Mei 6, 2013 Balas
ebooks

I all the time emailed this website post page to all my associates, as if like to
read it after that my contacts will too.
Juni 25, 2014 Balas
Le guide marabout des ingrédients asiatiques pdf

Hurrah! After all I got a webpage from where I
be able to actually take useful information regarding my
study and knowledge.
Juli 3, 2014 Balas
Aline

Attractive section of content. I just stumbled upon your website and in accession capital
to assert that I acquire in fact enjoyed account your blog posts.
Any way I will be subscribing to your augment and even I achievement you access consistently fast.
Juli 18, 2014 Balas
isma

Bagaimana cara menggunakan rumus terbilang untuk angka dengan format dua angka di belakang koma mas. Mungkin untuk penulisan 7,80 masih bisa. Tapi untuk angka 7,00 ada kendala. Makasih
Juli 20, 2014 Balas
торги золотом

Thank you, I have just been searching for information about this topic for a long time and yours is the best I have found
out till now. But, what concerning the bottom line?

Are you sure concerning the supply?
Desember 11, 2014 Balas