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
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
Selamat mencoba!
Saya akan uraikan kedua cara tersebut.
Dengan menggunakan macro excel
- pada menu developer pilih visual basic, setelah itu pilih menu insert module.
- 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
Selamat mencoba!
0 komentar: