Beranda > Excel > ADD IN TERBILANG DALAM BAHASA INGGRIS

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

  1. evil_gw3n
    10 November 2010 pukul 9:54 pm

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

    • motorbreath
      11 November 2010 pukul 5:52 am

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

  2. 17 Maret 2013 pukul 4:38 pm

    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. 6 Mei 2013 pukul 11:50 am

    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. 25 Juni 2014 pukul 1:45 pm

    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. 3 Juli 2014 pukul 9:12 pm

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

  6. 18 Juli 2014 pukul 11:58 pm

    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 pukul 1:27 am

    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 pukul 3:42 am

    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?

  1. No trackbacks yet.

Berikan 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

Ikuti

Kirimkan setiap pos baru ke Kotak Masuk Anda.

Bergabunglah dengan 489 pengikut lainnya.

%d blogger menyukai ini: