Membuat Terbilang pada Excel ke 1
Anda sering membuat kuitansi untuk klien anda? atau anda sering membuat terbilang dalam huruf untuk suatu jumlah tertentu? Sekarang saya akan menjelaskan bagaimana membuat terbilang dalam huruf melalui macro excel.
- Buka aplikasi excel anda.
- Pada menu, klik Tools > Macro > Macros.
- Muncul kotak dialog Macro. Pada bagian macro name ketik “dghrf” seperti pada gambar dibawah ini.
- Klik “Create”.
- Anda akan mendapat kotak dialog seperti gambar dibawah ini.
- Tekan tombol Ctrl+A kemudian tekan tombel Del untuk menghapus kode pada gambar di atas.
- Salinlah kode berikut ke dalam window Module1.
- Dim Huruf(0 To 9) As String
Dim ax(0 To 3) As Double
Function INIT_angka()
Huruf(0) = “”
Huruf(1) = “satu “
Huruf(2) = “dua “
Huruf(3) = “tiga “
Huruf(4) = “empat “
Huruf(5) = “lima “
Huruf(6) = “enam “
Huruf(7) = “tujuh “
Huruf(8) = “delapan “
Huruf(9) = “sembilan “
End Function
Function dgratus(angka As Double) As String
Temp = “”
INIT_angka
panjang = Len(Trim(Str(angka)))
nilai = Right(”000″, 3 - panjang) + Trim(Str(angka))
For y = 3 To 1 Step -1
ax(y) = Mid(nilai, y, 1)
Next y
Select Case ax(1)
Case Is = 1
Temp = “seratus “
Case Is > 1
Temp = Huruf(Val(ax(1))) + “” + “ratus “
Case Else
Temp = “”
End Select
Select Case ax(2)
Case Is = 0
Temp = Temp + Huruf(Val(ax(3)))
Case Is = 1
Select Case ax(3)
Case Is = 1
Temp = Temp + “sebelas”
Case Is = 0
Temp = Temp + “sepuluh”
Case Else
Temp = Temp + Huruf(Val(ax(3))) + ” belas”
End Select
Case Is > 1
Temp = Temp + Huruf(Val(ax(2))) + “puluh”
Temp = Temp + ” ” + Huruf(Val(ax(3)))
End Select
dgratus = Temp
End Function
Function DGHRF(angka As Double) As String
Dim ratusan(0 To 6) As String
Dim sebut(0 To 4) As String
sebut(1) = ” ribu “
sebut(2) = ” juta “
sebut(3) = ” milyar “
sebut(4) = ” trilyun “
panjang = Len(Trim(Str(angka)))
kali = Int(panjang / 3)
If Int(panjang / 3) * 3 <> panjang Then
kali = kali + 1
sisa = panjang - Int(panjang / 3) * 3
nilai = Right(”000″, 3 - sisa) + Trim(Str(angka))
Else
nilai = Trim(Str(angka))
End If
For x = 0 To kali
ratusan(kali - x) = Mid(nilai, x * 3 + 1, 3)
Next x
For y = kali To 1 Step -1
If y = 2 And Val(ratusan(y)) = 1 Then
Temp = Temp + “seribu “
Else
If Val(ratusan(y)) = 0 Then
Temp = Temp
Else
Temp = Temp + dgratus(Val(ratusan(y)))
Temp = Temp + sebut(y - 1)
End If
End If
Next y
DGHRF = Temp & ” rupiah”
End Function
- Klik save kemudian tutup window macro untuk kembali ke window excel.
- Misalkan anda mempunyai data seperti pada gambar dibawah ini.
- Untuk menggunakan fungsi macro yang telah dibuat maka ketik ‘=dghrf([sel berisi angka yang ingin dibuat terbilang])’
- Cara penggunaannya bisa anda lihat pada gambar di poin 13.
- Kelemahan pada fungsi ini adalah tidak mampu membuat terbilang dari angka yang mempunyai koma misalnya 1.234,56. Mungkin jika suatu saat nanti saya mendapatkan source terbilang yang bisa digunakan pada angka yang mempunyai koma akan saya posting di sini.
Boleh juga nih…
Klo untuk bhari bulan dan tanggal bisa gak ya..
misalnya :
2 september 2009
Pada Hari Rabu Tanggal 2 September Tahun Dua Ribu Sembilan…
Gimana bikin scriptnya ?
Reply
Boleh juga nih…
Klo untuk bhari bulan dan tanggal bisa gak ya..
misalnya :
2 september 2009
Pada Hari Rabu Tanggal Dua Bulan September Tahun Dua Ribu Sembilan…
Gimana bikin scriptnya ?
Reply