FUNGSI TERBILANG
Fungsi Terbilang
Dengan fungsi ini kita bisa secara
otomatis membuat pernyataan bilangan rupiah uang dengan menggunakan fungsi
terbilang:
Langkah kerja:
1. Buka Worksheet
Ms Excel. Klik Tool, Macro, Visual Basic Editor (atau tekan Alt+F11),
2. Kemudian
muncul seperti Gambar 2. Klik Insert, Module. Pada Book1 – Module(1) (Code)
tuliskan listing atau kode fungsi terbilang sebagaimana ditunjukkan pada bagian
berikut (berhati-hatilah dalam menuliskannya!)
Kode Fungsi Terbilang:
Public Function Terbilang(x As Currency)
Dim triliun As Currency
Dim milyar As Currency
Dim juta As Currency
Dim ribu As Currency
Dim satu As Currency
Dim sen As Currency
Dim baca As String
If x > 1000000000000# Then
Terbilang = "< di atas satu
triliun rupiah >"
Exit Function
End If
‘jika x adalah 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
‘Pisah masing-masing bagian untuk triliun,
milyar, juta, ribu, rupiah, dan sen
triliun = Int(x * 0.001 ^ 4)
milyar = Int((x - triliun * 1000 ^ 4) *
0.001 ^ 3)
juta = Int((x - triliun * 1000 ^ 4 - milyar
* 1000 ^ 3) / 1000 ^ 2)
ribu = Int((x - triliun * 10000 ^ 4 -
milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)
satu = Int(x - triliun * 1000 ^ 4 - milyar
* 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)
sen = Int((x - Int(x)) * 100)
‘Baca bagian triliun dan ditambah akhiran
triliun
If triliun > 0 Then
baca = ratus(triliun, 5) +
"triliun "
End If
‘Baca bagian milyar dan
tambah akhiran milyar
If milyar > 0 Then
baca = ratus(milyar, 4) +
"milyar "
End If
‘Baca bagian juta dan tambah
akhiran juta
If juta > 0 Then
baca = baca + ratus(juta, 3)
+ "juta "
End If
‘Baca bagian ribu dan tambah
akhiran ribu
If ribu > 0 Then
baca = baca + ratus(ribu, 2)
+ "ribu "
End If
‘Baca bagian rupiah dan
tambah akhiran rupiah
If satu > 0 Then
baca = baca + ratus(satu, 1)
+ "rupiah "
Else
baca = baca + "rupiah
"
End If
‘Baca bagian sen dan tambah
akhiran sen
If sen > 0 Then
baca = baca + ratus(sen, 0)
+ "sen "
End If
End If
Terbilang = UCase(Left(baca,
1)) & LCase(Mid(baca, 2))
End Function
Function ratus(x As
Currency, Posisi As Integer) As String
Dim a100 As Integer, a10 As
Integer, a1 As Integer
Dim baca As String
a100 = Int(x * 0.01)
a10 = Int((x - a100 * 100) *
0.1)
a1 = Int(x - a100 * 100 -
a10 * 10)
‘Baca Bagian Ratus
If a100 = 1 Then
baca = "Seratus "
Else
If a100 > 0 Then
baca = angka(a100, Posisi) +
"ratus "
End If
End If
‘Baca Bagian Puluh dan
Satuan
If a10 = 1 Then
baca = baca + angka(a10 * 10
+ a1, Posisi)
Else
If a10 > 0 Then
baca = baca + angka(a10,
Posisi) + "puluh "
End If
If a1 > 0 Then
baca = baca + angka(a1,
Posisi)
End If
End If
ratus = baca
End Function
Function angka(x As Integer,
Posisi As Integer)
Select Case x
Case 0:
angka = " Nol"
Case 1:
If Posisi
<= 1 Or Posisi > 2 Then
angka =
"Satu "
Else
angka =
"Se"
End If
Case 2:
angka = "Dua "
Case 3:
angka = "Tiga "
Case 4:
angka = "Empat "
Case 5:
angka = "Lima "
Case 6:
angka = "Enam "
Case 7:
angka = "Tujuh "
Case 8:
angka = "Delapan "
Case 9:
angka = "Sembilan "
Case 10:
angka = "Sepuluh "
Case 11:
angka = "Sebelas "
Case 12:
angka = "Dua belas "
Case 13:
angka = "Tiga belas "
Case 14:
angka = "Empat belas "
Case 15:
angka = "Lima belas "
Case 16:
angka = "Enam belas "
Case 17:
angka = "Tujuh belas "
Case 18:
angka = "Delapan belas "
Case 19:
angka = " Sembilan belas "
End Select
End Function
3. Jangan lupa
menyimpan, file save, Ctrl+S dan memberikan nama file misalkan “tebilang”.
4. Tutup layar
untuk kembali ke worksheet semula pada file terbilang.
5. Cobakan
ketikkan sembarang bilangan pada suatu sel, misalkan pada sel A1 diisi dengan
250000000. Kemudian pilh sel lain, misalkan sel A2 tuliskan rumus
=terbilang(A1), tekan enter maka anda akan melihat hasilnya.
Selamat mencoba semoga berhasil.
Selamat mencoba semoga berhasil.
Posting Komentar