textboxa sadece rakam ve virgül girme

[heft]

Merhaba,
If Chr(KeyAscii) Like "[!0-9,]" Then KeyAscii = 0 kodu ile sadece rakam ve virgül girdirebiliyorum.Fakat 2.virgülü de yazıyor.Bunu nasıl engellerim?

 

[Orion1]

Textbox'ın exit olayına yazın
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(TextBox1.Text) Then
Cancel = True
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
MsgBox "Sadece Rakam girebilirsiniz."
End If

End Sub

 

[heft]

teşekkürler syn evren
ancak bu uyarıyor ben yazmasını engellesek diyorum.. olmaz mı acaba?

 

[Skorpiyon]

Sayın heft,

Kodu yazdığınız yer, bir textbox nesnesi ise;

İlgili textbox'a 1 kez tıklayın ve Properties'ten "MaxLength" yazan yerin yanına, 1 yazın.
Bu, o textbox nesnesine 1 karakterden daha fazla yazı yazılmasını engeller.