textboxta tutar formatı

[osmanfenerli1907]

aşağıdaki kodu kullanınca örneğin 24,35 yazınca 24,35 yapıyor ancak textboxa 24.35 yazınca 24,35 yapmasını nasıl sağlarım.

Private Sub ö_tutar_Change()
ö_açıklama.Text = Format(ö_tutar, "#,##0.00")
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil deneyiniz.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
deg = Replace(TextBox1, ".", ",")
TextBox1 = Format(deg, "#,##0.00")
End Sub

 

[osmanfenerli1907]

olmadı.textboxa 25.44 yazınca 2544,00 oluyor aksine 25,44 olması lazım

 

[osmanfenerli1907]

yardım lütfen

 

[Orion1]

Denetim masasında binlik ayıraçlarınız ve ondalık ayıracınız nasıl tanımlandıysa vba o şekilde harket eder.Sizin verdiğiniz nokta türkçe karakterlerde 1000 lik ayıraç,virgül ise ondalık ayıraçtır.
İngilizce Windows sürümünde ise tam tersidir.
İngilizce sürümde hazırladığınız bir sayı türkçe sürümde açıldığında otomatikmen türkçe binlik ve ondalık ayıraca dönüşür.

 

[abonem]

Ondalık ayarlarınızı bölgesel ayarlardan yaptıktan sonra;

TextBox1 = Format(TextBox1, "##,##0.00")

şeklinde yapınız. Sonuç binlik(.) ve ondalık(,) seperatorleriniz doğru ise

girilen sayı: 1231561,63 ise sonuç: 1.231.561,63 olacaktır.

format kısmındaki virgül ve noktanın yerleri kafanızı karıştırmasın...