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        |
MENCARI / MENGAMBIL DATA UNIK PADA EXCEL (4)
CARA MENGGUNAKAN RUMUS VLOOKUP 2 KRITERIA ATAU LEBIH
MENCARI BARIS DATA TERAKHIR TABEL EXCEL DENGAN “Range.CurrentRegion” [MACRO VBA EXCEL TUTORAL SERIES]
9 Comments
thx..sebelumnya…yang saya maksudkan terbilang yang satuannya usd thx
kalo mau pakai satuan usd di depan …
=”USD “&TERB16(angka)
… kalo di belakang
… =TERB16(angka)&” USD”
… kalo bahasa inggris ganti TERB16 dengan TERB16EN
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
Bos, gimana kalo terbigen-nya pake angka dibelakang koma seperti 167,70….. thx
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.
Hurrah! After all I got a webpage from where I
be able to actually take useful information regarding my
study and knowledge.
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.
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
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?