Membuat fungsi terbilang di exel 2007
Sering menggunakan exel sebagai media kerja, dan ingin merubah dari angka menjadi kata
misalnya : 2.000 maka akan tertulis dua ribu rupiah seperti gambar disamping
maka sobat mesti memakai rumus terbilang ini
cara membuatnya begini bos.
bawah ini (tapi kalo memang tampilanya sudah minimaze nggak perlu lagi ...ok).
Lanjuuut..... dah maka akan tampil pilihan seperti gambar diatas, lalu clik View code maka akan tampil
form Microsoft visual basic, dan akan tampil juga form Book1- this workbook kode .
3. kalau dah tampil di lembar halaman Book1
copy code di bawah ini dan pastekan ke form Book1- this workbook kode
Ini kodenya ;
maka akan tampil seperti berikut :
4. kalo dah clik simpan yang berlogo disket lalu clik close yang bertanda x bro
maka akan kembali ke work sheet awal exel. belum selesai nih brooo
kemudian simpan dengan me click Save file exel tersebut dengan type Excel 97-2003
Add-In(*.xla).
fille namenya misalnya Terbilang_V08.xla ke drive C:\
kalo dah tutup exelnya
1. buka exel lagi bos
2. kalo dah sekarang clik Ofice buton yang simbol bulatwarna orange sehingga tampil gambar seperti di bawah ini
3. lalu pilih clik Exel Options maka akan tampil form Exel Option kemudian clik Add-Ons seperti di bawah ini :
4. lalu clik Go maka akan tampil form Add On seperti gambar di bawah :
5. Clik Browse (cari lokasi dimana sobat simpan fille Terbilang_V08.xla tadi) kalo dah maka pada form Add-Ins
akan muncul Terbilang_Vo8 lalu centang di kotak pilihan dan clik OK
6. kalau sudah maka sobat akan kembali ke book1 exel, sekarang tinggal mencobanya
7. tulis angka 20000 di kolom B2 dan ketik rumus berikut di kolom C2 "=terbilang(B2)" tanpa tanda kurung
seperti contoh gambar berikut.
8. maka lihat hasilnya....
Selamat ya..atas perjuangan panjang Sobat.....
cara ini memang bukan cara yang mudah tapi jika sobat tidak mau repot untuk buat rumusnya, sobat download aja file di sini
lalu simpan fille misalnya ke C:\ dan selanjutnya Lakukan Langkah dari Step 2.
Selamat Mencoba... dan tunggu rumus exel lainnya.
Sering menggunakan exel sebagai media kerja, dan ingin merubah dari angka menjadi kata
misalnya : 2.000 maka akan tertulis dua ribu rupiah seperti gambar disamping
maka sobat mesti memakai rumus terbilang ini
cara membuatnya begini bos.
STEP 1 _________________________________________________________________
1. buka exel anda setelah tampil clik simbol kotak Restore windows di ujung paling kanan spt gambar dibawah ini (tapi kalo memang tampilanya sudah minimaze nggak perlu lagi ...ok).
2. lanjuut.... kalo sudah clik kanan mouse sobat di simbol exel yang ada tulisanya Book1 (kalo bingung
pegangan ya ntar jatoh lagi he he he) sory bercanda, liat gambar di bawah ya:
Lanjuuut..... dah maka akan tampil pilihan seperti gambar diatas, lalu clik View code maka akan tampil
form Microsoft visual basic, dan akan tampil juga form Book1- this workbook kode .
3. kalau dah tampil di lembar halaman Book1
copy code di bawah ini dan pastekan ke form Book1- this workbook kode
Ini kodenya ;
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)
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)) + "rupiah "
End Function
Public Function terbilangkurung(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)
End If
'Baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + ratus(sen, 0) + "sen "
End If
End If
terbilangkurung = "( " + UCase(Left(baca, 1)) & LCase(Mid(baca, 2)) + "rupiah)"
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
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)
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)) + "rupiah "
End Function
Public Function terbilangkurung(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)
End If
'Baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + ratus(sen, 0) + "sen "
End If
End If
terbilangkurung = "( " + UCase(Left(baca, 1)) & LCase(Mid(baca, 2)) + "rupiah)"
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
maka akan tampil seperti berikut :
4. kalo dah clik simpan yang berlogo disket lalu clik close yang bertanda x bro
maka akan kembali ke work sheet awal exel. belum selesai nih brooo
kemudian simpan dengan me click Save file exel tersebut dengan type Excel 97-2003
Add-In(*.xla).
fille namenya misalnya Terbilang_V08.xla ke drive C:\
kalo dah tutup exelnya
= = = = = = maka selesailah Step 1 = = = = = =
STEP 2 ___________________________________________________________________
sekarang tinggal bagaimana supaya bisa tampil atau ber fungsi di exel... lanjut bos...1. buka exel lagi bos
2. kalo dah sekarang clik Ofice buton yang simbol bulatwarna orange sehingga tampil gambar seperti di bawah ini
3. lalu pilih clik Exel Options maka akan tampil form Exel Option kemudian clik Add-Ons seperti di bawah ini :
4. lalu clik Go maka akan tampil form Add On seperti gambar di bawah :
5. Clik Browse (cari lokasi dimana sobat simpan fille Terbilang_V08.xla tadi) kalo dah maka pada form Add-Ins
akan muncul Terbilang_Vo8 lalu centang di kotak pilihan dan clik OK
6. kalau sudah maka sobat akan kembali ke book1 exel, sekarang tinggal mencobanya
7. tulis angka 20000 di kolom B2 dan ketik rumus berikut di kolom C2 "=terbilang(B2)" tanpa tanda kurung
seperti contoh gambar berikut.
8. maka lihat hasilnya....
Selamat ya..atas perjuangan panjang Sobat.....
cara ini memang bukan cara yang mudah tapi jika sobat tidak mau repot untuk buat rumusnya, sobat download aja file di sini
lalu simpan fille misalnya ke C:\ dan selanjutnya Lakukan Langkah dari Step 2.
Selamat Mencoba... dan tunggu rumus exel lainnya.
Ok makasih dah baca ... semoga bermanfaat bagi sobat semua
dan jangan lupa komennya ya.
dan jangan lupa komennya ya.
Berikan komentar sobat
BalasHapusmau tes dulu
BalasHapus