Fungsi terbilang pada MS Exel, Keur Naon....?
Yah buat apa ajalah, buat iseng juga ga apa-apa,
Setidak-tidaknya kita sedikit tahu tentang fungsi makro pada MS Exel, selain itu bagi pengguna exel akfif utuk pembukuan, buat kwitansi butuh fungsi ini yaitu fungsi TERBILANG.
Lanjut.....
Langkah-langkah :
Yah buat apa ajalah, buat iseng juga ga apa-apa,
Setidak-tidaknya kita sedikit tahu tentang fungsi makro pada MS Exel, selain itu bagi pengguna exel akfif utuk pembukuan, buat kwitansi butuh fungsi ini yaitu fungsi TERBILANG.
Lanjut.....
Langkah-langkah :
1. Buka aplikasi ms excel. Kemudian pilih menu Tools pada Macro dan pilih Visual BASIC Editor.
2. Pada aplikasi Visual Basic Editor yang terbuka, pilih menu Insert pada Module.
3. Copy-paste Code warna merah berikut:
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
If x = 0 Then
baca = angka(0, 1)
Else
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)
If triliun > 0 Then
baca = ratus(triliun, 5) + "triliun "
End If
If milyar > 0 Then
baca = ratus(milyar, 4) + "milyar "
End If
If juta > 0 Then
baca = baca + ratus(juta, 3) + "juta "
End If
If ribu > 0 Then
baca = baca + ratus(ribu, 2) + "ribu "
End If
If satu > 0 Then
baca = baca + ratus(satu, 1) + "rupiah "
Else
baca = baca + "rupiah"
End If
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)
If a100 = 1 Then
baca = "Seratus "
Else
If a100 > 0 Then
baca = angka(a100, Posisi) + "ratus "
End If
End If
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 = "Duabelas "
Case 13: angka = "Tigabelas "
Case 14: angka = "Empatbelas "
Case 15: angka = "Limabelas "
Case 16: angka = "Enambelas "
Case 17: angka = "Tujuhbelas "
Case 18: angka = "Delapanbelas "
Case 19: angka = "Sembilanbelas "
End Select
End Function
Lihat Gbr
4. Simpan hasil pekerjaan anda (File --> Save).
Contoh Penggunaannya .
Pada lembar kerja Exel kolom A4 (atau terserah) ketikan angka sembarang , angka Bro.. bukan huruf ya....
Kemudian pada kolom B4 tuliskan rumus "=terbilang(A4)" (tidak pake tanda petik) kemudian Enterrrrrrrrr. Jadi deh...
Cekidot Gbr
Kalau ternyata ga jalan berarti ente salah masukan tulisan merah diatas pada editor visual Basicnya. (banyak kasus)
OK Selamat Menjajal....
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
If x = 0 Then
baca = angka(0, 1)
Else
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)
If triliun > 0 Then
baca = ratus(triliun, 5) + "triliun "
End If
If milyar > 0 Then
baca = ratus(milyar, 4) + "milyar "
End If
If juta > 0 Then
baca = baca + ratus(juta, 3) + "juta "
End If
If ribu > 0 Then
baca = baca + ratus(ribu, 2) + "ribu "
End If
If satu > 0 Then
baca = baca + ratus(satu, 1) + "rupiah "
Else
baca = baca + "rupiah"
End If
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)
If a100 = 1 Then
baca = "Seratus "
Else
If a100 > 0 Then
baca = angka(a100, Posisi) + "ratus "
End If
End If
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 = "Duabelas "
Case 13: angka = "Tigabelas "
Case 14: angka = "Empatbelas "
Case 15: angka = "Limabelas "
Case 16: angka = "Enambelas "
Case 17: angka = "Tujuhbelas "
Case 18: angka = "Delapanbelas "
Case 19: angka = "Sembilanbelas "
End Select
End Function
Lihat Gbr
4. Simpan hasil pekerjaan anda (File --> Save).
Contoh Penggunaannya .
Pada lembar kerja Exel kolom A4 (atau terserah) ketikan angka sembarang , angka Bro.. bukan huruf ya....
Kemudian pada kolom B4 tuliskan rumus "=terbilang(A4)" (tidak pake tanda petik) kemudian Enterrrrrrrrr. Jadi deh...
Cekidot Gbr
Kalau ternyata ga jalan berarti ente salah masukan tulisan merah diatas pada editor visual Basicnya. (banyak kasus)
OK Selamat Menjajal....
