TextBoxta Kuruş

[class37]

Merhaba
TextBoxa veri girerken virgülden sonra 2 Haneden fazla veya eksik veri girişi engellenebilirmi.İyiçalışmalar.

 

[xxrt]

İki Haneden Fazla girmemesi için TextBoxun MaxLangth kısmına 2 yazmanız gerek.
Ama Herikisini yaşamak isterseniz.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1.Value) < 2 Then
MsgBox "Girilen değer en az veya fazla 2 rakam olmalıdır.."
Cancel = True
End If
End Sub

 

[ALPEN]

Private Sub TextBox1_LostFocus()
TextBox1 = Format(TextBox1, ".##")
End Sub

 

[class37]

Cevap için Teşekkürler ama TextBox un içeriğine kaç rakam olacağını bilemeyiz virgülden sonraki rakamları yani krş kısmını demiştim.

 

[ALPEN]

Private Sub TextBox1_LostFocus() 
TextBox1 = Format(TextBox1, ".##") 
End Sub

üstteki çözümü denedinizmi.

 

[xxrt]

virgülden sonra

Gözümden Kaçmış..Alpen hocamın kodları geçerlidir.

 

[class37]

Merhaba
Alpen Hocam kodları çalıştıramadım. :? :?

 

[Haluk]

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

 

[class37]

Sayın Raider Teşekkürler