Cari Cara Membuat Pemisah Ribuan pada TextBox Excel - Terbaru 2018
Selamat datang Di Membuat Master Data pada Microsoft Excel RumusExcel.com - Tanda pemisah angka ribuan atau biasa disebut separator biasanya digunakan untuk mempermudah dalam pencatatan suatu angka karena ada tanda titik (.) sebagai pemisah ribuan, supaya tidak terjadi kesalahan dalam pencatatan angka. Untuk menampilkan pemisah angka ribuan dalam pembuatan data dengan Microsoft Excel biasanya adalah dengan mengubah Fomat cell menjadi Currency atau Accounting. Begitupun jika ingin membuat pemisah ribuan pada sebuah TextBox ataupun Label pada UserForm maka harus di ubah Formatnya menjadi Currency atau Accounting. Untuk lebih jelasnya ikuti panduan berikut ini:
Buka Aplikasi Microsoft Excel dan simpan dengan ekstensi *.xlsm atau *.xlsb. Tekan Tombol Alt+F11 untuk menampilkan jendela Microsoft Visual Basic atau buka Tab Developer dan klik Visual Basic. Tambahkan sebuah Userform dan 1 buah TextBox. Untuk Properties (Name) UserForm dan TextBox biarkan Default. Pada Properties TextBox ubah TextAlign dari 1-fmTextAlignLeft atau rata kiri menjadi 3-fmTextAlignRight atau Rata Kanan. Selanjutnya tinggal memasukkan script untuk membuat pemisah ribuan, klik kanan pada UserForm1 yang ada pada VBA Project dan klik View Code. Kemudian masukkan script berikut: Private Sub TextBox1_Change()
On Error GoTo abc
TextBox1 = Format(TextBox1 * 1, "#,##0")
Exit Sub
abc:
TextBox1 = ""
End Sub Setelah selesai tekan tombol F5 pada keyboard atau klik tombol Run Sub/Userform pada Toolbar Microsoft Visual Basic untuk menjalankan UserForm, dan coba tuliskan angka pada TextBox apakah berhasil menampilkan pemisah ribuan (.) atau tidak.
Penjelasan Script yang digunakan:
Private Sub TextBox1_Change()
.....
End Sub Maksudnya jika isi TextBox diubah maka semua perintah yang ada didalam tag atau sub tersebut akan dijalankan.
On Error GoTo abc Maksudnya jika ada error maka perintah/script abc yang akan dijalankan, Error ini terjadi jika Textbox di isi dengan format text karena untuk membuat format ribuan isi TextBox akan diubah menjadi format number, untuk itu harus ada penanganan error jika TextBox diisi dengan text bukan number.
TextBox1 = Format(TextBox1 * 1, "#,##0")
Exit Sub Script ini digunakan untuk mengubah format TextBox1 menjadi Number dan menampilkan pemisah ribuan. Setekah selesai perintah di akhiri (Exit Sub).
abc:
TextBox1 = "" Jika terjadi error perintah ini yang akan dijalankan, yaitu membuat TextBox1 menjadi kosong.
Sekian pembahasan mengenai Cara Membuat Pemisah ribuan pada TextBox Excel, Contoh Filenya bisa di unduh disini. Semoga Bermanfaat... var obj0=document.getElementById("post18255044852478993583"); var obj1=document.getElementById("post28255044852478993583"); var s=obj1.innerHTML; var t=s.substr(0,s.length/2); var r=t.lastIndexOf("
"); if(r>0) {obj0.innerHTML=s.substr(0,r);obj1.innerHTML=s.substr(r+4);}
Masdad Al-Falucky | Sabtu, 04 Oktober 2014 | Rating: 4.5 Title : Cara Membuat Pemisah Ribuan pada TextBox Excel
Description : Cara membuat format Currency atau Accounting pada TextBox yang ada pada UserForm Excel, yang berguna untuk memudahkan penulisan angka ribuan.
Buka Aplikasi Microsoft Excel dan simpan dengan ekstensi *.xlsm atau *.xlsb. Tekan Tombol Alt+F11 untuk menampilkan jendela Microsoft Visual Basic atau buka Tab Developer dan klik Visual Basic. Tambahkan sebuah Userform dan 1 buah TextBox. Untuk Properties (Name) UserForm dan TextBox biarkan Default. Pada Properties TextBox ubah TextAlign dari 1-fmTextAlignLeft atau rata kiri menjadi 3-fmTextAlignRight atau Rata Kanan. Selanjutnya tinggal memasukkan script untuk membuat pemisah ribuan, klik kanan pada UserForm1 yang ada pada VBA Project dan klik View Code. Kemudian masukkan script berikut: Private Sub TextBox1_Change()
On Error GoTo abc
TextBox1 = Format(TextBox1 * 1, "#,##0")
Exit Sub
abc:
TextBox1 = ""
End Sub Setelah selesai tekan tombol F5 pada keyboard atau klik tombol Run Sub/Userform pada Toolbar Microsoft Visual Basic untuk menjalankan UserForm, dan coba tuliskan angka pada TextBox apakah berhasil menampilkan pemisah ribuan (.) atau tidak.
Penjelasan Script yang digunakan:
Private Sub TextBox1_Change()
.....
End Sub Maksudnya jika isi TextBox diubah maka semua perintah yang ada didalam tag atau sub tersebut akan dijalankan.
On Error GoTo abc Maksudnya jika ada error maka perintah/script abc yang akan dijalankan, Error ini terjadi jika Textbox di isi dengan format text karena untuk membuat format ribuan isi TextBox akan diubah menjadi format number, untuk itu harus ada penanganan error jika TextBox diisi dengan text bukan number.
TextBox1 = Format(TextBox1 * 1, "#,##0")
Exit Sub Script ini digunakan untuk mengubah format TextBox1 menjadi Number dan menampilkan pemisah ribuan. Setekah selesai perintah di akhiri (Exit Sub).
abc:
TextBox1 = "" Jika terjadi error perintah ini yang akan dijalankan, yaitu membuat TextBox1 menjadi kosong.
Sekian pembahasan mengenai Cara Membuat Pemisah ribuan pada TextBox Excel, Contoh Filenya bisa di unduh disini. Semoga Bermanfaat... var obj0=document.getElementById("post18255044852478993583"); var obj1=document.getElementById("post28255044852478993583"); var s=obj1.innerHTML; var t=s.substr(0,s.length/2); var r=t.lastIndexOf("
"); if(r>0) {obj0.innerHTML=s.substr(0,r);obj1.innerHTML=s.substr(r+4);}
Masdad Al-Falucky | Sabtu, 04 Oktober 2014 | Rating: 4.5 Title : Cara Membuat Pemisah Ribuan pada TextBox ExcelDescription : Cara membuat format Currency atau Accounting pada TextBox yang ada pada UserForm Excel, yang berguna untuk memudahkan penulisan angka ribuan.
Share to
Facebook Google+ Twitter removeRelatedDuplicates_thumbs(); printRelatedLabels_thumbs("http://www.rumusexcel.com/2014/10/membuat-pemisah-ribuan-textbox-excel.html"); Sekian terimakasih dan mohon maap apa bila dalam penyampaiyan nya ada kesalahan
Comments
Post a Comment