Membuat Fungsi Terbilang di Excel dengan VBA

Jika pada contoh sebelumnya dibahas mengenai pembuatan fungsi terbilang dengan menggunakan Visual Basic, kali ini akan dibahas mengenai pembuatan fungsi yang sama namun diterapkan pada Excel 2003 dan dibangun dengan memanfaatkan fitur VBA (Visual Basic for Application).

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).

Klik kanan pada item VBAProject (Book1) yang terdapat pada jendela sebelah kiri. Pada menu yang muncul pilih Insert > Module. Bandingkan dengan 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.

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 seperti terlihat pada gambar 5. 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 6.

Tinggalkan Balasan

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

WordPress.com Logo

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

Twitter picture

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

Facebook photo

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

Google+ photo

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

Connecting to %s

Ikuti

Get every new post delivered to your Inbox.

%d bloggers like this: