Membuat Add In Terbilang Untuk Microsoft Excel
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 J. 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 J, 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 :
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) + “rupiah ”
Else
baca = baca + “rupiah ”
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))
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
Wew… panjang banget, pasti banyak diantara pembaca yang beranggapan kodenya terlalu bertele-tele, tidak simpel atau tidak rekursif, penulis pun sering merasa demikian dan tugas anda untuk menyederhanakan dan jangan lupa kalau sudah sederhana kirim kodenya ke penulis J.
Sekarang mari kita mulai.
Membuat Module
Langkah pertama yang perlu dilakukan adalah membuat modul, caranya :
- Buka Microsoft Excel Anda
- Klik Pada Menu Tools – Macro – Visual Basic Editor (Alt+F11)
- Setelah tampil jendela Visual Basic Editor, langkah selanjutnya adalah menambahkan module baru dengan cara Klik menu Insert – Module
Dari Proses ini akan terbentuk satu modul baru dengan nama Module1.
- Masukkan fungsi terbilang yang sudah anda siapkan kedalam module1
- Sampai disini proses sudah setengah jadi, pindahkan jendela aktif lembar kerja excel, coba anda tuliskan pada cell B2 dengan 1000 dan pada cell B3 tuliskan dengan =terbilang(B2), apa yang terjadi?, kalau pada cell B3 tampil Seribu rupiah, anda boleh melanjutkan ke langkah berikutnya, tapi kalau tampil #NAME,#VALUE atau yang lain selain Seribu rupiah anda harus perbaiki fungsi terbilang anda pada Module1 terlebih dahulu. Sampai disini proses pembuatan module telah selesai, kita lanjutkan ke langkah berikutnya.
Membuat deskripsi dan mengamankan kode anda
Langkah selanjutnya adalah memberi deskripsi dan mengamankan kode VBA anda, langkahnya adalah sebagai berikut:
- Pada lembar kerja Excel anda, klik menu Tools – Macros
- Ketikkan nama fungsi terbilang anda dan pastikan tombol Option menjadi enable (menyala), kalau tidak, bisa dipastikan anda salah menuliskan nama fungsi terbilangnya.
- Klik Option, dan ketikkan Deskripsi fungsi terbilang anda dalam kotak Description. Akhiri proses dengan klik tombol OK dan berikutnya Klik Tombol Cancel untuk menutup Macro dialog.
- Untuk memberi password kode VBA anda, pindahkan jendela aktif ke jendela Visual Basic, Klik kanan pada VBAProject (Book1) – pilih VBAProject Properties, selanjutnya akan ditampilkan dialog VBAProject Properties , aktifkan Tab protection, masukkan password pada kotak password dan konfirmasi pada kotak Confirm Password.
Jika anda bermaksud mendistribusikan Add Ins anda secara gratis dan untuk tujuan pembelajaran, sebaiknya tidak perlu dipassword, karena penerima Add Ins anda akan lebih mudah mempelajari kode anda.
Membuat Add Ins
Setelah semua langkah kita lakukan, selanjutnya adalah proses packing Add In, adapun langkahnya adalah sebagai berikut.
- Tutup Visual basic Editor anda. Simpan Dokumen excel anda dengan klik menu File – Save As.
- Ubah Save As Type menjadi Microsoft Excel Add In (*.xla), dan spesifikasikan tempat penyimpanannya.
- Beri nama bebas, misal budi-terbilang.xla dan tutup dokumen excel anda boleh disimpan boleh tidak.
Pembuatan Add In telah selesai, dan anda bisa mendistribusikan file budi-terbilang.xla untuk teman anda atau siapa saja yang membutukan.
Apakah pekerjaan sudah selesai? Belum, kita lanjutkan ke pekerjaan terakhir.
Menginstall Add In
Setelah kita membuat, selanjutnya adalah menginstall Add In yang sudah kita buat pada Microsoft Excel kita atau teman anda. Langkahnya sebagai berikut:
- Siapkan File Add In (Budi-terbilang.xla)
- Buka Microsoft Excel anda, Klik Menu Tools – Add Ins
- Klik Browse dan arahkan ke tempat penyimpanan file Add In Anda (budi-terbilang.xla) dan klik OK Pastikan budi-terbilang tampil dalam list dan dalam kondisi aktif
- Nah… pekerjaan telah selesai, dan sekarang anda bisa menggunakan fungsi terbilang di cell manapun dan file manapun (selama Add In aktif tentunya)
Demikian, semoga bermanfaat.
Artikel lengkap versi PDF bisa didownload disni atau di IlmuKomputer.Com
Sebelumnya terimakasih banyak atas add ins yang bapak temukan, dan gratisan lagi, Pak saya udah mencoba nya tapi koq ada yang eror yah, gimana caranya masukin kode-kode itu,apa di copy seperti biasa,apa ada cara yang lain. trus apa kode yang memakai bahsa indonesia juga di masukin semua,makasih sebelumnya.pak. Salam buat Dhea yang imut.
salah dibaris yang mana mas?
coba terus.. pantang mundur…..
Thanks dah berkunjung
ada revisi pada baris betikut :
‘Baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + ratus(sen, 0) + “sen”
else
baca = baca + “ rupiah”
End If
dan pada baris berikut :
terbilang = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))
PADA LAYAR EXCEL “COMPILE ERROR: SYNTAX ERROR TRUS PERINTAH OK &HELP.TOLONGIN DUNK pA.
Perbarui penulisan ” dan ‘ (hapus dan ketik ulang tanda ” dan ‘ ) anda bisa menggunakan find & replace untuk mempercepat.
Kalau memang sudah mentok, anda bisa download add in yang sudah jadi dari link dibawah ini. Extract file zip-nya, selanjutnya anda tingal jalankan perintah install Add In, arahkan file pada budi-terbilang.xla hasil extract. Terimakasih, terus mencoba dan tetap semangat.
budi-terbilang-jadi
thx 4 ilmu nya cak…
contoh : 1.500.000,25 (satu juta lima ratus ribu ‘Rupiah’ dua puluh lima ‘Sen’)
saya sudah coba revisi dari anda, belum bisa. terima-kasih.
terima kasih
sepertinya revisi diatas sudah bisa membantu, coba dicek lagi kodenya …..
pastikan seperti ini:
‘Baca bagian satuan
If satu > 0 Then
baca = baca + ratus(satu, 1) + “rupiah ”
Else
baca = baca + “rupiah “
End If
‘Baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + ratus(sen, 0) + “sen”
End If
Selamat mencoba dan terus semangat
@berut
Makasih atas koreksinya
gini aja, pada bagian milyar anda tambahkan baca, sehingga menjadi seperti dibawah.
If milyar > 0 Then
baca = baca + ratus(milyar, 4) + “milyar ”
End If
Demikian, terima kasih atas koreksinya
sekali lagi thanks bro
sama-sama
boleh tuh yang pake array… tinggal disempurnakan aja
Kalau mas eko copy VBA nya dari artikel ini, mas eko harus merubah ` menjadi ‘ , saya sarankan untuk copy dari artikel PDFnya yang bisa didownlod di sini atau sebagai perbandingan bisa lihat contoh add in jadinya disini (tinggal install saja) dan direvisi seperti pada komentar-komentar sebelumnya.
makasih dan tetap semangat
moga bermanfaat, saya ucapkan makasih banyak buat cak bud
sepertinya tinggal diubah saja teksnya menjadi bahasa inggris, atrau anda bisa juga googling fungsi terbilang VBA dalam bahasa inggris, terus anda tinggal masukkan dalam modul.
makasih
mas Eko, sebenarnya tidak semua pengujian harus dibuatkan add Ins, pembuatan Add Ins dibutuhkan apabila kita memerlukan pengujian yang rumit dan dibutuhkan berulang-ulang. Untuk kondisi yang mas Eko sampaikan menurut gambaran saya (mohon maaf kalo salah) bisa dibuat seperti ini.
1. Ambil dua karakter disebelah kanan
2. Ujikan, jika =00, maka belum mencapai target
3. Jika =01, maka telah mencapai target
Kode modulnya menjadi seperti ini :
Function cek(kode)
If Right(kode, 2) = “00″ Then
cek = “Belum mencapai target”
ElseIf Right(kode, 2) = “01″ Then
cek = “Sudah mencapai target”
Else
cek = “Data tidak dikenali”
End If
End Function
bisa langsung copy paste atau diketik ulang lebih bagus
penggunaannya:
misal pada Cell A2, anda isi dengan 0000, kemudian pada cell B2 tuliskan dengan =cek(A2)–> akan menghasilkan “Belum mencapai target”
demikian mas Eko selamat berdjoeang dan tetap semangat
misal outnya (seribu rupiah)
Anda bisa download contoh Add Ins-nya disini, kemudian anda rubah pada bagian
terbilang = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))
menjadi
terbilang = “(” & UCase(Left(baca, 1)) & LCase(Mid(baca, 2)) &”)”
Demikian, terimakasih dan tetap semangat
masih pake lotus nih pak?
salut deh…
untuk skrip lengkapnya bisa didownload disini pak,
terima kasih, semoga bermanfaat.
trus cara menjalankan gimana..
apa pake macro atau gimana..
terima kasih jawabanya tolong kirim ke emai saya or4ng_hilang@yahoo.com
jika KO = 0.75 sampai 1
KS = 0.5 sampai 0.74
KP = 0.49 sampai 0.25
KM = 0.24 sampai 0
misal angka diketikkan pada cell A2 dan hasil pada cell B2, maka pengujian pada cell B2 menjadi :
=if(a2>=0.75,”KO”,if(a2>=0.50,”KS”,if(a2>=0.49,”KP”,”KM”)))
Silahkan disempurnakan
Rp 1.550.000,50
dibaca: “Satu Juta Lima Ratus Lima Puluh Ribu 50/100 Rupiah”
terima kasih atas jawabannya.
coba yang ini
‘Baca bagian satuan
If satu > 0 Then
If sen > 0 Then
‘baca = baca + ratus(sen, 0) + “sen”
baca = baca + Str(sen) + “/100 rupiah”
Else
baca = baca + ratus(satu, 1) + “rupiah ”
End If
Else
If sen > 0 Then
‘baca = baca + ratus(sen, 0) + “sen”
baca = baca + Str(sen) + “/100 rupiah”
Else
baca = baca + “rupiah ”
End If
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))
terimakasih, semoga membantu
‘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 + Str(sen) + “/100 ”
‘baca = baca + ratus(sen, 0) + “sen ”
End If
End If
terbilang = UCase(Left(baca, 1)) & LCase(Mid(baca, 2)) + “rupiah ”
tetapi kenapa kalau saya tulis 922.999.999.999.999,00
hasilnya : ‘#NUM!
Kalau mau menggunakan add ins ini kedalam Access mudah saja, buat database baru, kemudian aktifkan bagian modul dan laukan langkah2 seperti pembuatan modul diatas.
Penggunaannya, coba buat form, pasangkan satu tombol, kemudian build event, ketikkan code berikut
msgbox terbilang(1000)
kalau menghasilkan pesan Seribu rupiah berarti sudah benar. silakan dikembangkan.
@azwar
coba saya cek lagi mas
@pamor
ah masak… coba dicek lagi… atau download di link komentar sebelumnya, terima kasih.
he he he… OK
sami-sami.. jangan lupa untuk melakukan perubahan seperti hasil diskusi diatas biar menjadi lebih baik …
Selamat berdjoeang dan tetap semangat
(Stock Awal Bulan + Stock Masuk – Stock Keluar = Stock Akhir Bulan)
bisa minta gambaran tabelnya mas, kalo rumusnya lebih pas dimasukkan di query saja
tuliskan aja di cell excelnya dengan
=proper(terbilang(nama_cell)
semoga membantu
halah… cak ali iso wae
tapi ya Alhamdulillah bisa berbagi, semoga bermanfaat
Cuma kalau angkanya terlalu besar (mis. 9 digit) bisa jadi masalah
karena tempatnya tidak cukup.
Bagaimana caranya kalau lebih dari 75 karakter bisa dilanjutkan dibaris
berikutnya ?
Terima kasih.
Terimakasih sudah menggunakan,
Kalo pakai format wraptext, bisa jadi solusi gak?
misalnya begini, cell yang ditempati hasil terbilang anda format dengan
- Klik menu format | cells
- Aktifkan bagian Alignment
- Pada bagian text control, beri tanda cek pada wrap text
semoga membantu dan terima kasih
selamat berdjoeang dan tetap semangat
Maklum baru pemula jadi banyak hal sederhana yg belum saya ketahui.
Saat ini saya lagi mencoba membuat Makro sederhana untuk otomatisasi
kwitansi. Semoga tetap berkenan membantu.
Ok, sama sama mas
kalo b1, bisa pakai pengujian panjang karakter terbilangnya pak, tapi resikonya pemotongannya tidak pas
jadi pada cell a2 dikira2 maksimunya berapa, kemudian di a2 diisi dengan left terbilang sebanyak nilai maksimum panjang karakternya.
pada cell b2 diujikan jika panjang karakter mencapai nilai maks, maka diambilkan dari right terbilang sebanyak panjang karakter dikurangi nilai maksimum
Demikian semoga membantu.
kalo anda pake Open Office bisa lanjut ke rumahnya mas Eko saja
makasih dah mampir
bisa ndak untuk huruf awal di semua Kata pakai huruf Kappital?
caranya?
TQ
gimana kalo pakai fungsi proper, seperti yang pernah ditanyakan oleh mas Ali pada komentar diatas
=proper(terbilang(nama_cell)
Misal :
tgl | masuk | harga brg masuk | Keluar | harga brg keluar | Saldo
1 10 400
2 10 500
3 5 ??? disini harusnya harga 400
tanggal 3 stock keluar 5 unit
gimana buat rumus pada kolom harga keluar agar muncul harga 400
Matur nuwun banget cak
tanggal 3 stock keluar 5 unit
gimana buat rumus pada kolom harga keluar agar muncul harga 400
Matur nuwun banget cak
sistem data/tabel stock/barangnya nya gimana mas?
coba mainkan dari tabel stock/barang aja untuk pegambilan harganya.
@Dedy
coba dengan ini
Misal A1 diisi dengan :01/01/2001
B1 diisi dengan :20/01/2002
C1 diisi dengan =b1-a1
D1 diisi dengan =INT(C1/365) &” Tahun “&INT(MOD(C1;365)/30)&” Bulan “&INT(MOD(INT(MOD(C1;365));30)) & ” Hari”
Demikian semoga membantu
Makasih dah mampir
Bagaimana kodenya misalnya kalau hasilnya Minus apa bisa, soalnya saya ketikkan -1 menjadi “Sembilan Miyar Sembilan …. dst”. dan juga bisa menampilkan warna merah jika Minus.
Makasih sebelumnya.
Bagaimana kalau hasilnya Minus, soalnya saya ketik -1 malah menjadi Sembilan Milyar …… dst, dan juga bisa berwarna merah.
tambahkan aja di pengujian yang paling atas,
Saya sudah berhasil bikin addin-nya, sekarang yang jadi masalah adalah, gimana cara menambahkan pagar(#) pada awal dan akhir output. Misalnya Rp.1.250 output yang diinginkan adalah (#Seribu dua ratus lima puluh rupiah#). terima kasih.
panggil aja terbilangnya dengan
=”(#”&terbilang(cellnya)&”#)”
Demikian semoga membantu
pakai tanda kutip aja
misal 00005 ditulis dengan ’00005
demikian, semoga membantu.
selamat berdjoeang dan tetap semnagat
Saya sedang merancang sebuah makro untuk aplikasi yang berfungsi untuk mengkopi data di sheet1 ke sheet2. Untuk mengkopinya sudah bisa, tapi ada kendala ketika saya hendak memunculkan “Msgbox” apabila cell yang dituju di sheet2 yang akan digunakan sebagai ojek paste bukanlah cell yang masih kosong (sudah terisi sebelumnya) maka akan muncul “Msgbox” yang kita inginkan.
Seperti table berikut:
Sheet1:
Pilih Nama Barang : Mesin Tik
Input Harga : 6000
CommonButton “Simpan Harga barang” (Click)
Maka “1000″ Akan terkopi disheet2 secara otomatis dikolom harga sesuai urutanya dikolom Nama Barang.
Sheet2:
Nama Barang Harga
1. Sepeda 5000
2. Buku 2000
3. Kalkulator ….
4. Mesin Tik 6000
5. Motor
6. Lemari ….
Jika saya pilih lagi barang yang sudah ada harganya, kemudian diklick “Simpan Harga barang” maka harga yang lama (yang sudah ada di sheet2) akan tertimpa oleh harga yang baru. Sementara yang saya inginkan adalah Munculnya Msgbox: “Ganti Nama Barang lain”
Mohon solusi dari Cakbud. Terima kasih.
tapi ada yang saya mo tanya lagi nich:
Saya coba membatasi scrollarea di properties sheet, setelah saya masukan “range”nya misalnya $A$1:$L$25 , hasilnya sesuai dengan apa yang saya inginkan. Namun setelah saya “save” dan tutup filenya dan begitu file tersebut dibuka kembali range ($A$1:$L$25) yang tadi saya input diproperties sheet kosong seperti semula lagi. Saya sudah coba beberapa kali tapi hasilnya tetap sama. Mohon pencerahannya lagi..!
Sebelumnya terima kasih banyak atas bantuannya
pada thisworkbook , Workbook-open
Private Sub Workbook_Open()
Sheet1.ScrollArea = “$A$1:$L$25″
End Sub
pasti dijamin gak berubah lagi
Makasih dan terus berdjoeang dan tetap semangat
cakbuds last blog post..Mencari Data Pada Lembar Kerja Excel Dengan VBA
Bila kita mau buat dalam bentuk dollar gimana ya?
Makasih bos atas tutorialnya. Sangat membantu sekali
kemixs last blog post..Ubuntu 8.10
terima kasih sudah berkunjung
Lam kenal mas, mohon sekali bantuannya untuk merubah angka menjadi bilngan dalam membuat nilai siswa, misal : 25.50 terbaca Dua Puluh Lima Koma Lima Nol, dst.
Terimakasih banyak atas bantuannya,…
wa’alaikumsalam..
salam kenal kembali, tinggal edit saja kodenya pak, buang rupiah dan sederhanakan pengujiannya, karena saya pikir kalau nilai siswa gak sampe ribuan
orang mana sih mas budi ini …
aku mo tanya, bagaimana cara membuat fungsi terbilang 2 baris?
misal nya 1.525.645.
pada baris pertama terbilang satu juta lima ratus dua puluh
pada baris kedua lima ribu enam ratus empat puluh lima
Terima kasih atas bantuan nya mas
Mohon bantuan lagi!
Saya mau bikin vba untuk menyimpan data yang saya input di salah satu file excell (nama file “satu”) tapi begitu saya klik “common button save/simpan” maka data yang ada di file “satu” secara secara otomatis terkopi/tersimpan di file “dua”. Mohon cakbud bisa menuliskan code VBA-nya, kalau bisa beserta contoh yang sudah jadi.
Sebelumnya saya ucapkan terima kasih banyak atas bantuannya.
Salam,
Nana
misalnya:
75 = tujuh puluh lima
Begini pak, edit saja bagian ini
‘Baca bagian satuan
If satu > 0 Then
baca = baca + ratus(satu, 1) + “rupiah ”
Else
baca = baca + “rupiah ”
End If
‘Baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + ratus(sen, 0) + “sen”
End If
buang satuan rupiahnya dan sen-nya sehingga menjadi :
‘Baca bagian satuan
If satu > 0 Then
baca = baca + ratus(satu, 1)
Else
baca = baca
End If
‘Baca bagian sen dan ditambah akhiran sen
‘If sen > 0 Then
‘baca = baca + ratus(sen, 0) + “sen”
‘End If
Demikian semoga membantu dan terima kasih sudah mampir…
bisa ga pake tambahan koma? contoh:
75,2 = tujuh puluh lima koma dua
terima kasih sebelumnya atas ilmunya lagi. BAPAK HEBAT
edit pada bagian sen pak
ubah menjadi seperti ini
‘Baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + ” koma ” + ratus(sen, 0)
End If
di tempat saya dengan regional setting Indonesia,
70,5 ==> Tujuh puluh koma lima
dengan kode seperti ini
‘Baca bagian satuan
If satu > 0 Then
baca = baca + ratus(satu, 1)
Else
baca = baca
End If
‘Baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + “koma ” +ratus(sen, 0)
End If
pastikan juga regional & language option pada komputer anda sesuai dengan format decimal yang anda tuliskan, misal
Indonesia menggunakan , (kome) dan English United State dengan . (titik).
Demikian semoga membantu dan terima kasih.
baca = baca + “koma ” +ratus(sen, 0)
warnanya jadi merah dan dah githu ga bisa disave juga. maaf ya pak ngerepotin. oh ya…makasih dah berteman di facebook.
Tapi kalo huruf paling depan dari tiap kata mau diubah jadi huruf besar gimana yak?
padahal di scriptnya huruf awal dari Triliun, Milyar, Juta, Ribu Ratus udah diubah jadi besar semua tapi gak berhasil… contoh:
“Satu juta rupiah” mau jadi “Satu Juta Rupiah”
Salam/Roni
Thanx ya Om Bud.
Ok sama-sama
c:\Documents and Settings\nama user\application data\Microsoft\AddIns\
sehingga apabila pindah-pindah komputer tetap terbaca, tapi sebenarnya selama komputer yang digunakan sudah terinstall addins, tinggal diupdate saja.
terima kasih
Rp. 1.234,50 = harusnya dibaca seribu dua ratus tiga puluh empat rupiah lima puluh sen. atau seribu dua ratus tiga puluh empat 50/100 rupiah.
Buka seribu dua ratus tiga puluh empat