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 | #1

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

    • motorbreath
      11 November 2010 pukul 5:52 am | #2

      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 | #3

    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 | #4

    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

  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 406 pengikut lainnya.

%d bloggers like this: