Home | Sitemap | Excel Tips and Tricks | Technology | Cerita Unik


Welcome to My Blog

Banyak pengguna excel menggunakan salah satu software spreadsheet canggih microsoft ini hanya sebagai alat bantu hitung. Padahal sebenarnya banyak sekali fitur-fitur excel yang sangat bermanfaat apabila kita mengetahuinya. Melalui Blog ini saya ingin berbagi beberapa fitur hebat lain excel pada anda. Selamat Mencoba!

Rabu, 02 September 2009

Menterjemahkan Angka Menjadi Kalimat Dengan Macro

Jika kita ingin membuat kuitansi atau bukti potong pajak, maka umumnya kita harus menuliskan angka rupiah pada line terbilang. Jika kuitansi atau bukti potong yang anda buat hanya 1 atau beberapa lembar saja per hari mungkin tidak sulit untuk membuatnya, tapi bagaimana jika anda harus membuat puluhan bahkan ratusan lembar bukti semacam ini setiap hari atau beberapa hari sekali. Tentu sangat tidak efisien bila kita menuliskan kalimat terbilang seperti ini secara manual. Hal ini juga sangat rentan terhadap kesalahan.

Ada satu trik yang sangat bagus untuk mengatasi hal ini yaitu dengan fungsi terbilang. Simak caranya sebagai berikut:

Pertama, masuklah ke menu visual basic editor pada microsoft excel anda dan ketiklah fungsi berikut (Anda dapat meng-Copy Paste dari artikel ini).

Function Terbilang(ByVal n As Currency) As String

Dim Satuan As Variant

Satuan = Array("", "Satu", "Dua", _
"Tiga","Empat",
"Lima", "Enam", "Tujuh", _
"Delapan", "Sembilan", "Sepuluh", "Sebelas")


Select Case n

Case 0 To 11
Terbilang = " " + Satuan(Fix(n))

Case 12 To 19
Terbilang = Terbilang(n Mod 10) + " Belas"


Case 20 To 99
Terbilang = Terbilang(Fix(n / 10)) + _

" Puluh" + Terbilang(n Mod 10)

Case 100 To 199
Terbilang = " Seratus" + Terbilang(n - 100)


Case 200 To 999

Terbilang = Terbilang(Fix(n / 100)) +
" Ratus" + _
Terbilang(n Mod 100)

Case 1000 To 1999
Terbilang = " Seribu" + Terbilang(n - 1000)


Case 2000 To 999999

Terbilang = Terbilang(Fix(n / 1000)) + " Ribu" + _
Terbilang(n Mod 1000)


Case 1000000 To 999999999
Terbilang = Terbilang(Fix(n / 1000000)) + _
" Juta" + Terbilang(n Mod 1000000)


Case Else
Terbilang = Terbilang(Fix(n / 1000000000)) + _
" Milyar" + Terbilang(n Mod 1000000000)


End Select

End Function


Lalu kemudian anda dapat mencoba fungsi yang telah anda buat ini di worksheet anda. Coba buatlah sheet seperti dibawah ini dalam worksheet yang sama dengan worksheet saat anda membuat macro sebelumnya.


pada cell B3 anda tuliskan rumus =terbilang(B2) dan anda dapat tuliskan angka yang ingin diterjemahkan pada cell B2.


hasil dari fungsi itu adalah kalimat dari angka yang anda masukkan pada cell B2.

Selamat mencoba.



1 komentar: