MEMBUAT FUNGSI TERBILANG MICROSOFT EXCEL 2000

14 01 2008

Fungsi terbilang disini adalah fungsi untuk mengkonversi angka menjadi terbilang. Contoh angka 2500 akan dikonversi menjadi dua ribu lima ratus, fungsi ini banyak digunakan untuk membuat faktur, nota atau kwitansi. Untuk membuat fungsi ini di Microsoft Excel caranya sebagai berikut:

  • Buat document baru, atau buka document yang sudah ada dan ingin diberi fungsi terbilang ini. Kemudian buka Microsoft Visual Basic Editor dari menu Tools > Macro > Visual Basic Editor atau langsung tekan tombol Alt + F11.
Visual Basic Editor
  • Buat sebuah module baru dengan cara klik menu Insert > Module kemudian tambahkan script berikut. :
    ————————————————————————-
    Function Terbilang(n As Long) As String ‘max 2.147.483.647
    Dim satuan As Variant
    On Error GoTo terbilang_error
    satuan = Array(“”, “Satu”, “Dua”, “Tiga”, “Empat”, “Lima”, “Enam”, “Tujuh”, “Delapan”, “Sembilan”, “Sepuluh”, “Sebelas”)
    Select Case n
    Case 0 To 11
    Terbilang = ” ” + satuan(Fix(n))
    Case 12 To 19
    Terbilang = Terbilang(n Mod 10) + ” Belas”
    Case 20 To 99
    Terbilang = Terbilang(Fix(n / 10)) + ” Puluh” + Terbilang(n Mod 10)
    Case 100 To 199
    Terbilang = ” Seratus” + Terbilang(n – 100)
    Case 200 To 999
    Terbilang = Terbilang(Fix(n / 100)) + ” Ratus” + Terbilang(n Mod 100)
    Case 1000 To 1999
    Terbilang = ” Seribu” + Terbilang(n – 1000)
    Case 2000 To 999999
    Terbilang = Terbilang(Fix(n / 1000)) + ” Ribu” + Terbilang(n Mod 1000)
    Case 1000000 To 999999999
    Terbilang = Terbilang(Fix(n / 1000000)) + ” Juta” + Terbilang(n Mod 1000000)
    Case Else
    Terbilang = Terbilang(Fix(n / 1000000000)) + ” Milyar” + Terbilang(n Mod 1000000000)
    End SelectExit Function
    terbilang_error:
    MsgBox Err.Description, vbCritical, “^_^Terbilang Error”
    End Function
    ————————————————————————–
  • Tutup kembali Visual Basis Editor dan kembali ke lembar kerja excel, coba ketikkan angka sembarang di sembarang tempat. Misal di cell C5 ketikkan 1250200 (nb: Maksimal 2147483647)
  • Atau jika anda bingung cara memasukkan Function diatas download MS Excel add-ins di sini dan tambahkan lewat menu tools > Add-Ins
add-in
  • Browse hasil extract file yang barusan di download, sampai Add-Ins terbilang masuk dalam daftar Add-Ins
add-in2
  • Kemudia di cell yang yang lain / tempat menaruh hasil terbilang ketikkan formula =terbilang(C5)
  • Kemudian di cell tersebut akan muncul hasil terbilang yaitu satu juta dua ratus lima puluh ribu dua ratus

Terbilang
  • Jika ingin di belakang hasil terbilang ada kata Rupiah tambahkan di dalam formula =terbilang(C5) & “Rupiah”

Semoga bermanfaat

« »


Tindakan

Information

27 tanggapan

21 01 2008
Raynold (07:05:13) :

Hai,..

Melihat list fungsi terbilang yang anda buat, sepertinya jauh lebih sederhana dan singkat dari pada fungsi terbilang lain yang banyak dipublish di internet..

terimakasih atas pencerahannya

Balas
20 03 2008
kiki trilarasati amalia (07:42:37) :

memang lebih sederhana tapi bagiku ini gak ngerti….maaf tolong di perjelas…..!

Balas
14 04 2008
jasow (04:02:36) :

kk bisa gak program ini jalan di office 97.
mohon bantuannya soalnya error saya pas jalan di office 97.
mohon di email ke saya source buat office 97.

terima kasih banyak.

Balas
11 05 2008
Rudi (06:04:47) :

Terima kasih semoga bisa bermanfaat bagi saya yang biasa membuat kuitansi. Kapan topik Excel yang dihubungkan dengan Peta dibuat. Makasih banyak

Balas
18 05 2008
ary.sbg (04:37:59) :

saya sangat tertarik, tp ada kesulitan dalam hal add-insnya, ada yg bisa nolongin nga ?
trims…

Balas
18 05 2008
ary.sbg (06:51:50) :

sekarang udah aku add-ins tapi nga running, gimana dong mas…?

Balas
13 08 2008
ismail (02:02:17) :

kalo terdapat angka minus gimana bang!

Balas
14 08 2008
eko purnomo (12:48:50) :

wah wah ternyata banyak yang comment ya …
makacih banyak atas commentnya
tapi maap untuk sementara yang saya kasih tanggapan yang terakhir dulu ya

klo pengen ketika terdapat kata “Minus” sebelum angka ketika menemukan angka minus berarti tambahkan codingnya menjadi berikut
—–
Function Terbilang(n As Long) As String ‘max 2.147.483.647

Dim satuan As Variant, Minus As Boolean

On Error GoTo terbilang_error

satuan = Array(“”, “Satu”, “Dua”, “Tiga”, “Empat”, “Lima”, “Enam”, “Tujuh”, “Delapan”, “Sembilan”, “Sepuluh”, “Sebelas”)

If n < 0 Then

Minus = True

n = n * -1

End If

Select Case n

Case 0 To 11

Terbilang = ” ” + satuan(Fix(n))

Case 12 To 19

Terbilang = Terbilang(n Mod 10) + ” Belas”

Case 20 To 99

Terbilang = Terbilang(Fix(n / 10)) + ” Puluh” + Terbilang(n Mod 10)

Case 100 To 199

Terbilang = ” Seratus” + Terbilang(n – 100)

Case 200 To 999

Terbilang = Terbilang(Fix(n / 100)) + ” Ratus” + Terbilang(n Mod 100)

Case 1000 To 1999

Terbilang = ” Seribu” + Terbilang(n – 1000)

Case 2000 To 999999

Terbilang = Terbilang(Fix(n / 1000)) + ” Ribu” + Terbilang(n Mod 1000)

Case 1000000 To 999999999

Terbilang = Terbilang(Fix(n / 1000000)) + ” Juta” + Terbilang(n Mod 1000000)

Case Else

Terbilang = Terbilang(Fix(n / 1000000000)) + ” Milyar” + Terbilang(n Mod 1000000000)

End Select

If Minus = True Then

Terbilang = “Minus” + Terbilang

End If

Exit Function

terbilang_error:

MsgBox Err.Description, vbCritical, “^_^Terbilang Error”

End Function

——-

atau file nya bisa di download di sini
file add-in : Terbilang.xla
file txt : terbilang.txt

Balas
14 08 2008
eko purnomo (12:54:57) :

Terus bwt mas ary.sbg klo masih ga bisa dengan add-in nya mas ary bisa buwat sendiri module nya dengan cara masuk visual basic application editornya, atau langsung tekan alt + F11. Kemudian tambahkan module baru dan isikan codingnya sama seperti terbilang.txt yang bisa di download di comment sebelumnya

Balas
28 10 2008
alali (06:17:34) :

salam kenal, rumus yang anda berikan sangat bermanfaat ketika saya menyelesaikan pekerjaan, kemudian maaf, saya sampai sekarang belum menemukan rumus sbb :
A1=2 rim X Rp.30.000 atau A1=2 org x 2 hr x Rp.10.000 dan B1 adalah hasil penghintungan “angka” sel A1 lalu bagaimana rumusnya B1 agar B1=Rp. 60.000 atau B1=Rp. 40.000; sekian kiranya berkenan membantu terima kasih banyak sebelumnya.

Balas
28 10 2008
eko purnomo (06:37:57) :

untuk penulisan di A1=2 rim jangan di ketik “2 rim” tapi tetep ketikkan angka 2 saja supaya bisa bibuat penjumlahan atau perkalian. Sedangkan untuk menampilkan tulisan rim dibelakangnya adalah dengan cara format cell > pilih custom > kemudian ketikkan 0 “rim” > OK. Maka format tampilan akan menjadi 2 rim ( tapi data yang masuk cuma 2 saja. sedangkan untuk Rp 10.000 formatnya currency pilih simbol Rp.

coba buka file contoh berikut http://www.ziddu.com/download/2509187/xls_hitung_terbilang.zip.html

Balas
31 10 2008
alali (04:44:44) :

maaf tanya lagi !
Setelah membaca tulisan/script terbilang di module saya ingin sekali bisa menguasai semacam itu agar bisa menyelesaikan masalah dan membantu orang lain, tapi bagaimana ya caranya belajar mudah membuat program seperti itu ?
maaf beri saya penjelasan, terima kasih

Balas
6 11 2008
kank_agus (23:54:20) :

Thank sharingnya, wah macrosnya keren, tapi gimana ya kalau ada komanya. misal 80,15 jadi tertulis Delapan Puluh koma satu lima.

Balas
7 02 2009
Trisno Pujianto (10:07:53) :

S tertarik dengan situs ini , sy minta tolong sbb:
Sy buat entri data MTCN ( 10 digit, tidak boleh ada yg kembar ) di sel A1, A2 ,A3 dst…
Misal data sudah banyak contoh : 1234567890 pernah dientri jika ada data tsb diinput lagi muncul pesan/warning ,dan mengijinkan jika datanya beda
caranya gimana, ?
Trims?

Balas
16 02 2009
eko purnomo (06:56:57) :

bwt mas trisno sudah sy coba bwtkan macro nya, en bisa coba download document ini

http://www.ziddu.com/download/3537477/xls_cek_double.zip.html

Semoga membantu..

Balas
28 02 2009
Rudee (08:01:50) :

thx berat bozzz…
sangat bermanfaat….

Balas
28 02 2009
Rudee (08:06:57) :

mas, klo angkanya ampe satu 100 milyar, fungsi yang mana yang bisa diganti, mhn pencerahan….

Balas
28 02 2009
eko purnomo (09:11:35) :

rubah baris pertama

Function Terbilang(n As Long) As String

dengan

Function Terbilang(n As Double) As String

Balas
2 04 2009
Seto (13:21:45) :

Mas…. Aku butuh decimal nya… bisa ngga ya ???

Balas
13 04 2009
baiio (14:06:07) :

terimaa kasii banyag ya ,pagg

Balas
15 04 2009
gustom (12:26:46) :

Bagaimana kalau ada pecahan desimalnya ?

Balas
8 06 2009
linksys (02:08:20) :

salam kenal mas…
aku mo tanya, bagaimana cara membuat fungsi terbilang 2 baris?
misal nya 1.525.645.
pada baris pertama terbilang satu juta lima ratus dua puluh
pada baris kedua lima ribu enam ratus empat puluh lima
Terima kasih atas bantuan nya mas

Balas
10 06 2009
Abdurrahman Suryadi (08:11:29) :

Terima kasih mas atas ilmunya.
Boleh nanya g mas ? coz saya bingung nih…dah nyoba berkali-kali tapi belum bisa. maklum pemula.
Bagaimana cara membuat fungsi yang bisa menghitung angka misalnya “43530″ menjadi “empat tiga lima tiga kosong”?
Terima kasih atas bantuannya mas?

Balas
17 07 2009
IRIN (09:00:23) :

Mas, kalo untuk fungsi terbilang sampai 10 milyar bagaimana buatnya ? dan untuk terbilang jumlah 0 rupiah = nihil fungsi nya bagaimana buatnya, aku kerja di pemerintahan jadi fungsi ini termasuk penting, tolong bantuannya

Balas
22 07 2009
eko purnomo (09:23:41) :

kalo sampe 10 milyar lebih tinggal nambah aja casenya…

sedang untuk 0 = nihil tambahkan setelah On Error GoTo terbilang_error

if n=0 then
terbilang=”nihil”
exit function
end if

Balas
20 08 2009
BRAJA (05:58:38) :

Ini link dll untuk terbilang bisa digunakan untuk C, C++, PHP, ASP, Power Builder, VB6, .NET, Delphi, Foxpro, VBA. Dll ini tidak membutuhkan runtime dll atau tidak ada ketergantungan dengan dll lain, jadi betul2 berdiri sendiri. berbeda dengan kebanyakan dll terbilang yang membutuhkan runtime dll, misalnya dll terbilang yg dibuat pake VB6 akan membutuhkan msvbvm60.dll.

http://www.4shared.com/file/100338435/9b509b52/TerbilangTest.html?s=1

Balas
10 09 2009
Dirto (01:31:34) :

Ok kirim aku email

Balas

Tinggalkan komentar