Textboxtaki binlik ayraç problemi

[Korhan Ayhan]

Selam arkadaşlar,

Textbox1 e giriş yaparken binlik ayraç eklemesi için formatını aşağıdaki şekilde kontrol ediyorum.

Private Sub Textbox1_Change()
Textbox1.Value = Format(Textbox1, "#,##0")
End Sub

Fakat aynı Textbox1 üzerinde bölme işlemi yaparken diyelimki 1/3 işleminin sonucu normalde 0,33333333333 gibi küsüratlı bir rakam çıkarken formatta küsürat olmadığı için Textbox1 de sonuç 0 olarak görünüyor. Benim yapmak istediğim tabiki olabiliyorsa Textbox1 e rakam yazarken küsüratsız ve binlik ayraç koyarak yazıp aynı zamanda işlem yaptıktan sonra çıkan sonuç küsüratlı ise bunu Textbox1 e yansıtmak. Bu şekilde olmuyarsa nasıl bir çözüm önerebilirsiniz.

 

[danersin]

@ COST_CONTROL, yukarıdaki formatı textbox1_change yerine textbox1.keypress ve textbox1.exit olaylarına yazsanız (her ikisinede) çok az farklı çalışır ama formül ile textbox1'in değeri değiştirildiğinde kod çalışmamış olur.

 

[Korhan Ayhan]

Verdiğiniz bilgiler için teşekkür ederim. :hey:

Private Sub Txtekran_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Txtekran.Value = Format(Txtekran, "#,##0")
End Sub

Yukarıdaki şekilde kullandım daha iyi oldu.