Rumus terbilang di Excel

Rumus terbilang

 
Ini adalah rumus terbilang, caranya adalah menuliskan rumus di sel dimana kita akan menterjemahkan angka dalam bilngan rupiah. "=terbilang(nilai)" 

Cara penerapannya adalah. tekan f11. akan muncul vb microsoft. buat module baru. copas rumus dibawah ini. kemudian simpan dan keluar vb.
 
selanjutnya, misalnya pada sel A2 terdapat nilai 80.000,- kita dapat menterjemahkan angka 80.000.- kedalam bilangan rupiah, kita menginginkan di sel A3. maka di sel A3 kita tulis =terbilang(A2) hasilnya akan tampak Delapan Puluh Ribu Rupiah.




Function Terbilang(Nilai)
If Nilai = "0" Then
Terbilang = "- N I H I L -"
Else
Snil = Format(Str(Nilai), "000000000")
JUTA = Mid(Snil, 1, 3)
RIBU = Mid(Snil, 4, 3)
SATU = Mid(Snil, 7, 3)

If JUTA = "000" Then
JUT = ""
Else
UCAP = Ucapan(JUTA)
JUT = UCAP + "Juta "
End If

If RIBU = "000" Then
RIB = ""
Else
UCAP = Ucapan(RIBU)
RIB = UCAP + "Ribu "
End If

If SATU = "000" Then
SAT = ""
Else
UCAP = Ucapan(SATU)
SAT = UCAP
End If
Terbilang = "( " + JUT + RIB + SAT + "Rupiah )"
End If
End Function

Function Ucapan(Bilang)
RATUSAN = Left(Bilang, 1)
PULUHAN = Mid(Bilang, 2, 1)
SATUAN = Right(Bilang, 1)

Select Case RATUSAN
Case "0"
SRATUS = ""
Case ""
SRATUS = ""
Case "1"
SRATUS = "Seratus "
Case "2"
SRATUS = "Dua Ratus "
Case "3"
SRATUS = "Tiga Ratus "
Case "4"
SRATUS = "Empat Ratus "
Case "5"
SRATUS = "Lima Ratus "
Case "6"
SRATUS = "Enam Ratus "
Case "7"
SRATUS = "Tujuh Ratus "
Case "8"
SRATUS = "Delapan Ratus "
Case "9"
SRATUS = "Sembilan Ratus "
End Select

Select Case PULUHAN
Case "0"
SPULUH = ""
Case ""
SPULUH = ""
Case "1"
SPULUH = ""
Case "2"
SPULUH = "Dua Puluh "
Case "3"
SPULUH = "Tiga Puluh "
Case "4"
SPULUH = "Empat Puluh "
Case "5"
SPULUH = "Lima Puluh "
Case "6"
SPULUH = "Enam Puluh "
Case "7"
SPULUH = "Tujuh Puluh "
Case "8"
SPULUH = "Delapan Puluh "
Case "9"
SPULUH = "Sembilan Puluh "
End Select

If PULUHAN = "1" Then
Select Case SATUAN
Case "0"
SSATU = "Sepuluh "
Case "1"
SSATU = "Sebelas "
Case "2"
SSATU = "Dua Belas "
Case "3"
SSATU = "Tiga Belas "
Case "4"
SSATU = "Empat Belas "
Case "5"
SSATU = "Lima Belas "
Case "6"
SSATU = "Enam Belas "
Case "7"
SSATU = "Tujuh Belas "
Case "8"
SSATU = "Delapan Belas "
Case "9"
SSATU = "Sembilan Belas "
End Select

Else
Select Case SATUAN
Case "0"
SSATU = ""
Case ""
SSATU = ""
Case "1"
SSATU = "Satu "
Case "2"
SSATU = "Dua "
Case "3"
SSATU = "Tiga "
Case "4"
SSATU = "Empat "
Case "5"
SSATU = "Lima "
Case "6"
SSATU = "Enam "
Case "7"
SSATU = "Tujuh "
Case "8"
SSATU = "Delapan "
Case "9"
SSATU = "Sembilan "
End Select
End If
Ucapan = SRATUS + SPULUH + SSATU
End Function