Menerjemahkan Angka ke Kata-kata di dalam Microsoft Excel

ANDIK said on October 20, 2005, 4:20 am:

bagaimana kalau terjadi bilangan yang terlalu panjang, apa bisa kata terbilang disambungkan ke baris di bawahnya?

maseko said on October 21, 2005, 4:29 pm:

Andik, hasil fungsi terbilang tertuang dalam satu cell atau beberapa cell yang dimerge.
Mungkin bisa diantisipasi jika sewaktu-waktu hasilnya akan panjang dengan menyiapkan cell yang cukup ‘tingginya’ dan dibuat wrapping.

aaa said on January 5, 2006, 5:10 pm:

sudah aku coba, sukses cuman waktu ditutup & buka lagi (langkah 12) gak keluar enable macros. pilihannya yes & no trus aku pilih yes tapi hasilnya gak bisa nerjemahin lagi

maseko said on January 6, 2006, 6:51 pm:

aaa, kemungkinan setting securitynya terlalu tinggi
Coba dari Tools > Macro > Security.. Pilih yang Medium.

Dwi said on January 18, 2006, 9:26 am:

maseko, gimana kalau setiap buka file yg udah ada funtion terbilang() ini tidak perlu melewati dialog box seperti langkah no.12?, jadi macronya langsung bisa dipake. BISA??? THX

maseko said on January 18, 2006, 3:58 pm:

Dwi, hal tersebut terkait dengan setting Security, seperti pada jawaban #4 di atas. Dialog box akan muncul, jika settingnya medium. Untuk menghilangkannya, sebenarnya bisa saja dengan mengubah level security ke “Low”, tetapi hal ini tidak disarankan, karena file otomatis akan meng-enable-kan macro yang ada. Jika suatu saat ada file excel yang disusupi macro jahat, bisa berbahaya.

lulu said on February 20, 2006, 1:48 pm:

Bagaimana kalau bekerja dengan microsoft word?

Kiki said on February 23, 2006, 5:16 am:

Tetep ga bisa nerjemahin ke “Seribu…”
Maksudnya, konversinya jadi “Satu Ribu”

Kiki said on February 23, 2006, 7:24 am:

Sori kurang lengkap, coba input 1.001.000

maseko said on February 23, 2006, 6:38 pm:

#7
lulu, permasalahan tersebut juga masih menjadi pertanyaan saya, bagaimana mengaplikasikan di MS Word. Sampai sekarang, saya belum menemukan jawabannya. Mohon maaf tidak dapat membantu.

#8
Kiki, Anda benar, kalau ada kesempatan, akan saya update. Terima kasih atas koreksinya.

GusRiz said on February 28, 2006, 4:43 pm:

Om Maseko,

Terima kasih programnya sangat membantu.
Oh ya, untuk mengatasi masalah 1.001.000 bisa dimodify codenya pada bagian ribuan dari :

‘Ribuan
ElseIf No4 = “1″ And Len(Angka) = 4 Then
Nomor4 = “seribu ”

menjadi

ElseIf (No4 = “1″ And Len(Angka) = 4) Or (No6 = “0″ And No5 = “0″ And No4 = “1″) Then
Nomor4 = “seribu”

Saya cobain sih sudah bener. Kalau memang bener, mohon diupdate programnya sehingga orang tinggal pake saja

Thx

Riz

maseko said on February 28, 2006, 8:19 pm:

Wah.. terima kasih sekali nih GusRiz :)

Arga said on March 3, 2006, 8:47 am:

error pada Office 97

maseko said on March 3, 2006, 6:03 pm:

Arga, sepertinya memang hanya dapat digunakan pada Office 2000 ke atas, meskipun saya sendiri belum mencobanya di Office 97.

Asharuddin Nasution said on March 22, 2006, 2:30 pm:

Tolong donk! Aq pengen tau tentang semua fungsi excel (fungsi matematika, statistika, logika dll)

maseko said on March 22, 2006, 6:25 pm:

Asharuddin Nasution, cara termudah dan termurah adalah dengan melihat dokumentasi yang ada pada Microsoft Excel. Sebenarnya pengen juga sih nyumbang yang dalam bahasa Indonesia, tapi belom sempet dan ilmunya juga masih dangkal.

Radjah said on March 25, 2006, 3:25 pm:

Cucok…cucok..

Rusli said on July 17, 2006, 12:34 pm:

Maseko, saya telah mencoba menggunakan script yang anda buat. Tetapi ada hal yang mungkin perlu diperbaharui yakni :
1. Dalam penguraian angka dibelakang koma (desimal) dalam Bahasa Indonesia harus diuraikan dalam bentuk satuan contohnya 32,32 = Tiga puluh dua koma tiga dua bukannya Tiga puluh dua koma tiga puluh dua, ini akan mempermudah dalam penyebutan angka dibelakang koma dengan digit yang banyak , tentunya scriptnya juga akan mudah. (saya gak ngerti script tapi saya rasa akan mudah menguraikannya).
2. Kalau bisa ada penambahan opsi untuk pengambilan berapa banyak angka dibelakang koma sesuai keinginan kita tidak hanya mengambil dua angka saja. Ini mungkin akan mudah bila mengikuti poin 1 diatas (sesuai EYD).
Demikian – Terima Kasih.

aan said on July 28, 2006, 9:49 am:

selamat pagi pak mas, hehe, koq jadi lucu manggilnya. bapak-bapak/ibu-ibu, saya sedang mencari rumus fungsi pembulat ke bawah atau ke atas pada angka uang atau rupiah; biasanya saya gunakan untuk penghitungan gaji, berhubung tidak punya receh 1 rupiah misalnya, maka saya bulatkan ke bawah atau ke atas tapi di-tik manual.
misalnya diketahui data :
100.045 menjadi 100.000
313.921 menjadi 314.000 atau 313.500
204.349 menjadi 204.350
apakah bapak (atau yang pengomentar lain) bisa memberikan jawaban?

aan.
_______________
5666717 ext 111

aan said on July 28, 2006, 11:35 am:

saya Aan ingin berkomentar lagi,
mengenai akhir kalimat, mengapa harus ada spasi pada kata terakhir. misal :
angka di cell a1 : 40,
fungsi di cell a2 : =terbilang(A1;1;”.”) : hasil “Empat puluh .”
di sebelum titik ada spasi.
mohon ma’af saya terlalu sok tau membaca script,
kalo ga salah, ada fungsi yang menghilangkan spasi yang bernama Trim, tapi setelah saya coba =TRIM(A2)
hasilnya tetap, mungkin karena karakter teksnya berasal dari rumus, jadi tidak bisa diganti.

trimss….

(kayanya kalau ada pages forum, ngbahasnya enak kali ya)

andre said on July 29, 2006, 9:34 am:

salam kenal,saya kurang paham banget,pda langkah 8 user defined tidak ditemukan pada excel 2003 saya,pada Function category,gimana cara membuat menu,nilai angksa,style,satuan kedalam bahasa indonesia.terima kasih

Resky Restandi Maulana said on August 4, 2006, 12:41 pm:

Maseko….! bagai mana kalau ada point nya “” contoh (21,383.23)
tebilang : Dua Puluh Satu Koma Tiga Ratus Delapan Puluh Tiga Point Dua Tiga “”".. Tolong Dong Beri Penjelasan Aku Bingung Banget Nih …1
Atas Bantuannya Terima kasih ,Semoga Amalnya Diterima Ok..
59401126 (021)

hery said on August 5, 2006, 12:20 pm:

kalau untuk dollar dengan point gimana

budi said on August 11, 2006, 2:04 pm:

kalau yang versi english_nya ada nggak mas?

maseko said on August 23, 2006, 7:01 pm:

Terima kasih untuk semua yang telah memberikan respon untuk postingan ini. Rencananya saya akan menulis ulang kodenya dengan memperhatikan masukan-masukan yang dikirim teman-teman, tunggu kabar selanjutnya. Mohon maaf untuk tidak memberi respon per komentar yang masuk belakangan.

Julita said on September 26, 2006, 2:03 pm:

Thx u so much~~saya lagi bingung tentang soal ini,kayaknya susah buangeeet,masuk angka bawahnya ada kata-katanya,puyeng.
wish you have more good idea~

Xander said on October 16, 2006, 10:47 pm:

Kalau di Excel 2003 bisa gak ya, soalnya nggak ada pilihan User Define pada function…??

prans said on January 10, 2007, 12:39 pm:

