Membuat Fungsi Terbilang di Excel

Pada tulisan kali ini penulis akan sedikit berbagi ilmu mengenai membuat fungsi terbilang dalam Microsoft Office Excel. Microsoft Office Excel yang digunakan penulis kali ini Microsoft Office Excel 2007 (Penulis pun pernah mencobanya di Microsoft Office Excel 2003), untuk membuat fungsi ini di Microsoft Excel caranya sebagai berikut :

Pendahuluan

Microsoft Excel atau Microsoft Office Excel adalah sebuah program aplikasi lembar kerja spreadsheet yang dibuat dan didistribusikan oleh Microsoft Corporation untuk sistem operasi Microsoft Windows dan Mac OS. Aplikasi ini memiliki fitur kalkulasi dan pembuatan grafik yang, dengan menggunakan strategi marketing Microsoft yang agresif, menjadikan Microsoft Excel sebagai salah satu program komputer yang populer digunakan di dalam komputer mikro hingga saat ini. Bahkan, saat ini program ini merupakan program spreadsheet paling banyak digunakan oleh banyak pihak, baik di platform PC berbasis Windows maupun platform Macintosh berbasis Mac OS, semenjak versi 5.0 diterbitkan pada tahun 1993. Aplikasi ini merupakan bagian dari Microsoft Office System, dan versi terakhir adalah versi Microsoft Office Excel 2007 yang diintegrasikan di dalam paket Microsoft Office System 2007

Langkah demi langkah membuat fungsi terbilang

Sebelum anda dapat membuat fungsi terbilang dalam Microsoft Office Excel ada beberapa hal yang harus anda siapkan terlebih dahulu :

1. Pastikan dalam komputer anda telah terisntal Microsoft Office Excel

2. Jalankan Microsoft Office Excel

Setelah jendela Microsoft Office Excel, tampak maka perhatikan dan ikutilah langkah-langkah dalam membuat fungsi terbilang dalam Microsoft Office Excel berikut ini :

Langkah 1

Buatlah sebuah dokumen baru, atau dokumen lama yang telah ada, yang ingin anda tambahkan sebuah fungsi terbilang.

Langkah 2

Kemudian buka Microsoft Visual Basic Editor dari menu Tools > Macro > Visual Basic Editor atau langsung tekan tombol Alt + F11

Langkah 3

Buat sebuah Module baru dengan cara klik menu Insert > Module kemudian tambahkan script berikut.

Function Terbilang(n As Long) As String 'max 2.147.483.647

Dim satuan As Variant

On Error GoTo terbilang_error

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

Exit Function

terbilang_error: MsgBox Err.Description, vbCritical, “^_^Terbilang Error”

End Function

Langkah 4

Jika dalam Visual Basis Editor anda masih ditemui error maka akan tampak seperti gambar 4 diatas, tanda warna merah pada tulisan menandakan adanya kesalahan pada script yang anda masukan. Jika semuanya sudah benar, maka tutup kembali Visual Basis Editor dan kembali ke lembar kerja excel, coba ketikkan angka sembarang di sembarang tempat. Misal di cell F5 ketikkan “1200120” (nb : Maksimal 2147483647 tanpa tanda petik), kemudian pada cell F6 ketikkan “=terbilang(F5)” (tanpa tanda petik)

Penutup

Akhir kata penulis berharap semoga tulisan ini bermanfaat bagi setiap pembacanya, terutama bagi rekan guru yang sering mengolah nilai dan memerlukan kolom nilai huruf, dan Tidak mungkin kita mencapai keberhasilan usaha tanpa sebuah kerja keras dan jangan lupa pula mulailah hidupmu dari mimpimu, karena dengan mimpi yang ada dalam pikiranmu kau bisa menaklukan dunia. Sebelum dan sesudahnya penulis juga ingin mengucapkan terima kasih pada Komunitas Ilmukomputer.com terutama pada pak Romi yang sudah mengexplore tulisan saya dan harapan saya kedepan saya bisa menjadi penulis tetap di ilmukomputer.com ini, sampai jumpa di episode lain dari tulisan saya, terima kasih.

Referensi

http://id.wikipedia.org/wiki/Microsoft_Excel

Harum Ginting, S.Pd. Guru SMA Negeri 5 Bintan Jl. Sekera No. 11 Tanjung Uban Bintan Utara - Bintan Kepulauan Riau 29152