Beranda > Microsoft Office, MS-Excel, Tips dan Trik > Membuat Fungsi Terbilang pada Microsoft Excel

Membuat Fungsi Terbilang pada Microsoft Excel

Kadangkala sering kita memerlukan fungsi terbilang dalam microsoft excel seperti dalam pembuatan kwitansi, nota dll.
Kita bisa menambahkan sendiri fungsi terbilang pada Microsoft Excel dengan cara menambahkan scrip pada visual basic editor. Berikut ini cara membuat fungsi terbilang pada microsoft excel 2003 (bisa juga diterapkan pada microsoft office 2007).

Langkah Membuat Fungsi Terbilang :
1.    Buka dokumen yang akan kita beri fungsi terbilang / untuk mencoba bisa anda buka dokumen Baru.
2.    Dari Menu Tool pilih Macro dan Visual Basic Editor (Alt + F11)

3.    Akan muncul Microsoft Visal Basic Editor

4.    Selanjutnya anda Pilih Insert – Module

5.    Copy Pastekan Scrip berikut pada Module1(code)

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

6.    Apabila masih ada tanda merah pada module berarti masih terdapat kesalahan penulisan, edit hingga seluruhnya berwarna hitam. (Kesalahan penulisan biasanya pada penulisan kutip (“) coba anda ketik ulangi lagi)

7.    Setelah selesai anda close (tutup) Visual Basic Editor.
8.    Anda bisa menggunakan fungsi terbilang ini pada lembar kerja microsoft excel

Cara Menggunakan Fungsi Terbilang :

1.    Ketik Angka yang ingin kita buat fungsi terbilang di sel A1 contoh 555

2.    Pada sel B2 Ketik =terbilang(A1) atau
3.    Simpan Kursor di sel B2 lalu Klik Insert Function

4.    Akan muncul kotak dialog Insert Function pada Or celect a catagory pilih User Defined  dan pilih terbilang selanjutnya klik OK
5.    Akan muncul kotak dialog function  Arguments ketik A1 pada kolom N selanjutnya OK.
6.    Lihat hasilnya di Sel B2

  1. inasel
    17/05/2012 pukul 21:41

    pusing,,!!!!!!

  1. No trackbacks yet.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: