• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Çözüldü textboxa keyascii ile sadece harf ve space girme sorunu

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Discreum

Yeni Üye
Katılım
21 Mar 2021
Mesajlar
152
Aldığı beğeni
37
Excel V
Office 2019 TR
Konu Sahibi
ustalarım merhaba.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 65 Or KeyAscii > 300 Or KeyAscii = 3 Then
KeyAscii = 0
End If
End Sub
bu kodda belli keyascii numaralarını ekleyebilirmiyiz mesela space boşluk tuşunun decimal kodu 32 sadece 65 den önce olarak 32 decimal numarasını eklemek istiyorum kodun içine amacım sadece tetbox a harf ve space boşluk girilmesi

böyle bi kod denemedim ama herhangi bi tepki vermiyor hertuş çalışıyor
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 97 To 104, 106 To 122
KeyAscii = KeyAscii - 32
Case 105 'i
KeyAscii = 304 'İ
Case 231 'ç
KeyAscii = 199 'Ç
Case 246 'ö
KeyAscii = 214 'Ö
Case 252 'ü
KeyAscii = 220 'Ü
Case 287 'ğ
KeyAscii = 286 'Ğ
Case 305 'ı
KeyAscii = 73 'I
Case 351 'ş
KeyAscii = 350 'Ş
End Select
End Sub
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst