News Update :

Membuat Fungsi Terbilang Di Microsoft Excel 2010

Jumat, 03 Februari 2012


Membuat Fungsi Terbilang Di Microsoft Excel 2010
 
Fungsi terbilang disini adalah fungsi untuk mengkonversi angka menjadi terbilang. Contoh angka 2.500 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 :
1.     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.
Lihat Gambar. 1 di bawah ini..”


Gambar. 1
2.     Buat sebuah module baru dengan cara klik menu Insert > Module
Lihat Gambar. 2 di bawah ini..”



Gambar. 2
3.     Buat sebuah module baru dengan cara klik menu Insert > Module
Lihat Gambar. 3 di bawah ini..”


Gambar. 3

4.     Kemudian tambahkan script >> Tekan Tombol Pada Keyboard Anda (Ctrl + C) Untuk Meng Copy Lalu Paste (Ctrl + V) kedalam insert module (Seperti Gambar 3) :
Script :
————————————————————————-
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
————————————————————————–
5.     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)
Lihat Gambar. 4 di bawah ini..”


Gambar. 4
6.     Kemudia di cell yang yang lain / tempat menaruh hasil terbilang ketikkan formula =terbilang(C5)
Lihat Gambar. 5 di bawah ini..”


Gambar. 5
7.     Kemudian di cell tersebut akan muncul hasil terbilang yaitu Satu Juta Dua Ratus Lima Puluh Ribu Dua Ratus
Lihat Gambar. 6 di bawah ini..”


Gambar. 6
8.     Jika ingin di belakang hasil terbilang ada kata Rupiah tambahkan di dalam formula =terbilang(C5) & “Rupiah
Lihat Gambar. 7 di bawah ini..”


Gambar. 7
9.     Hasil nya…”
Seperti ….”
Lihat Gambar. 8 di bawah ini..”


Gambar. 8
10.   Selesai…"
Next …. Finish… >>>
Semoga bermanfaat…”(^_^)
Share this Article on :

5 komentar:

Anonim mengatakan...

sori mau nanya kl mau masukin misalnya
Rp. 2.000 : # Dua Ribu Rupiah #
Itu Bagaimana yah? thx

Anonim mengatakan...

Rp nya setting Currency aja biar isinya tetap 2000.

denyEdison mengatakan...

tapi maksimalnya 2 milyar, kalau tiga milyard ga mau

Anonim mengatakan...

tulis seperti ini kalo mau masukan tanda # dua ribu rupiah #

&"# " &terbilang(short cell 2000nya)&" Rupiah #"

Anonim mengatakan...

bagaimana caranya supaya dua angka dibelakang koma bisa menjadi terbilang?

Poskan Komentar

 

© Copyright Soft Connection 2011 -2013 | Design by Dicky Veryansyah | Published by Cool Templates | Powered by Blogger.com.