Skip to main content

Membuat fungsi “terbilang” Excel menggunakan macro VBA


Jika Anda ingin menerjemahkan Angka menjadi Kata-kata , contohnya saja dalam pembuatan Form Kwitansi suatu Transaksi , anda dapat membuatnya dengan menggunakan aplikasi Microsoft Excel dan Macro Visual Basic Application ( VBA ) .saya menggunakan Excel 2007

Untuk membuatnya silahkan ikuti langkah-langkah dibawah ini : 

buka Microsoft Excel , lalu tekan alt+F11


 Setelah Muncul Microsoft Visual Basic , lalu pilih Insert > module


Isikan code Seperti diatas
 silahkan anda download source code nya disini !!


Save Book ( ctrl+S) 


 Save As type : pilih Excel Macro - Enable Workbook  (*.xlsm) lalu klik Save 

pilih File > Close and return to microsoft excel , macro sudah dibuat , sekarang kita tinggal test macro tersebut

Tempatkan cell A2 , pilih Formulas > Insert Function lalu pilih Category User Defined
Terlihat Function terbilang yang sudah dibuat tadi di VBA , klik Ok


Akan Tampil Form Seperti diatas , 
Nilai_angka 
arahkan ke Cell A1 ( terserah anda cell mana saja cell mana yg angkanya diterjemahkan ke Huruf )
Style
Isi dengan kode 1 sampai dengan 4 untuk menentukan cara penulisannya.
1: Teks terbilang ditulis dengan huruf besar (kapital) semua (uppercase);
2: Teks terbilang ditulis dengan huruf kecil semua (lowercase);
3: Teks terbilang ditulis dengan huruf besar pada awal kata saja (title case);
4: Teks terbilang ditulis dengan huruf besar pada huruf pertama saja (sentence case).
Isian style sifatnya optional, apabila tidak diisi maka defaultnya 4 (sentence case).
Satuan
Isi dengan satuan untuk teks terbilang, misalnya rupiah, unit atau buah. Isian satuan sifatnya optional, apabila dikosongkan maka teks terbilang ditulis tanpa satuan tertentu.
Atau dengan syntax  
=terbilang(Nilai_Angka;Style;”Satuan”) 
=terbilang(A1;3;"Rupiah")



 Hasilnya seperti diatas ,

Anda bisa mendesign form kuitansi dengan ditambahkan Fungsi Macro Terbilang



Mudah Bukan ?

Silahkan dicoba


Taufan M |email me :)







Labels:
Location: Jalan Suryo, Jakarta 12110, Indonesia

Comments

  1. AnonymousMarch 31, 2013 at 8:28 AM

    Makasih banyak mas ilmunya ,,mas mau tanya klo buat form kwitansi diatas tapi pake Access (db) ,jd kita input di form nominal angka ketika klik report sudah dikonversi ke huruf Terbilang ?
    Terima kasih sebelumnya

    Ardi S

    ReplyDelete
  2. Taufan MaulanaMarch 31, 2013 at 7:33 PM

    Oke mas , thanks masukannya , nnti saya coba buat di access , klo sdh selesai saya publish di blog ini ..

    ReplyDelete
  3. grahappobDecember 14, 2013 at 2:13 AM

    wah teng kiyu mas, sangat membantu bagi pekerjaan saya nich.....

    ReplyDelete
  4. Taufan MDecember 16, 2013 at 12:34 AM

    sama2 mas ,,

    ReplyDelete
  5. MUHSYIDecember 16, 2013 at 12:05 PM

    mas minta terjemahannya macro dong...

    ReplyDelete
  6. gumJanuary 27, 2014 at 9:44 PM

    terima kasih banyak mas... sangat membantu

    ReplyDelete
  7. Taufan MaulanaFebruary 10, 2014 at 6:49 PM

    sama-sama gan

    ReplyDelete
  8. ANDREAS JONATANFebruary 26, 2014 at 8:44 PM

    mantap bro, thx ya share nya GBU

    ReplyDelete
  9. Taufan MaulanaFebruary 27, 2014 at 10:10 PM

    sama - sama mas

    ReplyDelete

Post a Comment

Popular posts from this blog

[Arsip] Uninstal Zimbra Mail Server

UnInstalling Zimbra on Linux Uninstall Directions for Linux/All Other Operating Systems As root: 1) Run the commands: su – zimbra zmcontrol stop exit (you should be root after you run exit) 2a) Run the command:  ps -ef | grep -i zimbra If you see running processes 2b) Kill any lingering processes:  kill -9 <pid> 3a) Run the command:  df If you see "amavisd" 3b) run command:  umount /opt/zimbra/amavisd<-new-blah>/tmp 4)  cd /<tmp_tar_install_dir>/zcs/ 5) Run the command:  ./install.sh -u 6) Run the following commands to complete the unistall: rm -rf /opt/zimbra rm -rf /var/log/*zimbra* rm -rf /tmp/*zimbra* rm -rf /tmp/hsperfdata* rm -rf /tmp/install.* rm -rf /tmp/*swatch* rm -rf /tmp/log* Ensure that you removed ALL the files owned by the user zimbra AND that contain the name "zimbra" in: /var/log/ /tmp/ 7) Run the following commands to delete the users and groups: userdel zimbra userdel postfix groupdel zimbra groupdel postfix 8) Remove th...
Post a Comment
Read more

Install Remote Desktop di Linux Mint 15

Ketika saya menginstall Linux Mint 15 di laptop saya  , setelah 1 jam selesai install OSnya  , ketika ingin remote desktop server , di search Aplikasi remote desktop di linux mint 15  knp tidak ada ... akhirnya saya install untuk remote desktop bernama aplikasi Remmina Dengan terminal : sudo apt-get install remmina Setelah terinstall , buka menu > Internet > Remmina silahkan coba remote desktop OS Windows , masukan Ip address , pilh Protokol VNC - Virtual Network Computing Masukkan Password Hasil Remote destop seperti diatas . SSH - Secure Shell , pilih Protokol SSH - Secure Shell  Masukkan IP Adderess Server dan masukan Password ,Ok Hasil SSH seprti diatas . Protokol SFTP Sekian , semoga bermanfaat Taufan M| email me
Post a Comment
Read more