Fungsi Macro Terbilang pada Microsoft Excel

Berikut ini adalah Macro untuk Microsoft Excel bagi anda yang ingin menggunakan fungsi terbilang di MS Excel. Fungsi ini sangat berguna untuk dan membuat kwitansi, laporan keuangan dan lain-lain.
Caranya adalah sebagi berikut :
1. Buka program Microsoft Excel
2. Ubah pengaturan macro security, klik menu Tool > Macro > Security selanjutnya pilih Medium atau Low kemudian lalu klik OK dan tutup program Microsoft Excel
3. Buka kembali program Microsoft Excel-nya
4. Lalu klik menu Tool > Macro > Visual Basic Editor (tekan Alt+F11)
5. Setelah muncul jendelanya, klik kanan pada item VBAProject (Book1) yang terdapat pada jendela sebelah kiri, kemudian pilih Insert > Modul
6. Ketik script di bawah ini pada kotak isian modul tersebut (”Book1 - Module1 (Code)”) atau lebih mudahnya bisa Anda copy-paste kode berikut ini :

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

TERBILANG = ""

Exit Function

End If

If (x = 0) Then

TERBILANG = "NOL"

Exit Function

End If

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

7. Setelah selesai, simpan dengan nama file “TERBILANG.XLS” dan yang terakhir “close” Microsoft Visual Basic Anda.
Anda bisa mencoba fungsi yang baru Anda buat. Sebagai contoh coba anda isikan 9999 pada sel A1, lalu pada sel B1 tuliskan “=TERBILANG(A1)” maka setelah anda menekan enter akan muncul tulisan “SEMBILAN RIBU SEMBILAN RATUS SEMBILAN PULUH SEMBILAN ” pada sel B1.


sumber : http://u2see.wordpress.com

Artikel yang berhubungan