A'Koerdays Blog

25 Mei 2010

Filed under: Tak Berkategori — akoerday @ 5:21 am

Fungsi Terbilang Pada Excel

Secara default excel (baik generasi excel 2000, 2003 maupun 2007) tidak memiliki perintah terbilang. Perintah terbilang yang dimaksud disini adalah perintah atau formula untuk mengubah dari angka menjadi kata. Misalkan kita ingin mengubah angka 1,000 menjadi kata seribu, atau seribu rupiah. Kalau hanya sesekali mungkin tidak masalah kita ketik secara manual, bagaimana kalau harus berulang kali mengetikkannya, tentu merepotkan.

Untuk mempermudahnya, anda dapat menggunakan add-in yang ditambahkan sendiri. Download dulu add-in disini. Kemudian ekstrak dan install add-in tersebut. Sebelum install add-in, matikan dulu security macronya, supaya add-in ini bisa jalan.

Untuk Microsoft Office Excel 2000/2003 :

1. Buka Excel anda.
2. Masuk ke Tools >> Macro >> Security
3. Pilih Low kemudian OK
4. Masuk ke Tools >> Add-ins >> Browse
5. Arahkan ke file terbilang.xla yang sudah anda download sebelumnya
6. Jangan lupa aktifkan (centang) terbilang pada daftar add-in
7. Klik OK dan siap digunakan

Untuk Microsoft Office Excel 2007 :

1. Buka Excel Anda
2. Klik Office Button (tombol yang bulat di pojok kiri atas ) pilih Excel Options
3. Pilih Trust Centre >> Trust Centre Settings >> Macro Settings
4. Pada Macro settings pilih Enable All Macro kemudian klik OK
5. Masuk ke Menu Add-Ins (Di atas macro seting)
6. Klik Go
7. Browse dan arahkan ke file terbilang.xla yang sudah anda download sebelumnya.
8. Jangan lupa aktifkan (centang) terbilang padadaftar add-in
9. Klik OK dan siap digunakan.

Contoh penggunaannya :

Pada cell A1 ketikkan 1000

Untuk menghasilkan terbilang di cell A2, ketik rumus
=terbilang(A1) akan menghasilkan kata seribu
=terbilang(A1)&” rupiah” akan menghasikan kata seribu rupiah
=propper(terbilang(A1)&” rupiah”) akan menghasilkan kata Seribu Rupiah
=upper(terbilang(A1)&” rupiah”) akan menghasilkan kata SERIBU RUPIAH

catatan :

Fungsi & digunakan untuk menggabungkan isi cell dengan formula atau dengan cell lain
Fungsi propper dilakukan untuk mengubah format kalimat menjadi huruf kapital tiap awal kata
Fungsi upper digunakan untuk mengubah format kalimat menjadi huruf kapital semua

ini file yang harus disimpan dengan namafile Terbilang.xla

Option Explicit

‘***************
‘ Fungsi Utama
‘ Mengubah Angka Menjadi Teks
‘ Eka Priatna
http://priatna.or.id/
‘***************
Function Terbilang(ByVal MyNumber)
Dim Rupiah, Sen, Temp
Dim Des, Desimal, Count, Tmp

ReDim Place(9) As String
Place(2) = “ribu ”
Place(3) = “juta ”
Place(4) = “milyar ”
Place(5) = “trilyun ”

‘Ubah angka menjadi string
MyNumber = Round(MyNumber, 2)
MyNumber = Trim(Str(MyNumber))

‘Posisi desimal, 0 jika bil. bulat
Desimal = InStr(MyNumber, “.”)
‘Pembulatan sen, dua angka di belakang koma
Des = Mid(MyNumber, Desimal + 2)
If Desimal > 0 Then
Tmp = Left(Mid(MyNumber, Desimal + 1) & “00”, 2)
Sen = Puluhan(Tmp)
MyNumber = Trim(Left(MyNumber, Desimal – 1))
End If

Count = 1
Do While MyNumber “”
Temp = Ratusan(Right(MyNumber, 3), Count)
If Temp “” Then Rupiah = Temp & Place(Count) & Rupiah
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) – 3)
Else
MyNumber = “”
End If
Count = Count + 1
Loop

Select Case Rupiah
Case “”
Rupiah = “nol rupiah”
Case Else
Rupiah = Rupiah & “rupiah”
End Select

Select Case Sen
Case “”
Sen = “”
Case Else
Sen = ” dan ” & Sen & “sen”
End Select

Terbilang = Rupiah & Sen
End Function

‘**************************************
‘ Mengubah angka 100-999 menjadi teks *
‘**************************************
Function Ratusan(ByVal MyNumber, Count)
Dim Result As String
Dim Tmp

If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right(“000” & MyNumber, 3)

‘Mengubah seribu
If MyNumber = “001” And Count = 2 Then
Ratusan = “se”
Exit Function
End If

‘Mengubah ratusan
If Mid(MyNumber, 1, 1) “0” Then
If Mid(MyNumber, 1, 1) = “1” Then
Result = “seratus ”
Else
Result = Satuan(Mid(MyNumber, 1, 1)) & “ratus ”
End If
End If

‘Mengubah puluhan dan satuan
If Mid(MyNumber, 2, 1) “0” Then
Result = Result & Puluhan(Mid(MyNumber, 2))
Else
Result = Result & Satuan(Mid(MyNumber, 3))
End If

Ratusan = Result
End Function

‘*******************
‘ Mengubah puluhan *
‘*******************
Function Puluhan(TeksPuluhan)
Dim Result As String

Result = “”
‘ nilai antara 10-19
If Val(Left(TeksPuluhan, 1)) = 1 Then
Select Case Val(TeksPuluhan)
Case 10: Result = “sepuluh ”
Case 11: Result = “sebelas ”
Case Else
Result = Satuan(Mid(TeksPuluhan, 2)) & “belas ”
End Select
‘ nilai antara 20-99
Else
Result = Satuan(Mid(TeksPuluhan, 1, 1)) _
& “puluh ”
Result = Result & Satuan(Right(TeksPuluhan, 1)) ‘satuan
End If
Puluhan = Result
End Function

‘********************************
‘ Mengubah satuan menjadi teks. *
‘********************************
Function Satuan(Digit)
Select Case Val(Digit)
Case 1: Satuan = “satu ”
Case 2: Satuan = “dua ”
Case 3: Satuan = “tiga ”
Case 4: Satuan = “empat ”
Case 5: Satuan = “lima ”
Case 6: Satuan = “enam ”
Case 7: Satuan = “tujuh ”
Case 8: Satuan = “delapan ”
Case 9: Satuan = “sembilan ”
Case Else: Satuan = “”
End Select
End Function

1 Komentar »

Belum ada komentar.

RSS feed for comments on this post. TrackBack URI

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Blog di WordPress.com.

%d blogger menyukai ini: