Pak Harry, Coba : objectrangepenulisan.value=replace$( textbox1.text , "," , vbnullstring ) 'jika textbox selalu berisi bilangan bulat
jika nilai memiliki digit dibelakang koma (angka desimal) dim sDec as string, sRibu as string sdec=mid$(format( 0.1 , "0.0" ),2,1) sribu=mid$(format( 1000, "#,###" ) , 2 , 1) objectrangepenulisan.value=replace$(replace$( textbox1.text , sribu , vbnullstring ), sdec , "." ) Wassalam, Kid. 2013/11/24 Harry <hariansyah...@yahoo.com> > > > Dear Be Exceller, > > Melanjutkan pertanyaan saya mengenai Format Currency, sebagaimana yang > telah diinformasikan oleh Ms. Jan Raisin dng Scrip sbb: > > > Private Sub TextBox1_Change() > TextBox1.Value = Format(TextBox1.Value, "#,###") > End Sub > > Dengan menggunakan Scrip tersebut, jika saya meng-input 20000 memang sudah > menampilkan 20.000 pada userForm-nya (sudah terbentuk Format Currency-nya). > Tetapi ternyata timbul permasalahan selanjutnya yaitu setelah saya Klik > Tombol SAVE, hasil yang terkirim ke Sheet yang dituju hasilnya adalah Rp. 20 > > Yang saya inginkan adalah : > Jika saya input nominal 20000 maka tampilan di UserForm adalah 20.000 dan > hasil yang dikirimkan ke Sheet yang dituju juga Rp. 20.000. > > Mohon berkenan informasi dari teman-teman BeExceller akan hal tersebut. > Terima kasih atas berkenan informasinya. > > Regards, > > > Harry > > > > Pada Sabtu, 29 Desember 2012 0:37, Slamet <slametha...@gmail.com> > menulis: > > Pak Harry > > coba dengan > TextBox1.Value = Format(TextBox1.Value, 0) > > Wassalam > > On 12/27/2012 7:21 PM, Harry wrote: > > > Dear BeExceller, > > Mohon informasi dari rekan-rekan BeExceller bagaimana caranya mengisi > UserForm yang formatnya Currency. > Pada UserForm yang saya buat selama ini hanya berformat Text misalnya > 15000. Yang saya inginkan otomatis berformat 15,000.- > > Mohon bantuan rekan-rekan BeExceller akan hal tersebut. > > Terima kasih & Wassalam, > > > Harry > > > > > >
