fungsi terbilang

Beberapa Program Penambah dan Pendukung kerja Software MS Office “ Kata Tebilang “( Hasil Download dan combinasian )

Selain menggunakan program berbasis database ( bagi yg bisa ) , pemakaian kata terbilang dengan excel adalah salah satu cara lain untuk memudahkan bagi pengguna excel terutama untuk nerbitan Kwitansi.

Langkah-langkah pembuatan ( baca sampai habis ):

Langkah pertama yaitu bukalah program Microsoft Excel
Langkah kedua yaitu klik menu Tool, Macro, Security
Berikutnya pilih Medium atau Low kemudian lalu klik OK dan tutup program Microsoft Excel
Buka kembali program Microsoft Excel-nya
Lalu klik menu Tool, Macro, Visual Basic Editor atau bisa langsung teken tombol Alt+F11
Setelah muncul jendelanya, klik kanan pada item VBAProject (Book1) yang terdapat pada jendela sebelah kiri
Maka akan muncul menu, dari menu tersebut pilihlah Insert, Module
Selanjutnya ketik script di bawah ini pada kotak isian modul tersebut (”Book1 - Module1 (Code)”) oke !!!

Option Explicit

Public Function UCAPANGKA(x As Double) As String
Dim tampung As Double
Dim teks As String
Dim bagian As String
Dim i As Integer
Dim tanda As Boolean

Dim letak(5)
letak(1) = "ribu "
letak(2) = "juta "
letak(3) = "milyar "
letak(4) = "trilyun "


If (x = 0) Then
UCAPANGKA = "nol"
Exit Function
End If


If (x >= 1E+15) Then
UCAPANGKA = "Nilai terlalu besar"
Exit Function
End If


For i = 4 To 1 Step -1
tampung = Int(x / (10 ^ (3 * i)))
If (tampung > 0) Then
bagian = ratusan(tampung, tanda)
teks = teks & bagian & letak(i)
End If
x = x - tampung * (10 ^ (3 * i))
Next

teks = teks & ratusan(x, False)
UCAPANGKA = teks + "rupiah"
End Function

Function ratusan(ByVal y As Double, ByVal flag As Boolean) As String
Dim tmp As Double
Dim bilang As String
Dim bag As String
Dim j As Integer

Dim angka(9)
angka(1) = "se"
angka(2) = "dua "
angka(3) = "tiga "
angka(4) = "empat "
angka(5) = "lima "
angka(6) = "enam "
angka(7) = "tujuh "
angka(8) = "delapan "
angka(9) = "sembilan "

Dim posisi(2)
posisi(1) = "puluh "
posisi(2) = "ratus "

bilang = ""
For j = 2 To 1 Step -1
tmp = Int(y / (10 ^ j))
If (tmp > 0) Then
bag = angka(tmp)
If (j = 1 And tmp = 1) Then
y = y - tmp * 10 ^ j
If (y >= 1) Then
posisi(j) = "belas "
Else
angka(y) = "se"
End If
bilang = bilang & angka(y) & posisi(j)
ratusan = bilang
Exit Function
Else
bilang = bilang & bag & posisi(j)
End If
End If
y = y - tmp * 10 ^ j
Next

If (flag = False) Then
angka(1) = "satu "
End If
bilang = bilang & angka(y)
ratusan = bilang
End Function

Setelah script di atas diketik, lalu simpan file lembar kerja Excel tersebut dengan nama file “terserah anda.xls”. Maka sudah siap deh lembar kerja tersebut dipakai. Cara menggunakannya tinggal ketik fungsinya yaitu ucapangka. Sebagai contoh coba anda isikan 2008 pada sel A1, lalu pada sel B1 tuliskan “=ucapangka(A1)” maka setelah menekan enter akan muncul tulisan “Dua ribu Delapan Rupiah” pada sel B1.Mudah bukan? Langkah di atas sudah saya coba berkali-kali dan berhasil, kalau masih tidak muncul atau muncul pesan error berarti macro masil belum benar, coba periksa kembali langkah-langkahnya atau biasanya kesalahan terjadi pada tanda petik, coba rubah/ganti secara manual tanda petiknya.