Download Rumus Terbilang

Rumus Terbilang adalah rumus untuk merubah angka menjadi huruf misalnya dalam excel kita menuliskan angka 10.000 dan kita akan merubahnya menjadi huruf "Sepuluh Ribu". Dengan rumus Terbilang kita tidak akan lagi mengetik manual, kita tahu sendiri jika kita capek, lelah dengan pekerjaan terkadang kita salah menuliskannya.

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

Lalu buatlah 1 buah module 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

Download

Cara Pasang Add-ins lihat pada tutorial

Titorial

✕

Download Rumus Terbilang

Harga : *Free Ongkir, dikirim melalui Whatsapp

BCA - 3220 341 185 BRI - 508 601 032 577 535 BUKOPIN - 5101 001 476 DANA OVO Paypal

Pesan via whatsapp Pesan via Email

Tags

Add-Ins

Formula

VBA

Previous article

Next Post

Next article

This Is The Oldest Page