Userformda matematiksel işlemler sorunu

[tcexcel]

Merhaba userformda textboxları yine forumda bulduğum kodlarla sayı denetimine tabi tutarak giriş yaptırmak istiyorum ve yapıyorum. ancak bu sefer de matematiksel işlemlerde sorun çıkıyor. val komutu ile sayıya dönüştürdüğümde de noktadan sonrasını ondalık olarak algılıyor büyük rakamlarda 1.123.152.111,22 rakamını 1,12 olarak görüyor. sorunu bir türlü düzeltemedim. val koymasam metin olarak algılıyor.

 

[Husgvarna]

Merhaba userformda textboxları yine forumda bulduğum kodlarla sayı denetimine tabi tutarak giriş yaptırmak istiyorum ve yapıyorum. ancak bu sefer de matematiksel işlemlerde sorun çıkıyor. val komutu ile sayıya dönüştürdüğümde de noktadan sonrasını ondalık olarak algılıyor büyük rakamlarda 1.123.152.111,22 rakamını 1,12 olarak görüyor. sorunu bir türlü düzeltemedim. val koymasam metin olarak algılıyor.

Merhaba.
Formunuzun kodlarını aşağıdaki gibi sadeleştirerek deneyebilirsiniz.

Private Sub TextBox1_Change()
If Left(TextBox1.Value, 1) = "," Then TextBox1.Value = "0,"
End Sub

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

Private Sub TextBox2_Change()
If Left(TextBox2.Value, 1) = "," Then TextBox2.Value = "0,"
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2 = Format(TextBox2, "#,##0.00")
TextBox3.Text = CDbl(TextBox1) + CDbl(TextBox2)
TextBox3 = Format(TextBox3, "#,##0.00")
End Sub