Saturday, November 17, 2012

Tips Membuat Fungsi Terbilang di Excel dengan Fitur VBA

Jika pada artikel sebelumnya telah dibahas di kristipstric blogspot mengenai pembuatan fungsi terbilang dengan menggunakan Visual Basic, untuk kali ini kristipstric blogspot akan menulis tips trick mengenai pembuatan fungsi yang sama namun diterapkan pada Excel 2003 dan dibangun dengan memanfaatkan fitur VBA (Visual Basic for Application) dengan judul Tips Membuat Fungsi Terbilang di Excel dengan Fitur VBA. Mari kita simak di bawah ini.

Bukalah sebuah worksheet Excel kemudian aktifkan menu Tools > Macro > Visual Basic Editor atau dengan kombinasi tombol Alt+F11. Hal tersebut akan memicu munculnya Visual Basic Editor yang ada pada lingkungan Excel (gambar 1).

Gambar 1 Membuat Fungsi Terbilang di Excel dengan VBA

Gambar 1

Klik kanan pada item VBAProject (Book1) yang terdapat pada jendela sebelah kiri.  Pada menu yang muncul pilih Insert > Module. Bandingkan dengan gambar 2.

Gambar 2 Membuat Fungsi Terbilang di Excel dengan VBA

Gambar 2

Tambahkan kode program seperti tertulis pada listing 1 ke dalam modul tersebut.

Listing 1. Fungsi terbilang dengan VBA

Option Explicit

Public Function Terbilang(x As Double) As String

Dim tampung As Double

Dim teks As String

Dim bagian As String

Dim i As Integer

Dim tanda As Boolean

Dim letak(5)

letak(1) = "ribu "

letak(2) = "juta "

letak(3) = "milyar "

letak(4) = "trilyun "

If (x = 0) Then

Terbilang = "nol"

Exit Function

End If

If (x < 2000) Then

tanda = True

End If

teks = ""

If (x >= 1E+15) Then

Terbilang = "Nilai terlalu besar"

Exit Function

End If

For i = 4 To 1 Step -1

tampung = Int(x / (10 ^ (3 * i)))

If (tampung > 0) Then

bagian = ratusan(tampung, tanda)

teks = teks & bagian & letak(i)

End If

x = x - tampung * (10 ^ (3 * i))

Next

teks = teks & ratusan(x, False)

Terbilang = teks

End Function

Function ratusan(ByVal y As Double, ByVal flag As Boolean) As String

Dim tmp As Double

Dim bilang As String

Dim bag As String

Dim j As Integer

Dim angka(9)

angka(1) = "se"

angka(2) = "dua "

angka(3) = "tiga "

angka(4) = "empat "

angka(5) = "lima "

angka(6) = "enam "

angka(7) = "tujuh "

angka(8) = "delapan "

angka(9) = "sembilan "

Dim posisi(2)

posisi(1) = "puluh "

posisi(2) = "ratus "

bilang = ""

For j = 2 To 1 Step -1

tmp = Int(y / (10 ^ j))

If (tmp > 0) Then

bag = angka(tmp)

If (j = 1 And tmp = 1) Then

y = y - tmp * 10 ^ j

If (y >= 1) Then

posisi(j) = "belas "

Else

angka(y) = "se"

End If

bilang = bilang & angka(y) & posisi(j)

ratusan = bilang

Exit Function

Else

bilang = bilang & bag & posisi(j)

End If

End If

y = y - tmp * 10 ^ j

Next

If (flag = False) Then

angka(1) = "satu "

End If

bilang = bilang & angka(y)

ratusan = bilang

End Function

Simpan file Excel tersebut dengan nama terbilang.xls.

Namun, jika file terbilang.xls tersebut dibuka, akan muncul peringatan seperti terlihat pada gambar 3. Untuk menghindari peringatan tersebut, buatlah sertifikat digital untuk fungsi terbilang yang dibuat di atas.

Gambar 3 Membuat Fungsi Terbilang di Excel dengan VBA

Gambar 3

Jalankan Digital Certificate for VBA Project. Link Digital Certificate for VBA Project terletak di Microsoft Office Tools. Berilah nama sertifikat tersebut sesuai dengan selera Anda (barangkali diberi nama sesuai dengan nama Anda adalah ide yang baik).

Kemudian jalankan kembali Visual Basic Editor pada terbilang.xls. Aktifkan menu Tools > Digital Signature. Pada kotak dialog yang muncul klik Choose. Pilih sertifikat digital yang telah Anda buat.

Ketika file terbilang.xls dijalankan kembali, akan muncul peringatan tetapi jangan kuatir aktifkan pilihan Always trust macros from this publisher dan klik Enable Macros.

Sekarang ketikkan suatu angka pada kolom A1. Setelah itu pada kolom B1 masukkan formula berikut: =Terbilang(A1). Hasilnya, kolom B1 akan menampilkan teks terbilang dari angka yang dimasukkan pada kolom A1. Lihat gambar 4.

Gambar 4 Membuat Fungsi Terbilang di Excel dengan VBA

Gambar 4

Selamat Mencoba