text maarque kanan

LIFE IS ADVENTURE

salju

Senin, 09 Januari 2012

Membuat Add In Terbilang Untuk Microsoft Excel

Membuat Add In Terbilang Untuk Microsoft Excel

Lisensi Dokumen:
Budi Hartono pakne.dhea@gmail.com http://cakbud.info Copyright © 2003-2006 IlmuKomputer.Com Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.

Artikel berikut akan membahas bagaimana membuat membuat Add In terbilang (menterjemahkan angka menjadi kata-kata ) untuk Microsoft Excel. Bagi anda yang sering membuat tanda terima pembayaran tentunya sering kali anda harus menterjemahkan angka-angka menjadi kata-kata, misal Rp. 1000,-diterjemahkan menjadi Seribu Rupiah, tentu akan sangat melelahkan jika hal ini harus dikerjakan secara manual, dimana anda harus mengeja setiap angka pada transaksi anda untuk kemudian anda tuliskan.
Dengan Add In ini saya berharap akan bisa membantu pekerjaan anda dalam membuat tanda terima. Untuk mempersingkat proses, saya tidak menjelaskan apa itu Add In, anda bisa pelajari sendiri dari Microsoft Excel help.

Persiapan
Inti dari artikel ini adalah membuat Add Ins terbilang bukan membuat fungsi terbilang, sehingga persiapan pertama yang perlu anda lakukan adalah membuat fungsi terbilang menggunakan VBA, kalau anda merasa kesulitan, anda bisa googling dengan kunci pencarian “fungsi terbilang VBA”, dijamin dapat banyak . Kalau anda tidak bisa googling karena keburu pulang dari warnet atau koneksi internetnya sudah terlanjur disconnect, anda bisa juga menggunakan kode fungsi terbilang dibawah ini, dengan catatan anda tidak boleh menyebutkan bahwa kode fungsi ini adalah karya penulis, karena penulis sendiri tidak pernah merasa membuat kode tersebut , penulis mendapatkan kode ini sekitar tahun 2000 an dengan bahasa xBase (DBASEIII+), yang kemudian penulis modifikasi dengan VBA agar bisa jalan di Microsoft Access, Microsoft Excel dan Microsoft Visual Basic, tapi penulis sudah lupa dari situs mana. Berikut Kode Untuk Fungsi Terbilang :

Dim sen As CurrencyDim baca As String
'Jika x adalah 0, maka dibaca sebagai 0If x = 0 Thenbaca = angka(0, 1)Else'Pisah masing-masing bagian untuk triliun, milyar, juta, ribu, rupiah, dan
sentriliun = 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 triliunIf triliun > 0 Then
baca = ratus(triliun, 5) + "triliun "End If'Baca bagian milyar dan ditambah akhiran milyarIf milyar > 0 Then
baca = ratus(milyar, 4) + "milyar "End If'Baca bagian juta dan ditambah akhiran jutaIf juta > 0 Then
baca = baca + ratus(juta, 3) + "juta "End If'Baca bagian ribu dan ditambah akhiran ribuIf ribu > 0 Then
baca = baca + ratus(ribu, 2) + "ribu "End If'Baca bagian satuanIf satu > 0 Then
baca = baca + ratus(satu, 1) + "rupiah "else
baca = baca + "rupiah "End If'Baca bagian sen dan ditambah akhiran senIf sen > 0 Then
baca = baca + ratus(sen, 0) + "sen"

End IfEnd Ifterbilang = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))End Function
Function ratus(x As Currency, posisi As Integer) As StringDim a100 As Integer, a10 As Integer, a1 As IntegerDim baca As Stringa100 = Int(x * 0.01)a10 = Int((x -a100 * 100) * 0.1)a1 = Int(x -a100 * 100 -a10 * 10)'Baca Bagian RatusIf a100 = 1 Then
baca = "Seratus "ElseIf a100 > 0 Thenbaca = angka(a100, 2) + "ratus "
End IfEnd If'Baca Bagian Puluh dan SatuanIf a10 = 1 Then
baca = baca + angka(a10 * 10 + a1, 2)Else

If a10 > 0 Then

baca = baca + angka(a10, 2) + "puluh "End IfIf a1 > 0 Then
If posisi = 2 And a100 = 0 And a10 = 0 Thenbaca = baca + angka(a1, 1)Elsebaca = baca + angka(a1, 2)End If
End IfEnd Ifratus = bacaEnd Function
Function angka(x As Integer, posisi As Integer)

Select Case xCase 0: angka = "Nol"Case 1:
If posisi = 2 Thenangka = "Satu "Elseangka = "Se"
End IfCase 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 SelectEnd Function

We we wew panjang banget dan susah, gak usah bingung karena sudah ada instant yang sudah jadi tinggal memasangnya. Ambil/downloat filenya di sini terbilang
Cara memasang kode terbilang pada Microsoft Excel 2007
  1. Buka Microsoft Excel 2007 dan pilih office button (pojok kiri atas) dan pilih Excel option add-ins
   2. Pilih Add-Ins dan selanjutnya pilih Go dan pilih browse
   3. Selanjutnya copi file terbilang.xla kedalamnya
   4. Terakhir ulangi lagi langkah 1 dan dipilih add-ins terbilang

   5. Cara memakai fungsi terbilang adalah =terbilang(cell;style;"rupiah") maksudnya cell adalah tempat angkanya dan stylenya bisa dipilih 1 atau 2 atau 3 dan rupiah adalah satuan yang dikehendaki.

Tidak ada komentar:

Poskan Komentar