Cara Menggunakan Rumus Terbilang dalam Ms.Excel

Cara Menggunakan Rumus Terbilang dalam Ms.Excel

Dalam Ms।Excel kita bisa menggunakan sebuah fasilitas tool Macro untuk membuat sebuah code sesuai yang kita inginkan, syaratnya kita mesti memahami bahasa pemograman Visual Basic terlebih dahulu.

Ok dalam hal ini saya tidak akan membahas mengenai bahasa visual basic akan tetapi saya akan membahas sebuah source code yang sudah jadi kiriman rekan saya Mr.Andi atau biasa di sapa Andi “Si Raja Bulu” (he maaf becanda, alnya bulunya buanyak buanget sih…). Source Code tersebut cukup bermanfaat sekali, serta bisa dikembangkan lagi oleh rekan-rekan sekalian.

BTW…. Silahkan Unduh dulu file ZanklyTerbilang (bisa di unduh disini), jika cudah॥yu ikutin langkah-langkah untuk penginstalan code ZankluTerbilang ke dalam Ms।Excel.

1. Buka Ms.Excel
2. Setelah dibuka maka klik Tool – kemudian pilih Add-Ins ….

3. Setelah di klik Add-Ins… maka akan muncul seperti gambar dibawah ini

4. Lalu klik Browse, kemudian cari file ZanklyTerbilang yang telah di unduh tadi..

5. Setelah di pilih kemudian klik tombol ok, setelah itu maka file ZanklyTerbilang tersebut akan masuk dalam menu Add-Ins..


6. Kemudian klik tombol Ok…
7. Selesai deh tahap penginstalan ZanklyTerbilang..

Cara Penggunaannya :
ketikan =terbilang(pilih cell yang berisi bilangan yang akan di konpersi ke bentuk terbilang).
Contoh :
Anda pun bisa mengubah dan mengembangkan Source Code ZanklyTerbilang sesuai dengan yang anda inginkan, anda bisa mengubah nya menggunakan fasilitas Macro yang ada di menu Tool – Macro – Visual Basic Editor ( Alt + F11 )

Setelah Visual Basic Editor kemudian pilih imfort file (Ctrl + M), pilih File ZanklyTerbilang yang telah anda unduh tadi. Jangan lupa untuk merubah Files of type nya menjadi All Files(*.*) karena kalo ga maka file ZanklyTerbilang tidak akan muncul / keliatan.
Setelah tombol open di klik maka akan muncul seperti gambar di bawah ini


Double klik ThisWorkbook maka akan muncul Source kode ZanklyTerbilang..
Silahkan anda kembangkan sendiri ‘n selamat mencoba
Dibawah ini Source Code lengkap dari ZanklyTerbilang :
(Anda bisa merubah nama fungsi terbilang sesuai dengan yang anda kehendaki)

Source Code ZanklyTerbilang

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


'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 * 1000 ^ 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 ditambah akhiran milyar
If milyar > 0 Then
baca = ratus(milyar, 4) + "milyar"
End If
'Baca bagian juta dan ditambah akhiran juta
If juta > 0 Then
baca = baca + ratus(juta, 3) + "juta"
End If
'Baca bagian ribu dan ditambah akhiran ribu
If ribu > 0 Then
baca = baca + ratus(ribu, 2) + "ribu"
End If
'Baca bagian satuan
If satu > 0 Then
baca = baca + ratus(satu, 1) + "rupiah"
Else
baca = baca + "rupiah"
End If
'Baca bagian sen dan ditambah 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, 2) + "ratus "
"


End If
End If
'Baca Bagian Puluh dan Satuan
If a10 = 1 Then


baca = baca + angka(a10 * 10 + a1, 2)
Else


If a10 > 0 Then


baca = baca + angka(a10, 2) + "puluh "
"
End If
If a1 > 0 Then


If posisi = 2 And a100 = 0 And a10 = 0 Then
baca = baca + angka(a1, 1)
Else
baca = baca + angka(a1, 2)
End If


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

Support :
Zankly05@yahoo.co.id
Ilmukomputer.com

“Semoga bermanfaat”
WENDIZ