apakah office yang dipakai harus versi tertentu untuk Menerjemahkan Angka ke Kata-kata di dalam Microsoft Excel soalnya saya kesulitan semuanya sudah lakukan sesuai prosedure tapi tidak bisa mohon bimbingannya

terima kasih

Mas Winarno said on March 9, 2007, 11:28 pm:

Terima Kasih, Maseko. Saya sedang ingin meningkatkan kemampuan saya dalam excel, kebetulan sering dimintai tolong teman-teman untuk membuat aplikasi dalam excel. Bulan lalu saya buat rapot, terbilangnya saya pakai vlookup. Dengan add-in ini saya terbantu bisa memperkecil file

aep saepuloh said on March 19, 2007, 6:10 pm:

thank for maseko yang baik hati dan rajin menabung, apa yang maseko publikasikan sangat bermanfaat, saya udah lama mencari list program tersebut tapi baru ketemua.
Makasih sekali lagi semoga bisa terus berbagi ilmu

HSis said on March 29, 2007, 1:11 pm:

makasih, masEko.
saya udah lama cari dan coba buat,tapi belum dapat.
kalo ada prog.revisinya yang dapat membulatkan atas /bawah mohon dikabarkan.

Guzze said on April 2, 2007, 3:19 pm:

maseko function ini bagusssss bgt
thx

young-q said on April 6, 2007, 12:11 am:

maseko, tolong aku mau minta referensi soal-soal excel dari “kelas ringan” sampai “kelas sulit”. makasih sebelumnya.

lanting said on April 10, 2007, 10:39 pm:

gimana caranya / fungsi excel utk menghitung rumus ujian nasional 2007 yang ada 2 opsi.

sinta said on April 11, 2007, 3:01 pm:

JEZ said on April 22, 2007, 5:53 am:

assalamu’alaikum wr wb.,

situs ini sangat bagus n cocok buat aku.

ada yang bisa bantu gak?????
aku ada tugas membuatnkwitansi dalam format MS.EXCEL. jadi dimasukin berapa aja angkanya, ntar hurufnya(terbilangnya) juga berubah. makasih ya, kalo ada yang bantuin.
wassalamu’alaikum wr wb.

imam said on April 28, 2007, 3:08 pm:

mas eko kalo emang ga ada rumusnya,ada ga cara lain?.untuk merecord 1 sel.agar nilainya tetap dan tidak berubah misalnya:di sel A1 diketik 78, lalu di sel B2=78 juga. tapi jika sel A1 diganti dengan 99, di sel 2 nya tetep 78. gimana ya caranya. tolong saya ya mas…..!

denko said on May 17, 2007, 1:17 pm:

kok terbilangnya gak bisa konvert ke angka yang udah di buat 2 desimal ya contoh:
8,667 terbilang delapan koma enam puluh enam tapi begitu dibuat jadi dua desimal : 8,67 terbilang tetep delapan koma enampuluh enam ada yang bisa bantu gak????

dbf said on June 23, 2007, 8:45 am:

alternatif laen semoga berguna

[code]
Option Explicit

Function DH(ByVal Angka)
Dim Sementara
Dim Rupiah, Sen
Dim Posisi, Jumlah

ReDim Place(9) As String
Place(2) = " Ribu "
Place(3) = " Juta "
Place(4) = " Milyar "
Place(5) = " Triliun "

Angka = Trim(Str(Angka))
Posisi = InStr(Angka, ".")

If Posisi > 0 Then
Sementara = Left(Mid(Angka, Posisi + 1) & "00", 2)
Sen = Puluhan(Sementara)
Angka = Trim(Left(Angka, Posisi - 1))
End If

Jumlah = 1
Do While Angka ""
Sementara = Ratusan(Right(Angka, 3))
If Sementara "" Then Rupiah = Sementara & Place(Jumlah) & Rupiah
If Len(Angka) > 3 Then
Angka = Left(Angka, Len(Angka) - 3)
Else
Angka = ""
End If
Jumlah = Jumlah + 1
Loop

Select Case Rupiah
Case ""
Rupiah = "N I H I L"
Case Else
Rupiah = Rupiah & " Rupiah"
End Select

Select Case Sen
Case ""
Sen = ". "
Case Else
Sen = " " & Sen & " Sen."
End Select

DH = Rupiah & Sen
End Function

Private Function Ratusan(ByVal Angka)
Dim Hasil As String

If Val(Angka) = 0 Then Exit Function

Angka = Right("000" & Angka, 3)

If Left(Angka, 1) "0" Then
If Left(Angka, 1) = "1" Then
Hasil = "Seratus "
Else
Hasil = Satuan(Left(Angka, 1)) & "Ratus "
End If
End If

If Mid(Angka, 2, 1) "0" Then
Hasil = Hasil & Puluhan(Mid(Angka, 2))
Else
Hasil = Hasil & Satuan(Mid(Angka, 3))
End If

Ratusan = Trim(Hasil)
End Function

Private Function Puluhan(ByVal MyTens)
Dim Hasil As String

If Val(Left(MyTens, 1)) = 1 Then
Select Case Val(MyTens)
Case 10: Hasil = "Sepuluh "
Case 11: Hasil = "Sebelas "
Case 12: Hasil = "Dua Belas "
Case 13: Hasil = "Tiga Belas "
Case 14: Hasil = "Empat Belas "
Case 15: Hasil = "Lima Belas "
Case 16: Hasil = "Enam Belas "
Case 17: Hasil = "Tujuh Belas "
Case 18: Hasil = "Delapan Belas "
Case 19: Hasil = "Sembilan Belas "
Case Else
End Select
Else

Select Case Val(Left(MyTens, 1))
Case 2: Hasil = "Dua Puluh "
Case 3: Hasil = "Tiga Puluh "
Case 4: Hasil = "Empat Puluh "
Case 5: Hasil = "Lima Puluh "
Case 6: Hasil = "Enam Puluh "
Case 7: Hasil = "Tujuh Puluh "
Case 8: Hasil = "Delapan Puluh "
Case 9: Hasil = "Sembilan Puluh "
Case Else
End Select

Hasil = Hasil & Satuan(Right(MyTens, 1))
End If

Puluhan = Hasil
End Function

Private Function Satuan(ByVal MyDigit)
Select Case Val(MyDigit)
Case 1: Satuan = "Satu "
Case 2: Satuan = "Dua "
Case 3: Satuan = "Tiga "
Case 4: Satuan = "Empat "
Case 5: Satuan = "Lima "
Case 6: Satuan = "Enam "
Case 7: Satuan = "Tujuh "
Case 8: Satuan = "Delapan "
Case 9: Satuan = "Sembilan "
Case Else: Satuan = " "
End Select
End Function

[/code]

