Tetxbox a harf girişine izin verilmeyecek!

[erkanmandm]

tetbox a tarih formatında veri girişi yaptırıyorum. ancak harf girildiğinde yazmaya izin verilmeyecek.
örneğin
12/03/g
burda g yi yazdığım anda g silinecek 12/03/ kısmı kalacak ve devam edilebilecek.
bunun için gereken kod?
teşekkürler

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub TextBox1_Change()
If Not TextBox1 = WorksheetFunction.IsText(TextBox1) Then
MsgBox "Tarih Formatında Giriş Yapınız"
TextBox1 = ""
End If
End Sub

 

[veyselemre]

Şöyle de deneyebilirsiniz.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii < 46 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

 

[erkanmandm]

denedim ama olmadı

 

[erkanmandm]

Şöyle de deneyebilirsiniz.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii < 46 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

teşekkürler işlem tamamdır.

 

[erkanmandm]

aynı işlemin terini nasıl yaparız?text girişi yani??

 

[veyselemre]

Sadece rakam girişlerini engellemek istiyorsanız.

    If KeyAscii > 47 And KeyAscii < 57 Then KeyAscii = 0

 

[erkanmandm]

Sadece rakam girişlerini engellemek istiyorsanız.

    If KeyAscii > 47 And KeyAscii < 57 Then KeyAscii = 0

teşekkürler