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.
-
perintah diatas sudah saya jalankan tapi maksud saya spy tdk mengcopy langsung saja terkonversi
contoh dalam formula tsb misalnya menajdi : =IF(E5=””,””,IF(E5=”SK”,label(now()),label(Now())))tapi kok tidak berhasil, adakah fungsi untuk mengubah langsung sptr dia atas?
-
trim’s mas eka udah kelar semua…..tp saya pingin nambah dikit aza
klau dalam penulisannya terbilang…itu ada tanda ( ) misal:
(seratus lima puluh ribu rupiah)….yg harus sy tambah dimana tuk tampilnya kurung buka kurung tutup…..mksh…… -
Aris: Sependek pengetahuan saya, tidak ada fungsi seperti itu. Andaikan ada, formula yang Anda tulis (=IF dst) menjadi tidak berguna lagi kemudian. Saya kira lebih mudah bila Anda gunakan fitur Paste Special seperti di atas. Atau Anda bisa juga menekan Ctrl + ; untuk menampilkan tanggal hari ini dan Ctrl + Shift + ; untuk menampilkan waktu.
arie: Bisa ditambahkan di kode macro-nya, atau boleh juga ditulis di selnya langsung seperti ini:
="(" & terbilang(x) & ")". -
Haturnuhun Kang Eka…
tdk masalah formulanya hilang, yg saya inginkan adalah tanggal tersebut konstan/tetap baik berupa nilai ataupun label sebagai tanggal transaksi.
=IF(E5=””,””,IF(E5=”SK”,(now()),(Now())))
formula ini akan menghasilkan 31-Jan-08 tapi ketika saya lihat/buka document ini esok maka tanggal tsb akan berganti menjadi 01-Feb-08, karena =now() fungsi untuk menampilkan tanggal & waktu system.Adakah fungsi untuk mengubah =Now() (tgl system yg tampil) menjadi label atau nilai yg tetap tdk mengacu pada tgl system.
Terimakasih.
-
dalam penulisannya di macro yg udah ada tinggal di tambah atau mlah diganti yg ditulis spt diatas maaaas….udah aku coba kok gak brasil yaaaaa
-
Tidak ada fungsi seperti itu. Selama formula tersebut tertulis di sebuah sel, dia akan terus menghitung dan memperbarui hasilnya.
Karena itu, menulis formula untuk kasus ini tidak dapat dilakukan. Anda harus menulis makro. Misalnya seperti ini:
Private Sub Worksheet_Change(ByVal myRange As Range) If Range("A5").Value = "" Then If Range("E5").Value = "SK" Then Range("A5").Value = Now Else Range("A5").Value = "" End If End If End Sub
Kode ini harus disimpan di bagian makro pada sheet tempat Anda bekerja.
arie: Tak perlu mengubah kode, ketik saja langsung di sel Excel seperti itu. Variable x bisa diisi dengan angka atau referensi ke sel lain. Misal: tulis
="(" & terbilang(23) & ")"atau="(" & terbilang(A1) & ")"dengan sel A1 berisi angka yang ingin diubah.Atau, Anda bisa gunakan ini:
=CONCATENATE("(",terbilang(x),")") -
trima kasih, matur nuwun, kamsia mas eka…….udah oke saluuut maaaas
-
trima kasih, mtr nuwun, kamsia maaaas…..
-
ternyata begini bisa :
=IF(E5=”",”",IF(E5=”SK”,TEXT(NOW(),”dd-mm-yy”),TEXT(NOW(),”dd-mm-yy”)))Hasilnya tanggal tetap karena sdh dalam bentuk teks…
Ini yang saya maksudkan
Mohon Maaf apabila pertanyaan saya sulit utk di fahamiTerima kasih
-
Tetap saja, hasil formula tersebut mengacu pada tanggal di sistem. Jika tanggal di PC diubah, hasilnya pun akan berubah.
Kode makro yang saya tulis dapat menghasilkan tanggal hari ini yang tidak mengacu pada tanggal di sistem. Kuncinya ada di baris
If Range("A5").Value = "". -
Mazzz,… bantuin saya dunk….
Itu nulis argumen untuk “MyStyle”nya gimana yah???=====================================================
If MyStyle = 2 Then
Terbilang = UCase(Mid(Terbilang, 1, 1)) & Mid(Terbilang, 2, Len(Terbilang) – 1)
If MyStyle = 3 Then
i = 1
j = 1
Terbilang = UCase(Mid(Terbilang, 1, 1)) & Mid(Terbilang, 2, Len(Terbilang) – 1)
While j > 0
j = InStr(Mid(Terbilang, i, Len(Terbilang)), ” “)
Terbilang = Mid(Terbilang, 1, j + i – 1) & UCase(Mid(Terbilang, j + i, 1)) & Mid(Terbilang, j + i + 1, Len(Terbilang))
i = i + j
Wend
If MyStyle = 4 Then
Terbilang = UCase(Terbilang)
End If
=====================================================Salah Banget yahhh????????
Duh,maap… saya bener-bener baru belajar macro…
trims yahhh.. -
tedy: Implementasinya bisa dengan berbagai cara, salah satunya bisa menggunakan pernyataan
Ifseperti yang Anda bikin. Tapi ada yang kurang tuh: akhiri setiap blok pernyataanIfdenganEnd If. -
hai mazzz tuk sekian kalinya niii…..minta bantuannya
dalam penyimpanan file setelah masuk dgn macronya
kita tutup….trus kita buka kok modulenya bs berubah ya maazzzz
mungkin dalam save-nya harus berubah atau tetep di excel maaaz trim’s -
Macro akan otomatis tersimpan saat dokumen Excel kita simpan. Jadi seharusnya kalau memang berkas Excel sudah kita save, ya gak masalah.
-
=IF(F5=”",”",copykan tgl di sel C5 ke sel D5 dengan PASTE SPECIAL—> VALUE)
Mas minta tolong lagi, aku masih bingung banget dg macro, kalo formula diatas di buat macronya gimana mas?
terimakasih mas…
Semoga Mas Eka sukses selalu
Amiiiinnnn… -
Aris: Saya terka: Anda tulis dulu formula
=today()di sel C5, lalu ingin membuat makro yang melakukan copy-paste-special-value ke sel D5 jika nilai sel F5 tidak kosong.Rasanya ribet amat , ya? :) Anda sudah coba makro yang saya tulis di komentar sebelumnya? Saya pikir itu lebih sederhana karena Anda gak perlu menulis formula
=today()sebagai dummy.Tapi, kode macro yang Anda tanyakan di atas kira-kira akan seperti ini:
Sub Worksheet_Change(ByVal rg As Range) If Range("F5").Value <> "" Then Range("C5").Copy Range("D5").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Range("D5").NumberFormat = "m/d/yyyy" End If End Sub
Mudah-mudahan jelas. Semoga Anda juga makin sukses. :)
-
Umpanbalik from Macro Excel Pengganti VLookup · Eka Priatna on 6 February 2008 at 13:02
-
halo,
Apakah saya boleh minta listing code fungsi pegawai nya….
terima kasih..
-
Raynold: Silakan baca tulisan tentang hal tersebut di blog ini.
-
assalamualaikum,
saya ingin bertanya yang pertama
apa saja macam-macam pernyataan bersyarat
pada exel macro?
kedua bagaimana langkah-langkah
membuat menu dan toolbar pada excel macro?
terima kasih..
-
waDuh,saya masiH awam didunia macro.excel standart aja saya msh belajar.tp sepertinya macro lbh efisien..tlg kl ada info tg macro dikirim ke email saya:
rose_christronald@yaho.co.id
terima kasih bnyk -
minta tolong donk ? macro nya ubah format angka ( rupiah ) ke teks.
file macro download nya gak bisa di buka.
trim’s
-
saya sudah ikuti perintah yang ada, tapi kok fungsi terbilangnya ga mau? waktu saya ketikkan =terbilang(123) lalu enter, yang muncul adalah#NAME? mohon bantuannya
-
Aduh susah bener ikutin caranya
aku udah coba , tapi apa artinya istilah unduh “Setelah berkas (file) di atas Anda unduh” bisa explain lebih spesifik or kirim aku formula di excell yang sudah jadi aja jadi aku tinggal ganti angkanya …. pleaseeeee -
rini: “Unduh” adalah bahasa Indonesia untuk download. Anda harus mulai terbiasa dengan istilah ini. :)
Yang disediakan di sini memang berkas Excel yang sudah jadi. Anda tinggal unduh! :)
-
Sebelumnya salam kenal neh kang, pa, mang, aa, kk Eka.
saya Bastian dan sudah mengikuti langkah2x bgmn cara merubah nominal menjadi text dan berhasil. Maksudnya sudah berhasil merubah Rp 100 di sel A1 menjadi seratus rupiah di Sel A2. tapi kalo merubah Rp 100 di sel A1 menjadi one hundred rupiah di sel A2 kuhama ya kang, pa, mang, aa, kk Eka.
salam,
Bastian -
ian: Untuk versi bahasa Inggris, Anda dapat mengikuti petunjuk di Microsoft KB.
Eh btw, ternyata alurnya mirip sekali dengan macro yang saya bikin. Ah, berarti dulu saya menyalinnya dari sini. :)
-
Yang Mau Belajar Macro Excel, boleh juga kunjungi link yg ini :
http://kamehani.com/?cat=8Disana ada tutorialnya juga. Semoga bermanfaat.
Trim’s -
Om kalo macro untuk fungsi nominal ke nominal bagaimana. Maksud saya begini. Contoh:
10.233 menjadi
10.000
200
33
3
Thanks. -
SAYA INGIN BELAJAR MEMBUAT FORM, FORM TERSEBUT TAMPIL LEBIH DAHULU DARI PADA FILE YANG SAYA BUKA. TAPI SAYA INGIN FORM TERSEBUT TAMPIL TANPA DIBARENGI DENGAN WORKBOOKNYA. MAAF KALO KURANG DIMENGERTI TAPI SAYA MEMBUTUHKANNYA
-
HALO. BEDUL. BUAT SAJA FORM PADA FILE EKSTENSI ADD IN.
ATAU INFO SELENGKAPNYA DI KAMEHANI.COM -
Salam kenal.
Cuman mo ngasi informasi kepada teman2 se-Indonesia yang Interest untuk belajar Macro Excel, saya sangat menyarankan anda mengunjungi situs saya, http://www.kamehani.com.
Disana saya coba menulis lengkap Belajar Macro Excel dari pemula sampai mahir. Jika ada kekurangannya mohon feed back nya ya.
Thank’s
-
saya sudah mencoba menggunakan makro excel ini, pada hari pertama saya gunakan itu berhasil, tapi keesokan harinya saya coba lagi koq ga mau ya??? apa ada yang salah??? trus tentang mengkopy add-ins itu gimana sih?? cz pas saya coba filenya ga kebaca…tank’s ya sebelumnya… ini berarti banget loh buat saya.
-
alo mas,
trims sebelumnya atas formulanya. da tak coba n sukses. thanks.
mas, ane ada masalah lagi nich, mohon bantuannya ya …
saya da coba beberapa cara untuk menggabungkan text antar cell, tapi dg bersyarat, tapi belon berhasil. berikut contoh kasusnya :No Kode Isi Cell
1 Bambang
2 Joko
1 Andi
2 Indah
1 Alex
2 Heni
hasil penggabungan yg diharapkan adl :
No Kode 1 adl Bambang; Andi; Alex
No Kode 2 adl Joko; Indah; Heniterdapat 3 sheet, setiap shet memiliki beberapa cell text dan pasangan nomor kodenya. lah saya butuh untuk gabungkan cell-cell text dg nomor kode yg sama.
sebenere saya da coba pake formula concatenate, cuman masalahnya formula tersebut hanya menggabungkan cell yg telah ditentukan, tanpa syarat logika yg variatif. bisa minta tolong bantuannya.
trima kasih sebelumnya atas bantuannya.kurnix
-
saya dah coba, alhamdulillah bisa, tapi klo misalkan saya ingin membuat angka 85.5 yang keluar tetep “delapan ratus lima puluh lima rupiah”, padahal maksudnya saya “delapan puluh lima koma lima”……tolong donk ……thanks mas
teddy
-
Coba http://kamehani.com/?p=314
Mengubah angka jadi teks jadi mudah.
Disediakan module yg tinggal import ke Project Macro kita.Pokoknya gampang tanpa perlu nulis kode se-abrek.
Salam…..
-
gimana sih cara menggubah angka menjadi huruf?kalo bisa pake gambar donk biar mudah ngertinya.
-
wah pak agus pinter banget…
pak agus tamatan apa?tapi kalau bisa kasi sample aplikasi dari excel seperti PO, Invoice, dll dengan macro biar sekalin bisa tau gimana penerapn modulnya
trims.
-
Mas tanya ne….
aku udah pake rumus terbilang seperti yang udah dijelasin pnjang lebar diatas tapi setelah tak simpen kemudian tak buka lagi, kok rumuse udah gak fungsi. kalo angkae diganti keluare #NAME?
mohon bantuan mas.
thank’s -
Terima kasih banyak atas semua informasi yg diberikan Mas Eka di milis ini
Semoga tuhan senantiasa memberikan kebaikan ..Amiin. -
Eh malah lupa pertanyaannya , Bagaimana caranya agar formula yg kita bikin tidak terbaca di formula bar tanpa menyembunyikan formula barnya
terimakasih atas pertolongannya. -
saya mau tanya setelah saya download macro terbilang kemudian saya coba hasilnya masih ada format rupiahnya.bagaimana caranya menghilangkan atau menambah agar format satuan misalnya 9.50 terbaca sembilan koma lima nol.terima kasih….
-
halo Mas…saya masih awam dg macro..
Saya dah coba fungsi terbilangnya.. & berhasil, tapi untuk membuat huruf pertamanya jadi kapital gmn Mas..?
dan untuk menambah simbol # diawal dan akhir kalimat…
misal : #Satu Juta Dua Ratus Ribu Rupiah#
mohon bantuannya…
tqs -
Thank’s
-
Mohon dijelaskan untuk menghitung umur lengkap (…th, …bl, …hari) dari tanggal lahir yang ada di kolom sebelahnya, thx.
-
Kang Priatna nuhun nya. funsi terbilang abdi tos tiasa ngoperasikeun. tapi aya hiji deui anu hoyong dipelajari deui ti kang Priatna….? Hoyong tiasa ngadameul form anu dina MS Exel… Atanapi Makro MS Exel..
-
mas eka saya mau mnta bantuan memang sih agak menyimpang mungkin tapi masih daLam pelajaran visual basic…Kebetulan saya seorang pelajar stm di bandung dan ngambil jurusan pearngkat lunaksaya di tugaskan untuk mengumpulkan sebanyak-banyaknyakode script yang biasa di gunakan dalam visual basic
ex:end,else,float dan lain sebagainya dengan fungsinya juga
saya sangat minta bantuannya sekali karena beberapa hari lagi tugasnya di kumpulkan kalau bisa kirim ke email saya (via_ajach@yahoo.co.id) thankz before ya mas -
Pak Priatna trim bantuannya, dan maaf saya minta bantuannya lagi untuk pengerjaan sbb :
A1=2 hari x 2 orang B1=4
atau
A1=2 hari x 2 orang x 2 bungkus B1=8
nilai B1 adalah hasil penghitungan “angka” di A1
mohon tutorialnya, sebelumnya terima kasih -
Tanpa sengaja saya menemukan web anda dan menemukan jawaban atas masalah pekerjaan yang saya hadapi. Ringkasnya, pekerjaan saya dapat diselesaikan dengan waktu yang efektif dan efisien.
Quest : Bagaimana caranya…. menbuat angka yang telah dihasilkan menjadi teks berada didalam kurung??? contoh ( Seratus Juta Rupiah ).
Terima kasih atas bantuan dan penjelasannya. -
terima kasih atas ilmu yang anda berikan, semoga allah mencatat sebagai amal yang baik….
‹ 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/