Tiga hari yang lalu, seorang teman menghubungi saya lewat telepon, bertanya tentang formula untuk mengubah sebuah angka menjadi teks. Dia ingin mengubah, misalnya, angka 145 menjadi seratus empat puluh lima. Seperti tulisan “terbilang” yang ada di kuitansi-kuitansi.
Saya ingat, dulu saya pernah membuat sebuah macro di Excel yang berfungsi seperti ini. Sebenarnya, macro ini aslinya untuk teks berbahasa Inggris (saya lupa dapat dari mana1), kemudian saya mengubahnya menjadi berbahasa Indonesia. Karena adanya perbedaan struktur bahasa, tentu saja perubahan ini menjadi tidak sekadar hanya menerjemahkan.
Silakan unduh kodenya—hasil ubekan dari tumpukan file. Anda tinggal memasukkannya ke bagian module di MS Visual Basic pada berkas Excel Anda. Di worksheet, Anda bisa memanggil fungsi ini dengan menulis =terbilang(x). Angka x dapat Anda isikan langsung, atau dapat pula merupakan referensi ke sel lain.
Tambahan (23-04-2007). Bagi Anda yang kesulitan menerapkan macro ini, berikut adalah petunjuk singkatnya.
- Setelah berkas (file) di atas Anda unduh, bukalah dengan aplikasi pembaca teks. WordPad, misalnya.
- Bukalah berkas Excel yang baru, atau berkas milik Anda yang ingin ditambahi kode ini.
- Pergilah ke Tools > Macro > Visual Basic Editor. Langkah ini dapat pula Anda tempuh dengan menekan Alt + F11. Langkah ini akan membuka satu jendela khusus untuk Visual Basic Editor.
- Di bagian VBAProject di panel sebelah kiri, klik-kanan ThisWorkbook > Insert > Module.
- Di bagian kosong yang terbuka di bagian kanan, tuliskan kode macro yang tadi dibuka di WordPad. Silakan salin-dan-tempel.
- Kembalilah ke jendela Excel Anda, dan cobalah tuliskan formula terbilang di salah satu sel. Misalnya, tulislah
=terbilang(123)maka hasilnya akan berupa tulisanseratus dua puluh tiga rupiah. Anda juga dapat menulis formula dengan=terbilang(B3), misalnya, dan sel B3 berisi angka yang ingin dibuat teks.
Perhatian. Bila macro di aplikasi Excel Anda tidak dapat dijalankan, periksalah bagian Macro security. Pergilah ke Tools > Options…, klik tab Security lalu klik tombol Macro Security di bagian bawah. Ubah pilihan Security level ke Medium (disarankan) atau Low.
Pembaruan. Pengecekan bilangan negatif ditambahkan. Bilangan negatif akan dibaca minus sekian sekian.
19-12-2007. Berkas add-ins untuk fungsi terbilang tersedia untuk diunduh. Terima kasih agus untuk sarannya.
Add-Ins untuk Fungsi Terbilang
Untuk mengaktifkan add-ins ini, simpan berkas .xla yang sudah Anda unduh di komputer Anda. Di Excel, pergilah ke menu Tools > Add-Ins…. Di kotak Add-Ins yang terbuka, klik tombol Browse… dan arahkan ke berkas .xla yang Anda miliki. Add-ins untuk fungsi terbilang kini tampak dalam daftar. Centang kotaknya lalu klik tombol OK. Anda sekarang dapat menggunakan fungsi ini di semua dokumen Excel yang Anda buka.
- Sepertinya sih dari Microsoft KB [↩]
Tags: download, excel, macro, tips
Entri yang Mungkin Terkait
- Excel: Macro dan Conditional Formatting
- Ekstensi yang Saya Pakai di Firefox
- Macro Excel Pengganti VLookup
- Mengatur Tampilan Foto Flickr di Blog
- Mencari Nama Hari dari Sebuah Tanggal di Excel
Komentar. Silakan berikan komentar Anda. Beberapa tag HTML diperbolehkan. Anda juga dapat mendaftar di Gravatar untuk menampilkan foto Anda.
-
Asslamu’alaikum
Mas Eka…
Makasih atas ilmu makronya, nd kalo tidak keberatan mohon kirim fungsi terbilang yang hurup awalnya kapital (Add-In Terbilang) yg udah jadi. Aq udah kutak katik error aja….
Wassalam
-
MAKASIH ATAS INFONYA
karya anda sangat bermanfaat untuk saya.
boleh nggak saya minta info tentang kegunaan-kegunaan Ms Excel, rumus-rumus dan fungsi excel dan definisi/sejarah excel????
klo bisa kirim ke e-mail saya.
makasihwassalam
-
sy mhn bantuan pak priatna, saya ingin merubah format tanggal menjadi format text (bukan codeascii), jadi format textnya seperti pada format tanggal, karena sy ingin menggabung tanggal lahir dan tgl cpns utk keperluan konversi nip dari 9 digit ke 18 digit, ketika sy pake fungsi concanate hasilnya berupa gabungan kodeascii, trims sebelumnya atas bantuan bapak
-
mas terima kash terbilang udah saya pakai
tapi saya masih bingung gimna cara memulai mebuat macro dari awalsaya ingin membuat macro untuk kode tiap direktorat di kantor saya
misal :1 = Direktorat A
1.1 = Sub direktorat A.1 dst
2 = Direktorat B
3 = Direktorat C
4 = Direktorat E
karena kalo pake if kan banyak n ternyata fungsi if gak bisa sebanyak itu karena total semua direktorat dan subdirektorat sekitar 100terima kasih sebelumnya
bisa dikirim ke email saya akbp_adi@yahoo.co.idsudah meminang anak ketiga belum?
-
Umpanbalik from Mengubah Angka Menjadi Teks « truth prince el9 on 3 February 2009 at 10:47
-
Haturnuhun “terbilang”na sangat-sangat membantu!
-
Umpanbalik from tutorial excel « Nila08’s Weblog on 3 February 2009 at 16:07
-
Sy Buat Lembar Kerja Di Sel (E2:E3000) saya input data MTCN (10 digit angka)
Sy ingin agar pada saat saya ngetik jika ada ganda maka muncul warning (msgbox)
karena kalau input manual khan bisa aja dobel
Itu penanganannya gimana ya?mhn pencerahannya,trims
-
Saya baru mulai BElajar Excel karena kebutuhan akan tuntutan kerja di kAntor. Saya mempunyai beberapa pertanyaan yang sangat memerlukan bantuan Anda. Kalo boleh saya ingin mengirimkannya ke alamat email anda. Mohon dibalaskan ke email saya alamat email anda. Mohon bantuannya. Thanks
-
saya meng copy lumayan banyak angka model 1123111195000002 dari word ke excel, tapi pada excel angka terakhir semua berubah menjadi 1123111195000000 (angka terakhirnya menjadi nol), bgm caranya data yang sudah saya copi ke excel tsbt berubah kembali sesuai aslinya seperti pada pada word tanpa harus mengetik kembali di excel (atau menggunakan karakter (‘))karena terlalu banyak. saya sdh merubah dari format number ke text tapi tetap akhirnya nol juga. smg tidak bingung dengan pertanyaan saya.. mohon solusinya thank’s.
-
Salam silaturrahmi Mas,,
kebetulan kemarin ada praktikum Excel Macro, baru pertama kali jadi saya ga ngerti sama sekali Mas, mohon bantuannya banget Mas, saya ada tugas pertanyaan berikut ini:
1. Apa saja fungsi-fungsi pada VBE Excel?
2. Apa yang dimaksud pernyataan bersyarat pada Excel Macro?
3. Jelaskan fungsi & prosedur pada Excel Macro!Mohon bantuannya ya Mas, tolong banget Mas, soalnya besok senin 30 februari mau dikumpulin tugasnya, mana disuruh pake mesin ketik lagi, macem-macem aja ni tugas :(
Semoga amal baik Mas Eka mendapatkan balasan kebaikan yang berlipat-lipat ganda, amiin…
-
Kang Eka : saya coba bantu ya.. semoga berkenan
@ Trisno Pujianto : anda bisa coba pake fungsi validasi, tidak perlu makro.
misalkan anda input data di sel (E2:E3000) , maka cara validasinya :
1. Tools > Data Validation > Setting
2. di bgn validation criteria :: pilih Allow = Custom
3. pada bagian formula isikan dengan =countif($E$2:E2,E2)=1
4. pada tab ‘Error Alert’, isikan pesan kesalahan yang ingin anda tampilkan. Misalnya title = “warning” ; Error message = “Data entry double”.
5. Klik OK
6. Klik sel E2, copy, sorot sel (E3:E3000)
7. Pada sel yang tersorot, klik kanan : paste spesial > validation, klik OK. -
@Yoen,..
Untuk masalah anda,.. kita pake cara ‘bodoh’ saja ya :
1. Copy list anda ke notepad
2. Format sel excel yang anda akan gunakan ke text
3. Pastekan nomer tersebut
Mudah kan ?? :-) tidak perlu makro !
To All :
Excel sudah sangat membantu dengan fitur ‘help’-nya. Silahkan teman2 coba ‘tanyakan dulu ke excel’ sebelum bertanya lebih lanjut. Dengan demikian, teman akan mendapatkan pengetahuan tambahan yang lebih komprehensip, tidak setengah2 dan terima jadi saja.
Syarat utamanya : bahasa inggris !! -
Pintar benar, programnya sangat berguna bagi orang lain, terima kasih atas programnya
-
Mas, boleh dong saya di kasih source code semi aplikasi kenaikan gaji berkala, dp3 dll yang menyangkut dengan kantor pemerintah, saya sangat butuh
-
saya harus download dari mana file yang bisa membaca bilangan desimal????
-
Assalamu’alaikum Wr. Wb
Salam kenal,
saya sanusi
bisa nggak mas bantu saya, saya ingin mendownload file “membaca desimal” pada excel, tapi saya g ttahu harus downloadnya dimana, mohon bantuannya ya mas…….trims banyak ……
-
aak, mohon bantuannya dong… q msh awam ttg makro.. bs dibuatin kode/satu rumusan makro, yg hrs dimasukkan dlm modul… untuk membuat angka manjadi teks. misalnya buat nilai
MSL 2,75
dan jika nilai B munculya 3
B+ muncul 3-3,5 : B- munculnya 2,5-3 dst…. hehe
kira2 bs gak ak?!! tlong dikirim ke email z : awike@yahoo.com
matur suwun…!!! -
makasih mas…
sukses terus buat mas…. -
bos gimana cari nama yang sama di dalam kolom excel yang cepat seperti nama penduduk yang ter input dobel dalam daftar pemilih tetap di pemilihan umum. saya mohon bantuan secepatnya ya bos karena penting banget buat kelancara kerja aku makasih
-
Assalamu’alaykum, Trims infonya ya mas.. suksess selalu
-
mas, mo tanya2…
1. gimana caranya menghitung hari kerja di excel. misalnya saya dapat penugasan tanggal 1 Januari 2009 s/d 30 January 2009. kalau diitung kan ada 29 hari, padahal itu belum kepotong hari sabtu dan minggu.
2. Bisa gak sih mas mnampilkan kalender di excel, misalnya tinggal masukin range 1 Jan – 30 Jan 09, lalu keluar kalendernya….
—maunya yang gampang neh—
tengkyu -
thanks banget mas…. programnya sangat bagus….
-
Pak, kalau mengubah angka menjadi text tanpa pakai kata rupiah gimana?
trims -
makasih banyak mas sya ga usah repot2 menulis kode macronya tinggal copy langsung oke…..
sekali lagi makasih bangeeeeeeet -
Mas,bisa ga masukin gb atau foto kedlm cell excel? msl, kita masukin alamat file foto pd A1 (c:/foto/andy.jpg) trus klo dienter berubah jd foto tsb.. gmn caranya?
-
Mas bisa ga misal kita inpüt pd cell A1 (c:/foto/andy.jpg) trs klo diEnter muncul gb dr file tsb dicell A1.maksudnya mo nampilin foto tnp pake insert image..tolong donk klo bisa..
-
Ma kasih smuanya atas infonya….
Pokoknya maju terus teknologi indonesia he..hee…!!! -
Mas, bisa dikirimkan kepada saya module untuk merubah angka dalam bentuk desimal
misalnya
NIlai : 8,27 delapan koma dua puluh tujuh
terima kasih…. -
saya lagi kesulitan untuk mengerjakan tugas nih. mohon bantuannya…
it would be much appreciated.bila saya ketik “sabun A” di cell1, lalu cell sampingnya akan muncul harga sabun A yang sdh kita input ke dalam database.
berikut seterusnya.mohon pencerahannya ya kakak-kakak sekalian.
terima kasih.
-
Mohon Bantuannya;
gimana carax supaya
jika A1 = Budi (Validation-List-range:data)
maka A2= mucul foto budidata=
nama(A10);tgl lahir(B10); alamat(C10);Foto(D10)data sy sdh lengkap, foto sdh di masukkan ke masing2 cell
sekali lagi mohon bantuannya..
sy sudah cari kemana-mana, nanya sama pakar2 excel dikantor tp gak ada yg tau.. -
saya dah coba dan bisa, tetapi yang saya unduh hanya untuk 10 input data, gimana caranya supaya dapat input lebih banyak mgkin 100-200 dst? trus file dalam winrar tsb namanya konversi, saya coba add-ins tapi tidak bisa, katanya …… doesn’t valid. mohon bantuannya, Trims. Wslm
-
Mas mudah yh bru nyoba dah bisa klo tinggl salin aj mah, tpi sya pngen bisa logikanya nih n syntaxnya..btw makasih yh mas moga ada ilmu2 lain
-
Wah akhirnya bisa juga…. thk ya atas infonya.
-
Thanks aku jg akhirnya sudah bisa mengubah number k text =)
-
Assalamu’alaikum…
salam TI….
mas aku kok gak bisa ya njalanin makronya, dah tak copy tapi tiap ku jalankan pasti eror, tolong bantuannya,…
trimms…Wassalamu’alaikum …
-
kalo angkanya pake koma gomana ? misal 1.2 menjadi satu koma dua. saya coba modifikasi gak ketemu.
-
kak minta bantuan.y dooong??? penting nih, gimana supaya udah bwt angka pke randbetween d me 2007, dicopi supaya angkanya gak rubah- rubah, makasih???
-
Thanx bos….rumus ini yang gw cari2….
pokoknya top markotop dah…smoga tetap jaya… -
Untuk exel 2003 fungsi terbilang sudah bisa diterapkan… tp untuk exel 2007 gmn ya??? sy merasa kesulitan dng menu pd exel 2007… mohon bantuannya?? Thanx… Klo bisa jwban jg dikirim ke emailku : arizal_clp@yahoo.com. Thanx…
-
maaf….bs bantuin ngga’ gmn hasil dan pnjelasan dari soal ini?
Sub klp2()
Cells(1, 1) = 4
a = 3
For i = 2 To 20
a = a + Cells(1, 1)
If a Mod 4 = 1 Then
Cells(i, 1) = a Mod Cells(1, 1)
ElseIf a Mod 3 = 0 Then
Cells(i, 1) = (Cells(1, 1) Mod 2) + 1
Else
Cells(i, 1) = (Cells(1, 1) Mod 3) + 1
End If
Cells(i, 2) = a
Next i
End Subthanks before…..
-
maaf mohon bantuan info
baru hari ini saya mengenal makro dan mendapat tugas mengenai makro
semula ada tabel excel 1 dengan misal saja 7 kolom
jika 4 kolom ingin diubah menjadi vertikal (yang semula horisontal) / ditranspose, bagaimana konsep makro yang harus dibuat? terima kasih -
pak priatna yth;
saya mau tanya bagaimana cara mengcopy rumus hyperlink di excel 2003?
contoh: =’sheet1′;$b2
=’sheet2′;$b2
dstfile://d:\file1-click once to follow. click & hold to select this cell.
terima kasih. -
macro yang sangat bermanfaat mas…
Terima kasih atas sharing-nya.. -
Pak Priatna Yang terbaik;
sy mau tanya, bagaimana merubah angka menjadi teks pd macro di excel tanpa ada teks rupiahnya.
terima kasih banyak. -
Pak Priatna
terima kasih atas macronya, sekarang buat Bukti potong makin cepat, :) -
Thank’s rumus Terbilang nya. GBU
-
Mantavvvv, saya suka banget artikelnya mas
masih ada nggak tips dan trik lainnya
lansung emailnya aja ya mas… -
makasih,bung.kami sering menemukan kesalahan atau ketidaksesuaian antara terbilang dg huruf(teks).
mhn ijin,saya share link Anda.mksh -
Mas…pekerjaan saya sering membuat surat….bisa ga dibantuin membuat membuat macro misalnya begini :
di cell tertulis 12 Maret 2009 (format cell=date) = III (mengubah nama bulannya menjadi angka romawi sesuai dengan urutan bulannya….). bisa ga dibuatkan macronya dari bulan januari sampai desember?terima kasih sebelumnya
bisa dikirim ke email saya taufik@inbox.lv
‹ Previous · 1 · 2 · 3 · 4 · 5 · Next ›
Reply
205 comments
Comments feed for this article
Trackback link: http://priatna.or.id/2006/03/20/macro-excel-mengubah-angka-menjadi-teks/trackback/