Awalnya ada seorang teman yang minta tolong dicarikan solusi agar bisa membuat keterangan terbilang dalam Excel agar mempermudah pekerjaannya membuat bukti keuangan. Usut punya usut info dari mbah google, akhirnya didapat beberapa tutorial yang sangat membantu. Thanks to all those kind hearted people who willing to help other.
Namun ada suatu permasalah, tutorial-tutorial tadi meskipun bukan muskil untuk difahami, tapi tetap sukar dicerna bagi sebagian besar orang. Contohnya adalah teman saya yang tadi itu. Buktinya ia terus saja bolak balik minta bantuan setiap kali ada masalah dengan fungsi excelnya itu. Setelah dipikir-pikir memang semua panduan yang ada sekarang cenderung bersifat sangat tekhnis dan masih agak kurang praktis. Jadi alangkah baiknya kalau aku coba buatkan sesuatu yan lebih praktis. Dan inilah hasilnya.
Langsung saja ke pokok permasalahan. Trik membuat nilai terbilang pada Excel 2007 adalah sangat simple mudah. Ini bukanlah hal yang baru dan berbeda dari yang lain, hanya mempermudah dan membuat lebih simple untuk dipraktekkan. Yaitu dengan memotong beberapa tahap yang dilalui dan langsung ke TKP.
Untuk membuat tulisan terbilang dari suatu angka secara otomatis (tanpa mengetik manual) dalam excel inilah caranya yang paling simple:
1. Download file addins excel untuk terbilang disini..
2. Simpan/save file tersebut di computer (misal di c:\My Documents)
3. Buka aplikasi Excel 2007 anda,
4. Masuklah ke office button (pojok kiri atas) – lalu klik tombol “Excel options”
5. Pilih tabs “Add-Ins”, lalu klik tombol “Go…” yang berada pada bagian bawah panel form.
6. Setelah muncul kotak berikut tekan pada tombol “Browse”.
7. Pilih direktori tempat anda menyimpan file unduhan tadi (misal di c:/My Documents)
8. Klik tombol “Ok” lalu akan muncul kotak berikut:
9. Klik Ok lagi untuk menyeselaikan proses pemasangan Add-Ins
Sekarang kita check apakah fungsi tersebut berfungsi. Untuk memakainya anda perlu mengetahui formulanya. Missal angka yang hendak anda buatkan terbilangnya ada di cell “A1”, maka formulanya adalah sebagai berikut:
=terbilang(A1,4,”Rupiah.”)
Penjelasan formula tersebut adalah sbb.:
1. A1 adalah cell tempat angka yang akan dikonversi ke nilai terbilang.
2. 4 adalah style case, anda dapat memilih 0,1,2,3,4 untuk menampilkan style penulisan yang berbeda.
3. “Rupiah.” Adalah text keterangan mata uang, dapat diganti dengan mata uang lain yang anda perlukan dengan cara manual.
Anda juga dapat mencoba cara lain dengan mengetikkan “=terbilang()” tanpa spasi, di cell edit bar seperti berikut, lalu tekan tombol “fx”
Maka akan muncul kotak dialog seperti berikut:
Coba masukkan nilai-nilai yang sesuai pada fungsi tersebut dan lihat hasilnya..
Trik ini tidak hanya berlaku untuk Excel 2007 melainkan untuk versi lain juga dengan prinsip yang sama. Yaitu anda harus mencari menu untuk menginstall Add-Ins baru. Selamat mencoba, semoga bermanfaat.
Sumber : http://abunaweed.blogspot.com/2010/04/cara-mudah-membuat-fungsi-terbilang.html
Atau
1. Buka File Excel Anda yang akan dibuat fungsi terbilang.
2. Tekan Tombol Alt+F11 = Visual Basic Editor
3. Buat modul baru Insert => Module
4. Copy kode dibawah ini ke modul tersebut (Berhubung terbatasnya ringkasan, kode saya sambung di posting selanjutnya dengan judul yang sama.
5. Tutup dan kembali ke File Excel Anda
Cara Menggunakan :
1. Letakkan Cursor pada cell yang dibuat terjemahannya.
2. Klik Formula => Insert Function
3. Di sebelah kanan "or select category" pilih User Defined kemulian OK
4. Pada kolom Nilai_Angka masukkan cell nominal yang akan diterjemahkan
5. Pada kolom Style dikosongi saja.
6. Pada kolom Satuan ketikkan "Rupiah" atau "Dollar" kemudian OK
7. Selesei
Private Function KeKata(Nomor)
TrjKata = Array("", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan")
KeKata = TrjKata(Nomor)
End Function
Public Function terbilang(Nilai_Angka, Optional Style = 3, Optional Satuan = "")
angka = Fix(Abs(Nilai_Angka))
'Desimal dibelakang koma
des1 = Mid(Abs(Nilai_Angka), Len(angka) + 2, 1)
des2 = Mid(Abs(Nilai_Angka), Len(angka) + 3, 1)
If des2 = "" Then
If des1 = "" Or des1 = "0" Then
Koma = ""
Else
Koma = " Koma " & KeKata(des1)
End If
ElseIf des2 = "0" Then
If des1 = "0" Then
Koma = ""
ElseIf des1 = "1" Then
Koma = " Koma Sepuluh"
Else
Koma = " Koma " & KeKata(des1) & " Puluh"
End If
Else
If des1 = "0" Then
Koma = " Koma Nol " & KeKata(des2)
ElseIf des1 = "1" Then
If des2 = "1" Then
Koma = " Koma Sebelas"
Else
Koma = " Koma " & KeKata(des2) & " Belas"
End If
Else
Koma = " Koma " & KeKata(des1) & " Puluh " & KeKata(des2)
End If
End If
No1 = Left(Right(angka, 1), 1)
No2 = Left(Right(angka, 2), 1)
No3 = Left(Right(angka, 3), 1)
No4 = Left(Right(angka, 4), 1)
No5 = Left(Right(angka, 5), 1)
No6 = Left(Right(angka, 6), 1)
No7 = Left(Right(angka, 7), 1)
No8 = Left(Right(angka, 8), 1)
No9 = Left(Right(angka, 9), 1)
No10 = Left(Right(angka, 10), 1)
No11 = Left(Right(angka, 11), 1)
No12 = Left(Right(angka, 12), 1)
No13 = Left(Right(angka, 13), 1)
No14 = Left(Right(angka, 14), 1)
No15 = Left(Right(angka, 15), 1)
If Len(angka) >= 1 Then
If Len(angka) = 1 And No1 = 1 Then
Nomor1 = "Satu"
ElseIf Len(angka) = 1 And No1 = 0 Then
Nomor1 = "Nol"
ElseIf No2 = "1" Then
If No1 = "1" Then
Nomor1 = "Sebelas"
ElseIf No1 = "0" Then
Nomor1 = "Sepuluh"
Else
Nomor1 = KeKata(No1) & " belas"
End If
Else
Nomor1 = KeKata(No1)
End If
Else
Nomor1 = ""
End If
If Len(angka) >= 2 Then
If No2 = 1 Or No2 = "0" Then
Nomor2 = ""
Else
Nomor2 = KeKata(No2) & " puluh "
End If
Else
Nomor2 = ""
End If
'Ratusan
If Len(angka) >= 3 Then
If No3 = "1" Then
Nomor3 = "Seratus "
ElseIf No3 = "0" Then
Nomor3 = ""
Else
Nomor3 = KeKata(No3) & " ratus "
End If
Else
Nomor3 = ""
End If
'Ribuan
If Len(angka) >= 4 Then
If No6 = "0" And No5 = "0" And No4 = "0" Then
Nomor4 = ""
ElseIf (No4 = "1" And Len(angka) = 4) Or (No6 = "0" And No5 = "0" And No4 = "1") Then
Nomor4 = "seribu "
ElseIf No5 = "1" Then
If No4 = "1" Then
Nomor4 = "Sebelas Ribu "
ElseIf No4 = "0" Then
Nomor4 = "Sepuluh Ribu "
Else
Nomor4 = KeKata(No4) & " belas Ribu "
End If
Else
Nomor4 = KeKata(No4) & " Ribu "
End If
Else
Nomor4 = ""
End If
'Puluhan ribu
If Len(angka) >= 5 Then
If No5 = "1" Or No5 = "0" Then
Nomor5 = ""
Else
Nomor5 = KeKata(No5) & " Puluh "
End If
Else
Nomor5 = ""
End If
'Ratusan Ribu
If Len(angka) >= 6 Then
If No6 = "1" Then
Nomor6 = "Seratus "
ElseIf No6 = "0" Then
Nomor6 = ""
Else
Nomor6 = KeKata(No6) & " ratus "
End If
Else
Nomor6 = ""
End If
'Jutaan
If Len(angka) >= 7 Then
If No9 = "0" And No8 = "0" And No7 = "0" Then
Nomor7 = ""
ElseIf No7 = "1" And Len(angka) = 7 Then
Nomor7 = "Satu Juta "
ElseIf No8 = "1" Then
If No7 = "1" Then
Nomor7 = "Sebelas Juta "
ElseIf No7 = "0" Then
Nomor7 = "Sepuluh Juta "
Else
Nomor7 = KeKata(No7) & " belas Juta "
End If
Sumber: http://id.shvoong.com/internet-and-technologies/software/2141700-fungsi-terbilang-pada-microsoft-office/#ixzz1Nu6mX0DL Share
Comments
0 comments to "Membuat Fungsi Terbilang Pada Excel 2007"
Post a Comment