TextBox rakam denetimi

Katılım
23 Şubat 2007
Mesajlar
1,212
Excel Vers. ve Dili
Excel2003
Değerli Dostlar Selamlar,
TextBox a TC Kimlik no girmekteyim. Rakam girince yazsın, harf girince yazmasın, 11 rakamı geçince uyarsın, 11 rakamdan az yazılınca çıkışta TextBox u temizlesin çıksın. Yani TextBox ya 11 rakam olmalı, yada boş olmalı.
Nasıl bir kod yazılması gerekir.
Saygılar.
 

fedeal

Banned
Katılım
29 Mayıs 2008
Mesajlar
1,985
Excel Vers. ve Dili
2003 tr
Private Sub TextBox1_Change()
If Len(TextBox1) > 11 Then MsgBox "FAZLA GİRİŞ YAPILDI"
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1) < 11 Then TextBox1 = ""
End Sub

İyi çalışmalar.
 

dEdE

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,607
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
Merhaba,
Bir alternatif de benden olsun.
Rakam girince yazar, harf girince yazmaz, 11 rakamı geçmesi mümkün olmaz, 11 rakamdan az yazılınca çıkışta uyarır ve TextBox u temizler.

Kod:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1) < 11 Then
MsgBox "Eksik Rakam Girdiniz !" & vbCrLf & "T.C. Kimlik nosu 11 Karakterdir.", vbCritical, "D İ K K A T  !"
TextBox1.Value = ""
End If
End Sub

Private Sub TextBox1_Change()
    If Not IsNumeric(TextBox1) Then SendKeys "{BS}"
    If Len(TextBox1.Value) > 11 Then SendKeys "{BS}"
End Sub
 

Ekli dosyalar

Katılım
23 Şubat 2007
Mesajlar
1,212
Excel Vers. ve Dili
Excel2003
Sayın fedeal, Saın dEdE, teşekkür ederim. İşlem tamadır.
 
Katılım
22 Ocak 2009
Mesajlar
29
Excel Vers. ve Dili
ofis 2007 türkçe
Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0: MsgBox "Lütfen Rakamsal Değer Giriniz"
End If
End Sub

böyle bir kodla da yine girilen verinin rakamsal olup olmadığını kontrol edebilirsin.nacizane aklıma geldi yazayım istedim...
 
Üst