Dear BeExceller, Terima kasih atas informasinya.
Untuk merubah Regional Setting-nya bagaimana...??? Mohon informasinya. Terima kasih, Harry Pada Minggu, 24 November 2013 13:16, Mr. Kid <mr.nm...@gmail.com> menulis: 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 >> > > >
