ANGKA TERBILANG

artikel berikut kita misalkan untuk membuat lembar kerja kwitansi pada micorsoft exel agar apabila kita menuliskan angka maka di baris terbilang akan otomatis terisi. langsung saja berikut caranya :

• Langkah pertama yaitu bukalah program Microsoft Excel
• Langkah kedua yaitu klik menu Tool, Macro, Security
• Berikutnya pilih Medium atau Low kemudian lalu klik OK dan tutup program Microsoft Excel
• Buka kembali program Microsoft Excel-nya
• Lalu klik menu Tool, Macro, Visual Basic Editor atau bisa langsung tekan tombol Alt+F11
• Setelah muncul jendelanya, klik kanan pada item VBAProject (Book1) yang terdapat pada jendela sebelah kiri
• Maka akan muncul menu, dari menu tersebut pilihlah Insert, Module
• Selanjutnya ketik script di bawah ini pada kotak isian modul tersebut (”Book1 - Module1 (Code)”) atau anda tinggal blok/select lalu copy dan paste pada kotak isian modul.       

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 = “”
Exit Function
End If

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

Setelah script di atas diketik, lalu simpan file lembar kerja Excel tersebut misalkan dengan nama file “Kwitansi.xls”. Maka sudah siap deh lembar kerja tersebut dipakai. Cara menggunakannya tinggal anda ketik fungsinya yaitu TERBILANG. Sebagai contoh coba anda isikan 1974 pada sel A1, lalu pada sel B1 tuliskan “=TERBILANG(A1)” tanpa tanda petik, maka setelah anda menekan enter akan muncul tulisan “SERIBU SEMBILAN RATUS TUJUH PULUH EMPAT” pada sel B1

Jika setelah anda mengcopy dan mempastekan Script diatas, namun rumus TERBILANG yang anda tuliskan tidak berfungsi atau muncul pesan "Compile Error" silahkan hapus semua script yang anda pastekan pada modul tadi, lalu silahkan anda download disini Scriptnya kemudian copy dan pastekan pada isian modul tersebut.

atau bisa juga menggunakan cara Import File, silahkan download filenya disini