Membuat Pengucapan angka Terbilang seperti Tahun, Angka di Kwitansi Menggunakan Macro Excel.
Terkadang kita perlu membuat sebuah kwitansi pembayaran kepada orang lain sebagai bentuk penagihan atas penjualan barang /jasa yang telah kita kerjakan atau kontrak rumah/ruko dll.
Pada umumnya dalam sebuah lembaran Kwitansi mencantumkan nilai nominal rupiah tagihan dan ditambah dengan tulisan terbilang berapa jumlah pembayaran/tagihan tersebut.
Contoh Jika dalam Kwitansi disebutkan nilai nominal tagihan sebesar Rp. 1.525.000 dan dibawah/ samping jumlah tersebut ada tulisan terbilang ; Satu juta lima ratus dua puluh lima ribu rupiah. Dalam penulisan ini adakalanya kita salah dalam penulisan terbilangnya misal saja terketik " Satu juta Limaratus riburupiah, atau Satu juta Lima rutas rupiah. Sepintas kelihatan tak bermasalah dikarenakan terburu-buru mengakibatkan salah pengetikan., maka untuk menghindarai ini terjadi di kita dapat memakai rumus diexcel.
Langkah pertama yaitu bukalah program Microsoft Excel lau masuk ke Menu Developer disebelah kiri pilih Visual Basic atau bisa langsung tekan 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 [ Module1 (code)]
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 selesai lembar kerja tersebut dipakai. Cara menggunakannya tinggal ketik fungsinya yaitu ucapangka. Sebagai contoh coba anda isikan 2021 pada sel A1, lalu pada sel B1 tuliskan “=ucapangka(A1)” maka setelah menekan enter akan muncul tulisan “dua ribu dua puluh satu 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.