Hai Mirza,
Dengan asumsi Anda sudah terbiasa mengambil nilai dari textbox control,
menyimpan nilai ke sebuah cells, membaca nilai dari sebuah cells, dan
menulis suatu nilai ke dalam textbox control.
1. membuat inputan selalu menampilkan persen (silakan kembangkan ke bagian
validasi minimum dan maksimum inputan)
a. >> nilai di range a1 berupa nilai desimal ditampilkan ke textbox dalam
persen (script yang diletakkan dalam prosedur penulis nilai ke textbox)
txtMyBox.text = range("a1").value * 100 & "%"
b. >> setiap user pencet angka, ditambahin lambang persen. Pada event
change milik si textbox :
dim s as string
s=replace(txtMyBox.text,"%",vbnullstring) & "%"
if lenb(s)<>0 then
txtMyBox.text=s
txtMyBox.selstart=len(s)-1
else
txtmybox.text=vbnullstring
endif
c. >> simpan isi textbox ke range a1
range("a1").value=cdec(0 & replace(txtMyBox.text,"%",vbnullstring))/100
2. ada pemisah desimal (asumsi : pemisah ribuannya adalah koma dan untuk
bilangan bulat)
a. >> pada event change si textbox :
txtmybox.text=format(cdec(0 & replace(replace(txtMyBox.text , "," ,
vbnullstring),".",vbnullstring)),"#,##0")
Wassalam
Kid.
2014-09-18 11:12 GMT+10:00 [email protected] [belajar-excel] <
[email protected]>:
>
>
> Mohon bantuannya Master, saya Newbie ne di VBA,
> saya sudah coba segala macem cara,
> nyari semua forum juga gak dapet ampe skrng, hadeh pusing saya. . . .
> saya mau nampilin % pada saat ngetik di textbox pada userForm VBA dan
> setelah tekan CommandButton Simpan,
> angka yang saya masukkan otomatis berubah menjadi decimal, bagaimana cara
> agar pada saat edit, buat baru, dan simpan, angka di textbox tersebut tetap
> percentage (%)
> begitu juga pada textbox yang berisi angka seperti target 2014, bagaimana
> caranya pada saat saya mengetikkan angka, maka sudah otomatis keluar
> titik/pemisah angka tersebut seperti kalkulator, agar gampang bacanya,
> sudah saya ikutin dari forum lain katanya dibuat codingnya di
> TextBox1_change()
> trus masukin format accountingnya juga gak bisa, mungkin sayanya agak
> kurang paham,
> mohon bantuan para master semua,
> berikut filenya terlampir,
> atas perhatiannya saya ucapkaqn terima kasih. . . . . .
>
>
>
>
>
