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

About these ads
  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

  1. No trackbacks yet.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Logout / Ubah )

Twitter picture

You are commenting using your Twitter account. Logout / Ubah )

Facebook photo

You are commenting using your Facebook account. Logout / Ubah )

Google+ photo

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Ikuti

Get every new post delivered to your Inbox.

Bergabunglah dengan 428 pengikut lainnya.

%d bloggers like this: