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 the line &q
Post a Comment
Read more
Problem LDAP service  pada Zimbra  [Solved] terjadi pada server replikasi zimbra di kantor saya pada tanggal 5 November 2016 tiba-tiba error LDAP tidak mau startup service. service zimbra start Host test.domainku.com Starting ldap...Done. Failed. Failed to start slapd. Attempting debug start to determine error. daemon: bind(7) failed errno=98 (Address already in use) slap_open_listener: failed on ldap://mail.domain.com:389 Setelah cari-cari di google berhasil yaitu dengan menjalankan ulang file zmsetup.pl -Login sebagai root - /opt/zimbra/libexec/zmsetup.pl root@mailserver:~# /opt/zimbra/libexec/zmsetup.pl Operations logged to /tmp/zmsetup.11072016-131240.log Running bdb db_recover...done. Running zmldapapplyldif...done. Reboot mailserver kemudian berjalan normal ada juga yang menggunakan tutorial seperti dibawah ini (bisa dicoba): Untuk melihat service openldap yang sudah aktif : # ps -ef | grep slap openldap 1129 1 0 15:28 ? 00:00:00 /usr/sbin/slapd -h ldap:/// ldapi:/// -g openldap
Post a Comment
Read more

Zimbra Admin Error : Diffie-Hellman key in Server Key Exchange handshake message

Ketika Membuka zimbra admin , muncul error seperti dibawah ini : Secure Connection Failed An error occurred during a connection to Server Zimbra. SSL received a weak ephemeral Diffie-Hellman key in Server Key Exchange handshake message. (Error code: ssl_error_weak_server_ephemeral_dh_key)     The page you are trying to view cannot be shown because the authenticity of the received data could not be verified.     Please contact the website owners to inform them of this problem. ketika saya menggunakan Firefox Ver 42. Berdasarkan penjelasan dari support Mozilla , ini semacam celah keamanan SSL. saat firefox update aplikasi tersebut meningkatkan keamanan celah Diffie-Hellman Diffie–Hellman key exchange (D–H) [nb 1] is a specific method of securely exchanging cryptographic keys over a public channel and was one of the first public-key protocols as originally conceptualized by Ralph Merkle.[1][2] D–H is one of the earliest practical examples of public key exchange implemented within the f
Post a Comment
Read more