Membuat Fungsi Terbilang pada MS. Excel

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 seperti tampak pada gambar 1


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 (seperti tampak pada gambar 2
dibawah ini) :

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.647Dim satuan As Variant
On Error GoTo terbilang_error satuan = Array(“”, “Satu”, “Dua”, “Tiga”, “Empat”, “Lima”, “Enam”, “Tujuh”, “Delapan”, “Sembilan”, “Sepuluh”, “Sebelas”)Select Case nCase 0 To 11Terbilang = ” ” + satuan(Fix(n))Case 12 To 19Terbilang = Terbilang(n Mod 10) + ” Belas”Case 20 To 99Terbilang = Terbilang(Fix(n / 10)) + ” Puluh” + Terbilang(n Mod 10)Case 100 To 199Terbilang = ” Seratus” + Terbilang(n – 100)Case 200 To 999Terbilang = Terbilang(Fix(n / 100)) + ” Ratus” + Terbilang(n Mod 100)Case 1000 To 1999Terbilang = ” Seribu” + Terbilang(n – 1000)Case 2000 To 999999Terbilang = Terbilang(Fix(n / 1000)) + ” Ribu” + Terbilang(n Mod 1000)Case 1000000 To 999999999Terbilang = Terbilang(Fix(n / 1000000)) + ” Juta” + Terbilang(n Mod 1000000)Case ElseTerbilang = Terbilang(Fix(n / 1000000000)) + ” Milyar” + Terbilang(n Mod 1000000000)End SelectExit Functionterbilang_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), kemudian
lakukan seperti tampak pada gambar 5

Atau jika anda bingung cara memasukkan Function diatas perhatikan langkahnya
berikut ini (lihat gambar 6 dibawah ini) :


Selesai deh....

dari berbagai sumber

0 Response to "Membuat Fungsi Terbilang pada MS. Excel"