Rumus Terbilang ini sudah umum digunakan dalam pekerjaan seperti membuat kwitansi, tanda terima atau nota penjulan dan lainnya, Bagaimana caranya? Ikuti cara berikut :
Buka Excel anda dan buat "Blank workbook"
Lalu tekan Alt+F11 atau Fn+Alt+F11 pada keyboard anda.
Nanti akan muncul Window seperti gambar dibawah ini
Jika sudah copy dan pastekan code dibawah ini pada module yang anda buat tadi
Public Function Terbilang(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 Terbilang = "" Exit Function End If If (x = 0) Then Terbilang = "nol" Exit Function End If If (x < 2000) Then tanda = True End If teks = "" If (x >= 1E+15) Then Terbilang = "Nol Rupiah." 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) Terbilang = 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
Jadinya seperti gambar dibawah ini
Simpan dan tutup windownya, Selanjutnya kembali ke Workbook dan ketikkan Rumus Formula Terbilang dengan cara =Terbilang(Cell), contohnya seperti dibawah ini
Jika anda kesulitan anda bisa download Add-ins yang sudah saya siapkan untuk anda. Silahkan Download file di bawah ini.
Terbilang Add-Ins Windows | File Size : 15kb
Cara Pasang Add-ins lihat pada tutorial