Membuat Fungsi Terbilang pada Microsoft Excel

Stop-jump.blogspot.com Sobat Jumper, Apa itu fungsi terbilang pada microsoft excel ? Fungsi terbilang adalah fungsi yang dapat mengkonversi dari angka menjadi teks, contohnya kita tuliskan “123” maka dengan memanfaatkan fungsi terbilang akan di konversi menjadi “satu dua tiga”. Nah loh kok isooooo, piye carane toh ?”

Tenang saja sobat Jumper ( Fans stop-jump.blogspot.com he..he... ) akan saya kasih ilmune yah, biar jadi ilmu yang manfaat insya Alloh.

Kali ini fungsi terbilang pada microsoft excel saya buat menggunakan VBA Script di Microsoft Excel, apa itu ? ga usah diterangin saja ya, tambah mumet, ini untuk ranahnya Programmer sih, intinya kan mau buat fungsi terbilang” he..he.... Langsung mulai saja gan .. !
Buka Microsof Excel (yang saya pake Ms. Excel 2010, padahal sekarang sudah jamanya Excel 2013 ya.he...he.. Sebenarnya sudah pake sih yang 2013 cukup lama juga namun karena beberapa hal akhirnya kembali lagi pake 2010, asal jangan pake yang 2007 apalagi yang 2003/2002 ya gannnnn. he.he....Sudah aktif belum TAB/Menu Developernya ? klo belum aktifkan dulu ya ! File => Option => Customize Ribbon à Contreng bagian Developer

Kembali ke Halaman awal microsoft excel, lihat Tab/Menu Developer apakah sudah mencul apa belum ! klo sudah lanjut ke langkah berikutnya

Dalam Tab Developer pilih Menu Visual Basic

h Muncul Jendela Visual Basic Editor kemudian Klik kanan pada item VBAProject (Book1) yang terdapat pada jendela sebelah kiri. Pada menu yang muncul pilih Insert > Module

Tambahkan kode Program / List program seperti berikut ini : ( kode program bisa di download, tipe file : txt )

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 susganteng(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

Next y

susganteng = Temp & " rupiah"

End Function

Nama Fungsi silakan di rubah sesuai selera ya, kalo punyaku sih nama fungsinya susganteng, jadi kalo mau memanggil fungsi terbilang tersebut ya dengan nama susganteng(....). He..he...

Simpan File tersebut. ( Simpan sebagai plugin saja )