Asumsi : bilangan bulat textbox1.text=replace$(format$(replace$(textbox1.text,",",vbnullstring),"#,###"),".",",")
Ketika akan menulis ke cell, pastikan untuk menghilangkan seluruh tanda pemisah ribuan dari nilai dalam textbox. Hal ini akan membuat nilai ditulis sebagai data bertipe numerik. Wassalam, Kid. 2012/11/19 Mardi <[email protected]> > ** > > > Master Kid atau Masters excel yg laen, > > Maaf Master Kid dan yg lainya,menyoal digit ribuan lagi.Ternyata format > ini berjalan mulus di komputer dengan regional seting English(United > States) tapi kalo indonesia dibacanya jadi koma > textbox hasil > 1.000 1 > 100.000 100 > 1.000.000 1.000.000 > mohon solusinya tanpa merubah regional seting jadi english > > terimakasih > > mardi > > On 18/11/2012 21:07, Mr. Kid wrote: > > > > Pak Mardi, > > Biasanya menggunakan event change milik si textbox. Pada prosedur event > tersebut diberi proses format number. > Contoh untuk textbox bernama txtPunyaku, pada event change-nya bisa diberi > perintah : > txtpunyaku.text = format$( txtpunyaku.text , "#,###" ) > > Tanda koma atau titik sebagai pemisah desimal akan mengikuti setting > regional komputer setempat (lihat di Windows Control Panel kan ya) > > Wassalam, > Kid. > > >