Uphil`Garing said on June 23, 2007, 8:49 am:

Option Explicit

Function DH(ByVal Angka)
Dim Sementara
Dim Rupiah, Sen
Dim Posisi, Jumlah

ReDim Place(9) As String
Place(2) = ” Ribu ”
Place(3) = ” Juta ”
Place(4) = ” Milyar ”
Place(5) = ” Triliun ”

Angka = Trim(Str(Angka))
Posisi = InStr(Angka, “.”)

If Posisi > 0 Then
Sementara = Left(Mid(Angka, Posisi + 1) & “00″, 2)
Sen = Puluhan(Sementara)
Angka = Trim(Left(Angka, Posisi – 1))
End If

Jumlah = 1
Do While Angka “”
Sementara = Ratusan(Right(Angka, 3))
If Sementara “” Then Rupiah = Sementara & Place(Jumlah) & Rupiah
If Len(Angka) > 3 Then
Angka = Left(Angka, Len(Angka) – 3)
Else
Angka = “”
End If
Jumlah = Jumlah + 1
Loop

Select Case Rupiah
Case “”
Rupiah = “N I H I L”
Case Else
Rupiah = Rupiah & ” Rupiah”
End Select

Select Case Sen
Case “”
Sen = “. ”
Case Else
Sen = ” ” & Sen & ” Sen.”
End Select

DH = Rupiah & Sen
End Function

Private Function Ratusan(ByVal Angka)
Dim Hasil As String

If Val(Angka) = 0 Then Exit Function

Angka = Right(“000″ & Angka, 3)

If Left(Angka, 1) “0″ Then
If Left(Angka, 1) = “1″ Then
Hasil = “Seratus ”
Else
Hasil = Satuan(Left(Angka, 1)) & “Ratus ”
End If
End If

If Mid(Angka, 2, 1) “0″ Then
Hasil = Hasil & Puluhan(Mid(Angka, 2))
Else
Hasil = Hasil & Satuan(Mid(Angka, 3))
End If

Ratusan = Trim(Hasil)
End Function

Private Function Puluhan(ByVal MyTens)
Dim Hasil As String

If Val(Left(MyTens, 1)) = 1 Then
Select Case Val(MyTens)
Case 10: Hasil = “Sepuluh ”
Case 11: Hasil = “Sebelas ”
Case 12: Hasil = “Dua Belas ”
Case 13: Hasil = “Tiga Belas ”
Case 14: Hasil = “Empat Belas ”
Case 15: Hasil = “Lima Belas ”
Case 16: Hasil = “Enam Belas ”
Case 17: Hasil = “Tujuh Belas ”
Case 18: Hasil = “Delapan Belas ”
Case 19: Hasil = “Sembilan Belas ”
Case Else
End Select
Else

Select Case Val(Left(MyTens, 1))
Case 2: Hasil = “Dua Puluh ”
Case 3: Hasil = “Tiga Puluh ”
Case 4: Hasil = “Empat Puluh ”
Case 5: Hasil = “Lima Puluh ”
Case 6: Hasil = “Enam Puluh ”
Case 7: Hasil = “Tujuh Puluh ”
Case 8: Hasil = “Delapan Puluh ”
Case 9: Hasil = “Sembilan Puluh ”
Case Else
End Select

Hasil = Hasil & Satuan(Right(MyTens, 1))
End If

Puluhan = Hasil
End Function

Private Function Satuan(ByVal MyDigit)
Select Case Val(MyDigit)
Case 1: Satuan = “Satu ”
Case 2: Satuan = “Dua ”
Case 3: Satuan = “Tiga ”
Case 4: Satuan = “Empat ”
Case 5: Satuan = “Lima ”
Case 6: Satuan = “Enam ”
Case 7: Satuan = “Tujuh ”
Case 8: Satuan = “Delapan ”
Case 9: Satuan = “Sembilan ”
Case Else: Satuan = ” ”
End Select
End Function

pranoto Suwiknyo said on June 23, 2007, 9:13 am:

mas bisa bantu saya ndak gimana cara supaya bisa menjadi satuan aja misalnya 4.50 dijadikan ke angka menjadi( empat koma Lima Nol )tolong saya mas untuk penulisan nilai angka siswa saya..

izzad said on July 18, 2007, 9:55 am:

Mas eko tks banget atas codenya, gimana ya biar code macro tersebut bisa berjalan disetiap file yang kita punya/buat, tanpa harus insert kedalam setiap worksheet, maksudnya biar macro tersebut bisa berlaku global setiap kita create file excel baru ataupun file-file excel kita yang lama

tks

AGID said on July 18, 2007, 9:16 pm:

SDH BAGUS… AKU COBA DAN BERHASIL, TAPI APABILA DI INPUT BILANGAN YANG TERLALU PANJANG, MAKA HASILNYA TETAP PADA BARIS YANG SAMA, BISA GA DIBUAT SABUNGAN TERBILANGNYA PADA BARIS BERIKUTNYA,KALAU BISA, GIMANA CARANYA?..
TKS

The Goeh said on July 21, 2007, 7:38 pm:

waduh… makasih banget nih atas scriptnya. kebetulan juga lagi nyari. mudah2an sih bisa dibenahi lebih baik lagi algoritmanya. belajar bersama lebih semangat euy…

Agid said on July 22, 2007, 2:22 am:

tks mas….wrapping cell nya berhasil…
mas eko, bisa bantu aku ga? gimana caranya mau ngopy dari cell yang sdh ada formulanya ke cell lain dengan tidak mengikutkan formula tersebut.
tks sebelumnya..

agid said on July 22, 2007, 11:14 am:

mas… kalau bisa dengan macro nya juga..

tks.

agid said on July 22, 2007, 10:26 pm:

tks mas… Panjang umur dan sukses, karena selalu membantu orang, walaupun orang yang tidak di kenal sama sekali..

Salam..

siti said on July 31, 2007, 2:13 pm:

Ini udah saya cari-cari, udah belajar dari yang lain tapi gak jebol. Makasih banyak yaa, infonya bermanfaat bangeet… semoga Maseko selalu sukses deh!!

Fajar said on August 1, 2007, 10:12 am:

Bagaimana dengan menggunakan bahasa inggrisnya..??, bagimana pengcode-annya yach..??

andre wirabuana said on August 3, 2007, 10:28 pm:

Halo mas eko, saya mo bantu temen yg butuh soucrce code menggunakan fungsi terbilang dengan bahasa inggris
berikut list codenya :
Private Function SpellDigit(strNumeric As Integer)
Dim cRet As String
On Error GoTo Pesan
cRet = “”
Select Case strNumeric
Case 0: cRet = ” zero”
Case 1: cRet = ” one”
Case 2: cRet = ” two”
Case 3: cRet = ” three”
Case 4: cRet = ” four”
Case 5: cRet = ” five”
Case 6: cRet = ” six”
Case 7: cRet = ” seven”
Case 8: cRet = ” eight”
Case 9: cRet = ” nine”
Case 10: cRet = ” ten”
Case 11: cRet = ” eleven”
Case 12: cRet = ” twelve”
Case 13: cRet = ” thirteen”
Case 14: cRet = ” fourteen”
Case 15: cRet = ” fifteen”
Case 16: cRet = ” sixteen”
Case 17: cRet = ” seventeen”
Case 18: cRet = ” eighteen”
Case 19: cRet = ” ninetieen”
Case 20: cRet = ” twenty”
Case 30: cRet = ” thirty”
Case 40: cRet = ” fourthy”
Case 50: cRet = ” fifty”
Case 60: cRet = ” sixty”
Case 70: cRet = ” seventy”
Case 80: cRet = ” eighty”
Case 90: cRet = ” ninety”
Case 100: cRet = ” one hundred”
Case 200: cRet = ” two hundred”
Case 300: cRet = ” three hundred”
Case 400: cRet = ” four hundred”
Case 500: cRet = ” five hundred”
Case 600: cRet = ” six hundred”
Case 700: cRet = ” seven hundred”
Case 800: cRet = ” eight hundred”
Case 900: cRet = ” nine hundred”
End Select
SpellDigit = cRet
Exit Function
Pesan:
SpellDigit = “(maksimal 9 digit)”
End Function

Private Function SpellUnit(strNumeric As Integer)
Dim cRet As String
Dim n100 As Integer
Dim n10 As Integer
Dim n1 As Integer
On Error GoTo Pesan
cRet = “”
n100 = Int(strNumeric / 100) * 100
n10 = Int((strNumeric – n100) / 10) * 10
n1 = (strNumeric – n100 – n10)
If n100 > 0 Then
cRet = SpellDigit(n100)
End If
If n10 > 0 Then
If n10 = 10 Then
cRet = cRet & SpellDigit(n10 + n1)
Else
cRet = cRet & SpellDigit(n10)
End If
End If
If n1 > 0 And n10 10 Then
cRet = cRet & SpellDigit(n1)
End If
SpellUnit = cRet
Exit Function
Pesan:
SpellUnit = “(maksimal 9 digit)”
End Function

Public Function TerbilangInggris(strNumeric As String) As String
Dim cRet As String
Dim n1000000 As Long
Dim n1000 As Long
Dim n1 As Integer
Dim n0 As Integer
On Error GoTo Pesan
Dim strValid As String, huruf As String * 1
Dim i As Integer
‘Periksa setiap karakter masukan
strValid = “1234567890.,”
For i% = 1 To Len(strNumeric)
huruf = Chr(Asc(Mid(strNumeric, i%, 1)))
If InStr(strValid, huruf) = 0 Then
MsgBox “Harus karakter angka!”, _
vbCritical, “Karakter Tidak Valid”
Exit Function
End If
Next i%

If strNumeric = “” Then Exit Function
If Len(Trim(strNumeric)) > 9 Then GoTo Pesan

cRet = “”
n1000000 = Int(strNumeric / 1000000) * 1000000
n1000 = Int((strNumeric – n1000000) / 1000) * 1000
n1 = Int(strNumeric – n1000000 – n1000)
n0 = (strNumeric – n1000000 – n1000 – n1) * 100
If n1000000 > 0 Then
cRet = SpellUnit(n1000000 / 1000000) & ” million”
End If
If n1000 > 0 Then
cRet = cRet & SpellUnit(n1000 / 1000) & ” thousand”
End If
If n1 > 0 Then
cRet = cRet & SpellUnit(n1)
End If
If n0 > 0 Then
cRet = cRet & ” and cents” & SpellUnit(n0)
End If
TerbilangInggris = cRet & ” only”
Exit Function
Pesan:
TerbilangInggris = “(maximum 9 digit)”
End Function

Private Sub txtAngka_Change()
lblTerbilang.Caption = TerbilangInggris(txtAngka.Text)
End Sub

Source code ini berasal dari: http://www.geocities.com/masino_sinaga/terbilanginggris.html 1

didik said on August 8, 2007, 10:41 am:

Terima kasih mas eko functionnya sangat bermanfaat, tapi saya masih nyari satu function lagi yaitu untuk pembulatan keatas dan kebawah semisal >125 rupiah dibulatkan keatas jadi 150 kalo ikatlah ilmu dengan menuliskannya, membagikannya, menerapkannya.

anakAbG said on August 9, 2007, 4:47 pm:

Makasih Scriptnya Mas Eko dan mas-mas lainnya yang udah ngasih List Codenya secara gratis.
Oh ya Mas saya ada masalah sama List Code di bawah ini Mudah-mudahan mas eko atau mas-mas yang lain sudi membantu saya. Berikut List Codenya :

Public Function Terbilang(x As Currency)
Dim triliun As Currency
Dim milyar As Currency
Dim juta As Currency
Dim ribu As Currency
Dim satu As Currency
Dim sen As Currency
Dim baca As String
If x > 1000000000000# Then
Terbilang = “”
Exit Function
End If
‘Jika x adalah 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
‘Pisah masing-masing bagian untuk triliun, milyar, juta, ribu, rupiah, dan sen
triliun = Int(x * 0.001 ^ 4)
milyar = Int((x – triliun * 1000 ^ 4) * 0.001 ^ 3)
juta = Int((x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3) / 1000 ^ 2)
ribu = Int((x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3 – juta * 1000 ^ 2) / 1000)
satu = Int(x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3 – juta * 1000 ^ 2 – ribu * 1000)
sen = Int((x – Int(x)) * 100)
‘Baca bagian triliun dan ditambah akhiran triliun
If triliun > 0 Then
baca = ratus(triliun, 5) + “triliun ”
End If
‘Baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
baca = ratus(milyar, 4) + “milyar ”
End If
‘Baca bagian juta dan ditambah akhiran juta
If juta > 0 Then
baca = baca + ratus(juta, 3) + “juta ”
End If
‘Baca bagian ribu dan ditambah akhiran ribu
If ribu > 0 Then
baca = baca + ratus(ribu, 2) + “ribu ”
End If
‘Baca bagian rupiah dan ditambah akhiran rupiah
If satu > 0 Then
baca = baca + ratus(satu, 1) + “rupiah ”
Else
baca = baca + “rupiah”
End If
‘Baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + ratus(sen, 0) + “sen”
End If
End If
Terbilang = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))
End Function

Function ratus(x As Currency, Posisi As Integer) As String
Dim a100 As Integer, a10 As Integer, a1 As Integer
Dim baca As String
a100 = Int(x * 0.01)
a10 = Int((x – a100 * 100) * 0.1)
a1 = Int(x – a100 * 100 – a10 * 10)
‘Baca Bagian Ratus
If a100 = 1 Then
baca = “Seratus ”
Else
If a100 > 0 Then
baca = angka(a100, Posisi) + “ratus ”
End If
End If
‘Baca Bagian Puluh dan Satuan
If a10 = 1 Then
baca = baca + angka(a10 * 10 + a1, Posisi)
Else
If a10 > 0 Then
baca = baca + angka(a10, Posisi) + “puluh ”
End If
If a1 > 0 Then
baca = baca + angka(a1, Posisi)
End If
End If
ratus = baca
End Function

Function angka(x As Integer, Posisi As Integer)
Select Case x
Case 0: angka = “Nol”
Case 1:
If Posisi 2 Then
angka = “Satu ”
Else
angka = “Se”
End If
Case 2: angka = “Dua ”
Case 3: angka = “Tiga ”
Case 4: angka = “Empat ”
Case 5: angka = “Lima ”
Case 6: angka = “Enam ”
Case 7: angka = “Tujuh ”
Case 8: angka = “Delapan ”
Case 9: angka = “Sembilan ”
Case 10: angka = “Sepuluh ”
Case 11: angka = “Sebelas ”
Case 12: angka = “Duabelas ”
Case 13: angka = “Tigabelas ”
Case 14: angka = “Empatbelas ”
Case 15: angka = “Limabelas ”
Case 16: angka = “Enambelas ”
Case 17: angka = “Tujuhbelas ”
Case 18: angka = “Delapanbelas ”
Case 19: angka = “Sembilanbelas ”
End Select
End Function

****
Masalahnya gak bisa baca Misalnya 21752 (Dua puluh satu ribu…) dan yang dibacanya (Dua puluh seribu ….)
Mohon Bantuannya Mas
Terimakasih.

kujang101 said on August 27, 2007, 3:24 pm:

Thanks dulu bro atas macronya. Aq tahunya dari temen nih.

Tapi ini ada pertanyaan/masalah dikit.
Waktu aq buat macro ini di workbook baru, lancar aja alias sukses.

Nah, waktu mau implementasi ke file yang sudah duluan exist ko keluarnya #NAME gitu?

Apa memang harus selalu dengan workbook yang baru?

kujang101 said on August 28, 2007, 9:09 am:

nah, itu dia bro. Kenapa yach kira2?

kujang101 said on September 5, 2007, 10:32 am:

Ralat bro…..

Udah bisa ternyata….

Makasih…. :shakehand

andry said on September 7, 2007, 10:02 am:

mas eko, ada ga’ penulisan rumus seperti itu di Microsoft Access ?

thx
andry

Haeruddin said on September 28, 2007, 8:58 am:

bagaimana kalau mau menerjemahkan seperti pada SKHU (Surat Keteranan Hasil Ujian)? Contoh: 45,67 dibaca:Empat Lima, Enam Tujuh. Tolong dong !!!

sabriani said on November 17, 2007, 9:22 am:

mau nanya kalo ini apa ya :
1. char
2. Len
3. Value
4. Trim
5. Subtitute
6. Rept
7. Replace
8. Code
9. Concatenate
10. exact

rahma said on November 19, 2007, 12:12 pm:

halo maseko

waduh thx banget nih buat source codenya….
aku kebantu banget, kebetulan dikantor temen ada yang minta dibuatin, pas bgt dpt “jurus” nya.
tapi yang mo aku tanyain sama kaya pertanyaan no 58
Nah, waktu mau implementasi ke file yang sudah duluan exist ko keluarnya #NAME gitu?

Apa memang harus selalu dengan workbook yang baru?

—> kalo pindah komputer, apa kita harus buat lagi dari awal?

ada cara lebih mudah ga maseko?

thx yaa

jul said on December 5, 2007, 3:17 pm:

thx y
da memudahkan qu nyelesai tugas qu

ema said on December 7, 2007, 3:54 pm:

mas ko aku tersendat pada saat mengkopi dan paste list programnya , karena tampilan gambarnya nga muncul , tolong dong mas ,

Nandar said on December 15, 2007, 6:24 pm:

Aku mo minta tolong nih, apa ya code makronya kalo misalnya kita periksa dalam satu kolom, truss ada yang #N/A..nah yang baris #N/A ini mo dipindahkan ke sheet yang baru….thanks ya..

arie said on December 17, 2007, 5:39 pm:

thanks bgt rumus nya..
tinggal masukin ke cell..
jadi deh..

klo yg versi english nya gmn?
bisa di bikin rumus seperti bhs indonesia ngga?

klo yg dikasi skrip kayak yg diatas…
harus bikin interface yg baru ya..
buat nampilin terbilangnya

tolak_bala said on December 21, 2007, 11:37 am:

om boleh tanya ya ?? (tanya aja ntar pasti dijawab)..
heheheheee. thanks ya ??

gimana caranya mengubah angka desimal menjadi teks ?? misalnya gini : 8.55 ntar jadinya gini : delapan koma lima puluh lima ..
oke om yang baik dan rajin menabung thanks atas bantuannya.. semoga Tuhan Yang Maha Kuasa melindungi kita semua … Amiiiinnnnn…

fredi said on January 21, 2008, 1:28 pm:

terima kasih mas, saya sangat terbatu dengan cara ini

fredi said on February 2, 2008, 9:42 am:

mas lam kenal saya fredi.

mas eko saya mau tanya gimana klo pembulatan nilai ke ratusan?
contoh : 24734 menjadi = 24750 atau 24800
terima kasih

Fungsi Terbilang Excel, Mengubah Angka Ke Huruf. « c1p1 said on February 2, 2008, 8:10 pm:

[...] saya teringat dengan salah sati artikel yang di tulis maseko. [...]

Sanders said on February 11, 2008, 11:52 am:

Siang mas, saya baru lihat website ini pas lagi cari info tentang pembulatan nilai rupiah pada kasus yang ditanyakan sdr. Aan yaitu :

100.045 menjadi 100.000
313.921 menjadi 314.000 atau 313.500
204.349 menjadi 204.350
apakah bapak (atau yang pengomentar lain) bisa memberikan jawaban?

Bisa gak ya masEko, makasih banyak,… saya tunggu jawabannya… Trims lagi

aque said on February 14, 2008, 1:20 pm:

lam kenal. langsung saja, semisal saya mengetikan kata joko, kemudian sy akan mengambil huruf k nya saya. sy hrs menggunakan rumus apa yah. pleaseeee bantu me yah

otes said on February 26, 2008, 9:56 am:

saya punya masalah mengenai coversi macro lotos ke excel tolong dong cari solusinya

cool said on March 14, 2008, 9:27 am:

kalo pengen ada kurung tutup bukanya gmn yah

misal 100 –> (seratus rupiah)

betha said on March 28, 2008, 11:11 pm:

terima kasih sekali, kerna aku bekerja sering membuat RAB

uyajelek said on March 31, 2008, 6:11 pm:

WAHHHHH…… rame juga ya yang bahas exel,,,,,,

Mas eko harus bekerja keras nih…..
Semangat terus mas……… kita dukung mas eko…..

ciayo….

oh iya mas….. kita tunggu juga untuk terbilang versi englishnya ya….

(“,)

RIDWAN said on April 3, 2008, 10:00 pm:

TDK USAH PAKAI VB EDITOR JG BISA, HANYA DLM 1 SHEET SAJA, SUDAH BISA PAKAI U/ TERBILANG RUPIAH & USD. TERBUKTI SY BIKIN U/ DIKANTOR. HUBUNGI EMAI SY:INDONESIAGOOGLE@YAHOO.COM

sahabat said on April 10, 2008, 2:05 pm:

bagimana kalo diterapkan di Ms. Acces Mas… Mohon pencerahannya..
terima kasih…

mau saya output di reportnya….
fungsi harus di simpan : di modul or di event … or di mana…..

Haris said on April 18, 2008, 11:50 am:

Wah… Thanks berat boss, artikelnya sangat membantu

koentadi said on April 25, 2008, 8:27 pm:

Terima kasih banyak mas, sukses selalu

Mr-Manto said on May 3, 2008, 7:47 am:

Ma kasih banyak deh. smoga selalu jaya di dunia maya

mario benedicto said on May 19, 2008, 7:31 am:

bos gw mau nanya tipa kali gw melakukan kalkulasi =C52+$C$7 maka hasilnya 96.62 tapi ktika gw paste spesial value 96.6199999999999 pada formula mengapa hal ini terjadi padahal angka yang dijumlahkan hanya 2angka dibelakang point dan seharusnya nga hasil dari penghitungan pun 2 angka dibelakang koma

Ivan said on June 10, 2008, 11:11 am:

mas eko, mohon bantuannya
kenapa angka yang jmlhnya lebih dr 15 angka d bulatkan ya?
bagaimana caranya untuk tdk membulatkan angka tsb
karena angka yang saya pakai skitar 16-17 angka mas
apakah bs membantu
thanks before

sidaus said on June 17, 2008, 6:11 pm:

thanks banget mas eko…. ilmu ini sangat berguna

eiwan said on June 19, 2008, 8:50 am:

bro mosko, salam kenal…
keren abis dah….
terutama pas di add-in kan ke ms excel, biar di semua worksheet baru bisa di pake formula “terbilang”
hehe….

thanks…

Iis said on June 19, 2008, 10:09 am:

Terima kasih mas eko, akhirnya saya bisa juga ….
cuma masih ada satu lagi nich … punya gak terbilang untuk dollar, sebetulnya saya sudah ada tapi di setiap awal tulisan hurupnya selalu Kapital …

Terima kasih

eko wahyono said on June 23, 2008, 12:04 pm:

makasih mas, udah mbanyu aku tuk nemuinbingungku. soale aku butuh banget tuk buat laporan nilai dan kuitansi.

eko wahyono said on June 27, 2008, 11:56 am:

thank’s banyak mas, satu lagi tugasku tuk mbuat nilai skhu udah kelar. tapi klao mo nampilin nilai enam koma nol nol gimana yach? juga enam, tujuh dua gimana juga? mohon pencerahannya donk. thak’s.

ben said on August 9, 2008, 12:23 pm:

tq keren abiz )

yohanes Wattimena said on August 15, 2008, 12:28 pm:

gimana caranya membuat otomatis rumus dari sheet per sheet di microsoft exel 2003 bos ku lupa caranya,mohon bantuannya.

miko said on September 23, 2008, 12:05 pm:

kalo buat exel 2007 bisa tidak ya??

embun said on October 13, 2008, 11:20 pm:

waduh g mna ya aku sulit memahaminya soale aku belajar ms.exel juga belum lama g mna ya biyar cepet nyantolnya

epank said on October 29, 2008, 9:31 pm:

untuk pembuatan RAB bisanya gw pake fungsi bawaan excel =int(A1/1000)*1000
A1 = sel yg mau dibulatkan
1000 = pembulatan dalam ribuan (100 bila u ratusan)

Dhidhin said on November 24, 2008, 11:18 am:

aku ad module VB tuk baca angka (Itung-itung ikut sharing)

‘Module Baca_Angka
‘by Dhidhin Haris S
‘=====================
‘cara pakenya anda tinggal panggil fungsi :
‘ bacaangka(angka)
‘

‘untuk konversi numerik ke string
Private Function TAngka(Angka) As String
Select Case Angka
Case 0: TAngka = “nol ”
Case 1: TAngka = “satu ”
Case 2: TAngka = “dua ”
Case 3: TAngka = “tiga ”
Case 4: TAngka = “empat ”
Case 5: TAngka = “lima ”
Case 6: TAngka = “enam ”
Case 7: TAngka = “tujuh ”
Case 8: TAngka = “delapan ”
Case 9: TAngka = “sembilan ”
End Select
End Function

Private Function Angka3D(Angka) As String
‘memecah angka menjadi ratusan, puluhan dan satuan
sat = Mid(Angka, Len(Angka), 1)
If Len(Angka) >= 2 Then
pul = Mid(Angka, Len(Angka) – 1, 1)
If Len(Angka) = 3 Then
rat = Mid(Angka, Len(Angka) – 2, 1)
End If
End If

‘untuk ratusan
Select Case rat
Case 0: tr = “”
Case 1: tr = “seratus ”
Case Else: tr = TAngka(rat) & “ratus ”
End Select
‘untuk puluhan
Select Case pul
Case 0: tp = “”
Case 1: Select Case sat
Case 0: tp = “sepuluh ”
Case 1: tp = “sebelas ”
Case Else: tp = TAngka(sat) & “belas ”
End Select
GoTo final
Case Else: tp = TAngka(pul) & “puluh ”
End Select
‘untuk satuan
Select Case sat
Case 0: ts = “”
Case Else: ts = TAngka(sat)
End Select

final:
Angka3D = tr & tp & ts
End Function

Private Function BcAng(Angka) As String
Dim group(9)

Teks = “”
pj = Len(Angka)
If pj > 27 Then
MsgBox “Digit terlalu panjang ! ” & vbCrLf & “Maksimum 27 Digit”
Else
‘menghitung jumlah group
n = pj \ 3
‘untuk group sisa
If (pj Mod 3) 0 Then
group(n + 1) = Mid(Angka, 1, pj – 3 * n)
If group(n + 1) = 1 And ((n + 1) = 2 Or (n + 1) = 6) Then
Teks = “se”
Else
Teks = Angka3D(group(n + 1))
End If
If Teks “” Then
Select Case n + 1
Case 2: Teks = Teks & “ribu ”
Case 3: Teks = Teks & “juta ”
Case 4: Teks = Teks & “milyar ”
Case 5: Teks = Teks & “trilyun ”
Case 6: Teks = Teks & “ribu trilyun ”
Case 7: Teks = Teks & “juta trilyun ”
Case 8: Teks = Teks & “milyar trilyun ”
Case 9: Teks = Teks & “trilyun trilyun ”
End Select
End If
End If

‘untuk masing-masing group
For i = n To 1 Step -1
group(i) = Mid(Angka, pj – 3 * i + 1, 3)
If group(i) = 1 And (i = 2 Or i = 6) Then
Teks = Teks & “se”
Else
Teks = Teks & Angka3D(group(i))
End If

If Angka3D(group(i)) “” Then
Select Case i
Case 2: Teks = Teks & “ribu ”
Case 3: Teks = Teks & “juta ”
Case 4: Teks = Teks & “milyar ”
Case 5: Teks = Teks & “trilyun ”
Case 6: Teks = Teks & “ribu trilyun ”
Case 7: Teks = Teks & “juta trilyun ”
Case 8: Teks = Teks & “milyar trilyun ”
Case 9: Teks = Teks & “trilyun trilyun ”
End Select
End If
Next i
If Angka = 0 Then Teks = “nol”
BcAng = Teks
End If
End Function

Private Function AdaKoma(Teks) As Boolean
AdaKoma = False
For i = 1 To Len(Teks)
st = Mid(Teks, i, 1)
If st = “.” Or st = “,” Then
AdaKoma = True
End If
Next i
End Function

Private Function AdaRupiah(Teks) As Boolean
AdaRupiah = False
If UCase(Left(Teks, 2)) = “RP” Then AdaRupiah = True
End Function

Private Function AdaNegatif(Teks) As Boolean
AdaNegatif = False
If Left(Teks, 1) = “-” Then AdaNegatif = True
End Function

Public Function BacaAngka(Angka) As String
If AdaRupiah(Angka) Then
smt = BacaAngka(Right(Angka, Len(Angka) – 2))
BacaAngka = smt & ” rupiah”
Exit Function
End If

If AdaNegatif(Angka) Then
smt = BacaAngka(Right(Angka, Len(Angka) – 1))
BacaAngka = “negatif ” & smt
Exit Function
End If

If AdaKoma(Angka) Then
kt = InStr(1, Angka, “,”)
If kt = 0 Then sp = Split(Angka, “.”) Else sp = Split(Angka, “,”)
BacaAngka = BcAng(sp(0)) & ” koma ”
For i = 1 To Len(sp(1))
BacaAngka = BacaAngka & TAngka(Mid(sp(1), i, 1))
Next i
Else
BacaAngka = BcAng(Angka)
End If
End Function

sampuray_x said on November 25, 2008, 11:11 am:

maseko, gambarnya ko serem..
gambarnya kematian n kuburan, apakah ada yang nge hack…or emang sengaja ?

Muklis said on December 24, 2008, 3:54 pm:

mas tenk’s ya tuk skripnya ms excel, sy coba bisa
tapi kalau ms excelnya ditutup dan dibuka lagi fungsinya tidak jalan. apakah setiap menggunakan sekrip tersebut harus membuka lembar kerja baru lagi?
tolong beri sy soal dan pembahasan tentang ms excel ke email ini ; muk_lis@ymail.com.

salman said on December 26, 2008, 8:07 pm:

malem, saya mau tanya tentang excel!gimana si cara buat penjumlahan agar terbilangnya sama dengan hasil jumlah angkanya?

Fadjar Teguh Novianto said on January 6, 2009, 8:54 am:

mas ijin ngunduh….

iya mas kok step by step nya gambar kuburan gitu???

boleh kirim ke imel saya langkah2 pembuatan fungsi terbilang pada ms xcell nya mas? ke fadjar.tn@gmail.com bisa juga mas….

nuwun..

Fadjar Teguh Novianto said on January 6, 2009, 9:02 am:

oh iya mas lupa… klo di ms office 2007 gmn? sama ajakah?

makasi sekali lagi…

Dwi WJ said on January 7, 2009, 10:55 am:

Mohon ijin sharing Mas.
Script ini saya masukkan ke VBA. Utk contoh angka 25,655,245.36 akan dihasilkan : Dua Puluh Lima Juta Enam Ratus Lima Puluh Lima Ribu Dua Ratus Empat Puluh Lima Rupiah dan Tiga Puluh Enam Sen.
Penerapannya dng rumus =inrupiah(25655245.36)

Smoga bermanfaat
ndorodwi@gmail.com

mulai copy :
‘****************’ Main Function *’****************
Function Inrupiah(ByVal MyNumber)
Dim Rupiah, Sen, Temp, llSeribu
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = ” Ribu ”
Place(3) = ” Juta ”
Place(4) = ” Miliar ”
Place(5) = ” Trilyun ” ‘ String representation of amount
MyNumber = Trim(Str(MyNumber)) ‘ Position of decimal place 0 if none
DecimalPlace = InStr(MyNumber, “.”)
‘Convert cents and set MyNumber to Rupiah amount
If DecimalPlace > 0 Then
Sen = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & “00″, 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace – 1))
End If
Count = 1

Do While MyNumber “”
Temp = GetHundreds(Right(MyNumber, 3))
If Temp “” Then Rupiah = Temp & Place(Count) & Rupiah

If Len(MyNumber) > 3 Then
llSeribu = IIf(Len(MyNumber) = 4 And Mid(MyNumber, 1, 1) = _
“1″, True, False)
MyNumber = Left(MyNumber, Len(MyNumber) – 3)
Else
MyNumber = “”
End If
Count = Count + 1
Loop

Select Case Rupiah
Case “”
Rupiah = “Nol Rupiah”
Case “One”
Rupiah = “Satu Rupiah”
Case Else

If llSeribu Then
Rupiah = Trim(Rupiah) & ” Rupiah”
Rupiah = Application.Substitute(Rupiah, “Satu Ribu”, “Seribu”)
Else
Rupiah = Trim(Rupiah) & ” Rupiah”
End If

End Select
Select Case Sen
Case “”
Sen = “” ‘” dan Nol Sen”
Case “One”
Sen = ” dan Satu Sen”
Case Else
Sen = ” dan ” & Sen & ” Sen”
End Select

Inrupiah = Trim(Rupiah) & Sen

End Function
‘*******************************************
‘ Converts a number from 100-999 into text *
‘*******************************************
Function GetHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right(“000″ & MyNumber, 3) ‘Convert the hundreds place
If Mid(MyNumber, 1, 1) “0″ Then
If Mid(MyNumber, 1, 1) = “1″ Then
Result = ” Seratus ”
Else
Result = GetDigit(Mid(MyNumber, 1, 1)) & ” Ratus ”
End If
End If
‘Convert the tens and ones place
If Mid(MyNumber, 2, 1) “0″ Then
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If

GetHundreds = Trim(Result)

End Function
‘*********************************************
‘ Converts a number from 10 to 99 into text. *
‘*********************************************
Function GetTens(TensText)
Dim Result As String
Result = “” ‘null out the temporary function value
If Val(Left(TensText, 1)) = 1 Then ‘ If value between 10-19
Select Case Val(TensText)
Case 10: Result = “Sepuluh”
Case 11: Result = “Sebelas”
Case 12: Result = “Dua Belas”
Case 13: Result = “Tiga Belas”
Case 14: Result = “Empat Belas”
Case 15: Result = “Lima Belas”
Case 16: Result = “Enam Belas”
Case 17: Result = “Tujuh Belas”
Case 18: Result = “Delapan Belas”
Case 19: Result = “Sembilan Belas”
Case Else
End Select
Else ‘ If value between 20-99
Select Case Val(Left(TensText, 1))
Case 2: Result = “Dua Puluh ”
Case 3: Result = “Tiga Puluh ”
Case 4: Result = “Empat Puluh ”
Case 5: Result = “Lima Puluh ”
Case 6: Result = “Enam Puluh ”
Case 7: Result = “Tujuh Puluh ”
Case 8: Result = “Delapan Puluh ”
Case 9: Result = “Sembilan Puluh ”
Case Else
End Select
Result = Result & GetDigit _
(Right(TensText, 1)) ‘Retrieve ones place
End If

GetTens = Trim(Result)

End Function
‘*******************************************
‘ Converts a number from 1 to 9 into text. *
‘*******************************************
Function GetDigit(Digit)
Select Case Val(Digit)
Case 1: GetDigit = “Satu”
Case 2: GetDigit = “Dua”
Case 3: GetDigit = “Tiga”
Case 4: GetDigit = “Empat”
Case 5: GetDigit = “Lima”
Case 6: GetDigit = “Enam”
Case 7: GetDigit = “Tujuh”
Case 8: GetDigit = “Delapan”
Case 9: GetDigit = “Sembilan”
Case Else: GetDigit = “”
End Select
End Function

AriefDJ™ said on January 14, 2009, 11:31 am:

ThX a lot.. Sebelomnya pake fungsi biasa yang sangat ribet, dan cuman bisa utk 1 cell..

WHICAK said on January 20, 2009, 11:27 am:

Mas, kalau fungsi terbilangnya menggunakan rumus – rumus yang ada pada exel tidak menggunakan macro bisa tidak !!.

nino said on January 23, 2009, 9:13 pm:

q baru pertama belajar visual basic dalam excel,tlng dong mnta d krmin tutorialnya ke alamat e-mail q,bs g y maseko?

hardi said on January 24, 2009, 12:06 am:

malam mas eko, saya suka dengan makro excel, saya mau tanya2 nih… kalo dalam penjumlahan menggunakan makro excel selain dengan formula r1c1 ada lagi gak? dan gimana caranya supaya penjumlahan dapat menjumlah kebawah secara otomatis menggunakan makro? terima kasih sebelumnya mas eko.
kasih2 ilmu dikit yang saya tau nih, moga berguna
untuk merange kebawah makronya :
range(selection, selection.end(xldown)).select
untuk merange ke arah samping 1 colom :
range(selection, selection.offset(0,1)).select

farid said on February 9, 2009, 2:51 pm:

nas tolong berikan rumus hitung2an exel semua mas ya thanks

ahmad yani said on February 10, 2009, 2:16 pm:

Dear… Mas,..

Mas aku mo tanya cara merubah angka desimal seperti nilai menjadi bilangan, bagaimana yo mas, mis 45.50 menjadi empat lima koma lima nol, mohon sekali bantuanne mas, matur nuwun,….

dhoni said on March 3, 2009, 5:04 pm:

Maz gimana caranya mengaktifkan enable macros di microsoft access n apakah sama dengan excel memakai rumus =terbilang() di access,kl diaccessnya gmn carany???

nisah said on March 20, 2009, 4:51 pm:

Gambarnya itu lho…………serem bgt,horor

bima said on April 21, 2009, 1:11 am:

matur nuwun mas.

Cuwin Erlena said on April 21, 2009, 10:21 am:

Mas eko, saya sudah coba rumusnya.. tapi pas saya buka kenapa tidak muncul seperti gambar nomor 5. Jadi langsung muncul excel biasa. Bisa minta bantuan langkah-langkahnya. Terimakasih

hotmalida lubis said on April 30, 2009, 9:13 pm:

tolong kirimkan fungsi- fungsi dalam excel kami mw buat makalah tentang itu

akhmad jamhuri said on May 7, 2009, 11:24 pm:

gimana ya terjemahin angka 5,55 dan 22,55 pake formula excel ga pake visual basic, alias formula biasa. Tlng donk… lg perlu banget nih !

Tri said on May 13, 2009, 2:49 pm:

wah sip boss.
bagaimana kalo buat ke bahasaa inggris.
soalnya di kantor kita pake bahasa inggris buat ngeja rupiah
thanks

Rachmad said on May 31, 2009, 7:12 am:

Makasih banyak Mas Eko, aku telah dapat yang dicari-cari.
Namun sekarang timbul soal baru tolong dibantu ya … Mas

Gimana edit vb-nya agar menghasilkan terbilang yang diapit tanda misalnya :

>>> Tiga belas ribu rupiah <<<

makasih Mas bantuanya

Bambang Gunarso said on May 31, 2009, 12:26 pm:

Pak Eko…, Setelah kode saya copy-paste kenapa, ya praktiknya angka yang dalam bentuk desimal tidak bisa muncul.Contohnya : 25,57 terbilang : Dua puluh lima rupiah lima puluh tujuh sen? Mestinya, kan Dua puluh lima koma limapuluh tujuh.Tolong dong solusinya karena ini banyak digunakan untuk penulisan nilai UAS dan sebagainya. Makasih banget sebelumnya.

Yacub said on June 10, 2009, 10:41 pm:

kog gambar 2 dll
di ganti enggak jelas begitu
saya pingin belajar nich mas

Tolong yach mas

Thank’s

antares said on July 5, 2009, 2:04 pm:

semoga kesehatan, karuniaa selalu dilimpahkan ke pengelola website ini (MASEKO),….

thanks for all

Heru said on July 7, 2009, 2:13 pm:

Thanks ya tipsnya,..sangat membantu,…

tha tha said on July 22, 2009, 10:40 am:

cinta cetengteng . . .

ray said on July 22, 2009, 4:22 pm:

kalau dalam exel 2007 bagaimana? terima kasih

ACONK2009 said on August 10, 2009, 10:13 am:

?????????????????????????????????????????????

Boodee said on August 20, 2009, 5:16 pm:

Jika ingin meimplementasikan fungsi ini di excel 2007, bula file baru, lalu masuk ke VBA, copy-paste sources code nya ke module1, lalu, save as file sebagai file add-ins excel (file dengan ekstensi .xla).
lalu daftarkan sebagai add-ins baru.

Indra said on September 30, 2009, 3:13 pm:

Keren Banget …

topless said on November 14, 2009, 1:27 am:

weh… sip tenan mas eko… matur suhun ngelmunya…saya udah hampir 2 minggu semedi di depan komputer nyari cara nerjemahin angka ke huruf … ternyata suhu eko ngasih … sip lah … mkasih bangetsss …

ryan said on December 20, 2009, 1:35 pm:

Makasih maseko.. really helping a lot..

greatlex said on December 24, 2009, 12:24 pm:

bg yg mau pembulatan ke atas atao ke bawah bisa gunakan fungsi ceiling utk pembulatan ke atas atau floor utk pembulatan ke bawah

je41 said on December 27, 2009, 5:43 am:

nice info… :)

Heru said on December 31, 2009, 7:10 pm:

mas Eko,…mau nanya klo aku pake office 2007 rada beda di alt+f11 juga gak keluar macro beda ya,..??? thanks

sudiono said on December 31, 2009, 8:20 pm:

thanks,all.
ilmu pengetahuan ” terblang” membntu saya dlm membuat laporan keuangan.

syafir said on January 27, 2010, 3:25 pm:

wah terimakasih mas! kalu ada rahasia lagi tolong kirim ke email saya ! saya sangat membutruhkanya!
semoga ilmu anda bertambah!

Setiyo Utomo said on January 28, 2010, 9:33 pm:

Ijin Download listing programnya ya mas. makasih, salam kenal.

Sriyono said on March 30, 2010, 9:15 am:

Tolong donk gemana ya mengkonversi angka 6,72 ( enam koma tujuh puluh dua) atau angka dua digit dibelakang koma, karena penting untuk penulisan nilai .Thank sebelumnya.

bladuz said on March 30, 2010, 12:58 pm:

dear All,

gw awam neh ma excel 2007
kl mw buletin angka didepan koma gmn y?
ex: 2475 = 2500
gw liat dari list diatas, ada yg nanya tp gk dijawab
tulung dong
mohon petunjuknya buat master2 yg ada disini
thanks

july said on April 4, 2010, 11:08 am:

master mau tanya ne,coding untuk

lius said on April 4, 2010, 11:31 am:

mo minta bantuan pada smua master disini,bagaimana cara nya agar scroll bar pada ms.excel tidak berfungsi atau kita hanya ingin menampilkan cell (A1:P27) sedangkan cells yg lain tidak dapat di lihat walaupun menggunakan scroll bar horizontal/vertical….terima ksh byak…tolong banget bntuanya…saya lagi butuhhh banget master….

darnoto said on April 5, 2010, 4:03 pm:

Mas eko. saya sudah coba untuk rupiah hasilnya ok.
Mas minta untuk english untuk dollar atau Yen ada nggak code program nya. trima kasih.
Saya coba dari Dwi.WJ dan Dhidhin tapi syntac error.

darnoto said on April 5, 2010, 4:13 pm:

Mas Andre Wirabuana/Mas Eko.
Mas saya sudah coba kiriman dari Mas andree tapi syntac error kenapa ya.

bim said on April 9, 2010, 2:56 pm:

Mas, gambarnya banyak yang pada ngaco tuh… ehehhehe… oya, ada yang bahasa inggris ga mas?
minta juga dong.
Trims

Dedy.awaludin said on April 17, 2010, 11:43 am:

mas atau emba saya ingin sekali belajar tentang ms,exsel.

suyanto said on April 24, 2010, 9:01 am:

Terima kasih atas pemberian nya.
Saya doakan tambah pintar.

aris said on May 6, 2010, 9:19 am:

kok gambarnya jadi SEREM, Mas Eko?

esa said on May 19, 2010, 3:48 pm:

mas, saya minta bantuan, tolong buatkan list program terbilang untuk penulisan Ijazah/daftar nilai ujian, karena ada beda dengan list program yg mas buat terutama dalam ejaan dibelakang desimal, contoh : 84,00 harus ditulis delapan puluh koma nol nol, 84,10 ditulis delapan puluh empat koma satu nol, 84,45 ditulis delapan puluh empat koma empat lima, tolong kirim via email, ya mas, trims atas bantunannya.

esa said on May 19, 2010, 3:53 pm:

ralat comment terdahulu!
mas, saya minta bantuan, tolong buatkan list program terbilang untuk penulisan Ijazah/daftar nilai ujian, karena ada beda dengan list program yg mas buat terutama dalam ejaan dibelakang desimal, contoh : 84,00 harus ditulis delapan puluh empat koma nol nol, 84,10 ditulis delapan puluh empat koma satu nol, 84,45 ditulis delapan puluh empat koma empat lima, tolong kirim via email, ya mas, trims atas bantunannya. kalau bisa secepatnya, soalnya perlu untuk print daftar nilai hasil ujian/raport!!

daniel said on May 27, 2010, 3:35 pm:

mas cuma mau nanya 45.50 bsa dibulatkan gakh menjadi 46

daniel said on May 27, 2010, 3:39 pm:

mas kirimnya cepetan ya!!
45.50 bsa jadi 46.00 gakh
kirim ke email saya aja mas ….

Zak boy said on July 9, 2010, 6:43 pm:

Mas, knapa setting macro pada excel 2007 redup tapi pd excel 2010 kelihatan jelas………..trim’s

Rudy Darminto said on July 17, 2010, 10:32 am:

Terima kasih maseko & temen yg lain. Dapat meringankan pekerjaan saya, dan menambah wawasan saya.

ivan said on August 18, 2010, 9:18 pm:

mas kenapa klo koma dua puluh hanya di baca koma dua?
dan untuk pembulatan dari tiga atau empat decimal dijadikan 2 desimal yang kebaca bukan yang dua decimalnya?
makasi…klo bisa tolong dibales juga ke email saya ya mas

Obie said on August 28, 2010, 1:46 am:

Sebeumnya terima kasih.. karena posting ini sangat membantu..
tapi masih ada yang mau ku tanya nih mas..
gimana kalo memunculkan angka 0 (nol) dibelakang koma, seperti pada angka 10,00 dibaca “Sepuluh koma nol nol” atau 10,10 dibaca “sepuluh koma sepuluh”
karena mau dipake untuk nilai raport :)
terima kasih.

armovi said on September 1, 2010, 10:55 pm:

saya mau nanya gimana cara membuat tabel pada kolom sudah ada datanya yang data/ nama barang sdh ada, kl kita mau tidak perlu menulis cuma nyebut kode saja,maksh

Aulia said on November 30, 2010, 8:48 am:

Thanks z dech bwt kalian semua bwt infonya ….

ADI said on December 2, 2010, 3:05 pm:

brow gimana cara sum word klo itu bukan number
contoh pehingtungan absen yang misal dalam 1 bulan kita tandai dengan ( X ) ..apakah harus di convert ke number ..mohon bantuannya!

fian said on December 8, 2010, 9:22 pm:

mantap mas eko , mw belajar nih

fian said on December 8, 2010, 9:23 pm:

mas eko, apa program ini bisa digunakan di ms07?

muhammad usman said on December 18, 2010, 1:42 pm:

mas, bisa nggak kalo seandainya 2 angka di belakang koma itu “00″ seperti contoh : 60,00 maka terbilangnya menjadi Enam Puluh koma Nol. tolong mas…!!

thnks

siiap said on January 29, 2011, 11:50 am:

matur sembah nuwun Mas, .. akhirnya ketemu juga ..

rizka said on February 24, 2011, 1:38 pm:

ini rumus ada rupiahnya kah? trus gambarnya gak bisa diliat tuh, gak nge-load ^_^

Rusli said on March 3, 2011, 3:21 pm:

Mas,

makasih atas tipsnya. sangat membantu.

sekalian nanya….
gimana caranya supaya angka hasil perkalian di access itu tidak ada pembulatan? contoh: nilai 19.200.000 di access tertulis 19.199.998.

Terima kasih

wayansuartawa@yahoo.com said on March 9, 2011, 7:37 am:

mas,
makasih infonya, saya sudah bisa jalankan intruksinya di laptop dan pc tapi mau di laptop lain koq nggak muncul user definednya…? gimana solusinya…trims banget.

Awal said on April 1, 2011, 10:44 am:

Mas Gambar gambarx kok munculx Kodok dalam kotak……
mas mo tanya neh…. klo mau merubah Angka menjadi Teks bagaimana…?
misalnya pada Kolom A1 3.25 pada kolom B1 akan tertulis Tiga Koma Dua Lima itu bagaimana caranya?
klo bisa kirim ke email saya aja mas….
Tanks matur suwun…

lalu said on April 4, 2011, 8:00 pm:

Mas.. saya bingung,, krna sy pke ofice 2007.. copy list program gk bs ktemu.. mohon jawabannya

asepsuhendi said on April 28, 2011, 6:43 pm:

Mas saya baru belajar exel, bisa minta tolong gmana cara pembuatan makro di exel mengenai cara menerjemahkan angka kedalam hurup secara detail terima kasih sebelumnya

Joe said on May 5, 2011, 10:49 pm:

mas bleh nax klo mengubah teks menjadi bilangan biner gimana yach??
tolong dong ….
terima kasih …!!!!

asepsuhendi said on June 11, 2011, 9:42 pm:

tolong kepada siapa saja bisa buatkan kode makro untuk membuat angka dibaca jadi hurup seperti kasus ini :

23,45 dibaca Dua Tiga koma Empat lima

sebelumnya terima kasih banyak

zain said on June 29, 2011, 7:32 pm:

kalo menghilangkan rupiah gmana ya…

agung said on July 13, 2011, 9:55 am:

mohon dibantu untuk soucrce codenya menambahkan kalimat (SEN) angka dibelakang koma contoh 84,10 ditulis delapan puluh empat koma sepuluh sen. Tkb

Menerjemahkan Angka ke Kata-kata di dalam Microsoft Excel « David hehehe is me said on November 23, 2011, 10:04 am:

[...] Menerjemahkan Angka ke Kata-kata di dalam Microsoft Excel July 25, 2005 by maseko [...]

david hehehe said on November 23, 2011, 10:08 am:

mas, kalo fungsi nya dalam usd atau dolar gmn ya fungsinya…

Ardian said on December 29, 2011, 11:07 am:

thanks a lot buat infonya mas Eko, saya mau tanya mas.. untuk pemindahan data otomatis antar sheet gimana ya mas?saya mau bikin row data di sheet1 yang input data-nya dari sheet2. thank before ..

Diens said on January 28, 2012, 2:04 pm:

#175
bantu jawab sederhana saja.
misal data sheet 1 mau otomatis pindah ke sheet 2.
di sheet 2 tetukan cel mana yang mau diisi. ketik aja = (sama dengan) tanpa meindahkan kursor langsung klik/ ganti sheet 1.
jadi
ketika menulis disheet 1.
otomatis pindah ke sheet 2.

mudah-2an membantu ^-^

yudo cahyono said on February 5, 2012, 12:12 am:

sy mati langkah pada point ke-4
tdk paham dlm menerapkannya, krn gbr.2 tdk jelas..
tolong bantuan sejelas2nya.. tksh.. agar sy bs melanjutkan tahapanx..