TextBox'da Nokta Sorunu

[yavuz829]

Merhaba arkadaşlar.
TextBox'lara noktalı rakam girdiğim rakamları görüntüleme TextBox larında değişik gösteriyor.
Örneğin. TextBox3'e 1450 noktasız girdiğiim zaman TextBox26 da 1.450,00 doğru gösteriyor. Araya nokta koyduğum zaman 1.450 kurş virgülüne izin vermiyor ve TextBox26 da 1,45 olarak görünüyor.

TextBox lara nokta ve virgüle izin versin. Görüntülenen TextBox larda da aynısı göstersin.

Eğer oluyorsa bindelik rakamı girdiğimiz zaman noktayı kendisi otomatikmen koysun.
Bu konularda yardımlarınızı bekliyorum.

Aktarma Kodları.
ActiveSheet.Cells(i, 2) = ComboBox1.Text
ActiveSheet.Cells(i, 3) = TextBox25.Text * 1
ActiveSheet.Cells(i, 4) = ComboBox2.Text
ActiveSheet.Cells(i, 5) = TextBox26.Text * 1
ActiveSheet.Cells(i, 6) = TextBox3.Text * 1
ActiveSheet.Cells(i, 7) = TextBox5.Text * 1

Görüntüleme Kodları.
Private Sub TextBox25_Change()
deg1 = Replace(IIf(TextBox3 = "", 0, TextBox3), ".", ",")
DEG2 = Replace(IIf(TextBox25 = "", 0, TextBox25), ".", ",")
TextBox26 = Format(Replace(CDbl(deg1) / CDbl(DEG2), ".", ","), "#,##0.00")
End Sub

 

[Korhan Ayhan]

Merhaba,

Yazılıma yeni adım atmışsınız. Benim tavsiyem bu tarz nesneleri çıkarken biçimlendirin. Yazma anında biçimlendirmek için bir sürü kontrol koymanız ve kod yazmanız gerekebilir.

Aşağıdaki linki inceleyin. Size faydası olacaktır.

http://www.excel.web.tr/f128/textboxa-giri-te-karakter-kontrolu-rakam-harf-t15837.html

 

[yavuz829]

Çok teşekkürler Hocam Eklediğiniz link deki kodlar çok güzel.
Ellerinize sağlık.

Hocam aşağıdaki görüntüleme kodlarındaki sorun devam ediyor. Eklediğiniz UserForm TextBoz9 daki YTL-2 kodların veri girdiğim TextBox lardaki sorunumu çözdü.

Veriyi görüntülediğim TextBox lardaki sorun devam ediyor. yanı 1.000,00 rakamı 1,00 olarak görüntüleniyor. Aşağıdaki kodları nasıl değiştirmemiz gerekir.



Görüntüleme Kodları.
Private Sub TextBox25_Change()
deg1 = Replace(IIf(TextBox3 = "", 0, TextBox3), ".", ",")
DEG2 = Replace(IIf(TextBox25 = "", 0, TextBox25), ".", ",")
TextBox26 = Format(Replace(CDbl(deg1) / CDbl(DEG2), ".", ","), "#,##0.00")
End Sub