Tuesday, December 18, 2018

Merubah angka menjadi teks atau terbilang

Membuat rumus terbilang pada excel memang sangat diperlukan apalagi kalau kita sering menggunakan data keuangan seperti membuat kwitansi, agak ribet kalau kita menuliskan angka-angka menjadi huruf secara manual.

disamping ribet penulisan angka menjadi huruf secara manual juga kurang teliti. kadang karena pekerjaan yang numpuk sehingga tingkat konsentrasi kita menurun menjadikan yang kita tulis itu menjadi salah.

Ada dua cara yang menurut saya baik untuk membuat rumus terbilang, pertama dengan menggunakan macro excel, yang kedua dengan mengupload pada menu add in.

Saya akan uraikan kedua cara tersebut.

Dengan menggunakan macro excel


  1. pada menu developer pilih visual basic, setelah itu pilih menu insert module.
  2. Ketikan kode berikut.

Function TeksKeAngka(ByVal n As Double) As String
Dim sSatuan()
Dim s As String
sSatuan() = Array("nol", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas", "dua belas", "tiga belas", "empat belas", "lima belas", "enam belas", "tujuh belas", "delapan belas", "sembilan belas", "dua puluh")
s = ""
If n > 999 And n < 200 Then
s = "seribu"
n = n Mod 1000
If n = 0 Then
TeksKeAngka = s
Exit Function
End If
s = s & " "
End If
If n > 199 Then
s = s & sSatuan(Fix(n / 100)) & " ratus"
n = n Mod 100
If n = 0 Then
TeksKeAngka = s
Exit Function
End If
s = s & " "
End If
If n > 99 And n < 200 Then
s = "seratus"
n = n Mod 100
If n = 0 Then
TeksKeAngka = s
Exit Function
End If
s = s & " "
End If
If n > 20 And n < 100 Then
s = s & sSatuan(Fix(n / 10)) & " puluh"
n = n Mod 10
If n = 0 Then
TeksKeAngka = s
Exit Function
End If
s = s & " "
End If
TeksKeAngka = s & sSatuan(n)
End Function

Function Terbilang(ByVal n) As String
Dim sBil()
sBil = Array("", "ribu", "juta", "milyar", "triliun", "quadriliun")
Dim i As Integer
Dim iInt As Integer
Dim s As String
Dim dInt As Double
dInt = Fix(n)
If (dInt < 2000) Then
Terbilang = TeksKeAngka(CInt(dInt))
Exit Function
End If
i = 0
s = ""
Do While dInt > 0
iInt = CInt(dInt - Fix(dInt / 1000) * 1000)
If iInt <> 0 Then
If Len(s) > 0 Then s = " " & s
s = TeksKeAngka(iInt) & " " & sBil(i) & s
End If
i = i + 1
dInt = Fix(dInt / 1000)
Loop
Terbilang = s
End Function



setelah itu save dan kita bisa coba di lembar kerja excel dengan mencoba pada sebuah cell dan masukan sebuah angka, kemudian di cell lain ketikan rumus TeksKeAngka dan lihat hasilnya.

Untuk membuat file add in maka kita tinggal save lembar kerja tadi dengan ekstensi .xla.

Setelah file *xla. terbentuk selanjutnya kita pilih menu developer kemudian kita pilih add in dan cari file *xla yang telah kita buat di bawah ini merupakan cara upload file *xla ke add in

add in

Selamat mencoba!

0 komentar: