Macro Excel: Mengubah Angka Menjadi Teks

Terbilang

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.

Terbilang (1.23 KB)

Tambahan (23-04-2007). Bagi Anda yang kesulitan menerapkan macro ini, berikut adalah petunjuk singkatnya.

  1. Setelah berkas (file) di atas Anda unduh, bukalah dengan aplikasi pembaca teks. WordPad, misalnya.
  2. Bukalah berkas Excel yang baru, atau berkas milik Anda yang ingin ditambahi kode ini.
  3. 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.
  4. Di bagian VBAProject di panel sebelah kiri, klik-kanan ThisWorkbook > Insert > Module.
  5. Di bagian kosong yang terbuka di bagian kanan, tuliskan kode macro yang tadi dibuka di WordPad. Silakan salin-dan-tempel.
  6. Kembalilah ke jendela Excel Anda, dan cobalah tuliskan formula terbilang di salah satu sel. Misalnya, tulislah =terbilang(123) maka hasilnya akan berupa tulisan seratus 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.

  1. Sepertinya sih dari Microsoft KB []

Tags: , , ,

Entri yang Mungkin Terkait

Komentar. Silakan berikan komentar Anda. Beberapa tag HTML diperbolehkan. Anda juga dapat mendaftar di Gravatar untuk menampilkan foto Anda.

  1. Avatar milik sayya

    anda membuat saya selangkah lebih pandai. semoga menjadi amal jariyah buat saudara dan semoga berguna bagi yang menggunakannya. trims bro.

  2. Avatar milik miftach

    gan gmn macro klo mengkonfersi angka ke huruf tapi tanpa koma,
    misalnya 87,4 ( dibulatkan 87)..
    ato 87,6 (dibulatkan 88)…
    thanks

  3. Avatar milik yuliantoro

    untuk menghilangkan rupiahnya gimana?

  4. Avatar milik Mamun Abdulloh

    Makasih atas informasi gratisnya.

    Semoga jadi amal baik dan mendapat balasannya.

    Mamun A

  5. Avatar milik dipo

    thanks.. semoga sukses selalu

  6. Avatar milik alang

    top banget terima kasih!!!! baaannyaaaak!!

  7. Avatar milik astar

    terimakasih pak… tambah ilmunya

  8. Avatar milik antox

    matur suwun….

  9. Avatar milik Sugeng

    Pak Priyatna yang baik, saya pingin nanya. Saya menggunakan data excel 2007 sebagai sumber mailmerge. Yang menjadi maslah adalah data bilangan dalam format misal Rp. 100.000 tidak dapat ter-merge dengan baik di ms-word sehingga hanya tertulis 100000 tanpa ada titik ditengah.
    Begitu pula dengan format ‘date’ misal di excel dalam format ‘date’ tertulis 4 Januari 2012 tapi setelah di-merge kembali ke 1/4/2012. Mohon pencerahan untuk masalah ini.
    Terima kasih.

  10. Avatar milik Peter Suryawijaya

    miftach : untuk merubah angka tanpa koma. Ya kita pakai fungsi round, seperti contoh berikut: =round(A10)
    setelah di round baru cell tersebut di =terbilang(A11)

  11. Avatar milik haritz kamal

    Alhamdulillah ……terima kasih…….. semoga ilmu yang bapak salurkan senantiasa mendapat pahala dan balasan yang setimpal serta bermanfaat selalu……. Amin..

  12. Avatar milik dani

    Minta infonya pak… kalau untuk menampilkan bulan saja pada saat ini (misalnya sekarang bulan MARET) yang scara otomatis berganti tiap bulannya, di MS Visual Basic pada Excel gimana caranya pak…?

  13. Avatar milik toety

    waaaahhhhh,,,, canggih bener… makasih banyak neh ilmunya,,,,

  14. Avatar milik mifta

    MasPri, mo nanya nich……gmn caranya agar kalo kita ngetik di excel : 10051980 di A1 trus munculnya di B1 menjadi 10 Mei 1980 (nama bulannya Indonesia)—–jadi rumusnya bgmna gtu?!
    Makasih ya mas bantuannya….

  15. Avatar milik merry waty

    Terima kasih banyak ya pak, ilmunya sangat bermanfaat

  16. Avatar milik Abdul Rasid

    Alhamdulillah ……
    terima kasih Sangat membantu
    semoga apa yang telah bapakberikan senantiasa mendapat pahala dan balasan yang setimpal ……. Amin..

  17. Avatar milik fadhli

    @ + [259610997419062:0] 1). copy kode itu di coment (jangan di ketik di coment) 2). lalu di paste di coment, hapus tanda + Nya 3). enter deh … selamat mencoba

  18. Avatar milik mukti ali

    makasih banyak yah mas pri, tapi aku mau tau pengertian dari list programnya dan logikanya dong (baris perbarisnya), soalnya aku mau mempelajarinya lebih lanjut tidak hanya bisa copi doank.
    trimakasih banyak aku mulai tertarik untuk memperlajari macro diexcel soalnya jadi penasaran nin, jawabannya saya tunggu secepatnya yah…

  19. Avatar milik acenk

    terima kasih…., sungguh luar biasa anda sangat membantu…
    sukses selalu…!

  20. Avatar milik roma

    Mau tanya untuk mengganti fungsi sumproduct menggunakan macro gimana pak…? Makasih udah di perhatikan. Kalu sudah dapat solusinya bisakah kirim ke imail saya pak…??? Terimakasih atas Semuanya,….

· 1 · ... · 3 · 4 · 5

Reply

Your email address will not be published. Required fields are marked *

*

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong> <pre lang="" line="" escaped="" highlight="">