jump to navigation

ADD IN TERBILANG DALAM BAHASA INGGRIS 10 November 2010

Posted by excellerates in Excel.
Tags: , , , , , , , , , , , , ,
trackback

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

Komentar»

1. evil_gw3n - 10 November 2010

thx..sebelumnya…yang saya maksudkan terbilang yang satuannya usd thx

motorbreath - 11 November 2010

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

2. Mimin Kurniawanti - 17 Maret 2013

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

3. Sulistio Handayani - 6 Mei 2013

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

4. ebooks - 25 Juni 2014

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.

5. Le guide marabout des ingrédients asiatiques pdf - 3 Juli 2014

Hurrah! After all I got a webpage from where I
be able to actually take useful information regarding my
study and knowledge.

6. Aline - 18 Juli 2014

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.

7. isma - 20 Juli 2014

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

8. торги золотом - 11 Desember 2014

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?


Silahkan berkomentar

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: