- Katılım
- 15 Mart 2005
- Mesajlar
- 42,246
- Excel Vers. ve Dili
- Microsoft 365 Tr-En 64 Bit
Selamlar,
Aşağıdaki kodlar yardımıyla textboxa sadece harf girilmesini sağlıyorum fakat şöyle bir sorunum var. Ãöyleki 4-5 harf yazdıktan ok tuşlarıyla yazdığım harflerin arasına gelip rakam yazdığımda kısıtlama işe yaramıyor bu kodları hiçbir şekilde rakam girişine müsade etmeyecek şekilde nasıl düzenleyebilirim. Aynı kodlar yardımıyla başka bir textboxa ise sadece rakamların girilebilmesini nasıl sağlarım.
Sonuç olarak amacım bir textboxa sadece harf veya sadece rakam girmek istiyorum. Fakat rakam girişine kısıtladığım textboxa hiçbir şekilde harf ve diğer karakterler girilemesin veya harf girişine kısıtladığım textboxa hiçbir şekilde rakam ve diğer karakterler girilemesin istiyorum.
Private Sub TextBox1_Change()
If Right(TextBox1, 1) Like "[!A-Z]" Then SendKeys "{BS}"
If Left(TextBox1, 1) Like "[!A-Z]" Then SendKeys "{BS}"
End Sub
Private Sub TextBox2_Change()
If Right(TextBox2, 1) Like "[!0-9]" Then SendKeys "{BS}"
If Left(TextBox2, 1) Like "[!0-9]" Then SendKeys "{BS}"
End Sub
Aşağıdaki kodlar yardımıyla textboxa sadece harf girilmesini sağlıyorum fakat şöyle bir sorunum var. Ãöyleki 4-5 harf yazdıktan ok tuşlarıyla yazdığım harflerin arasına gelip rakam yazdığımda kısıtlama işe yaramıyor bu kodları hiçbir şekilde rakam girişine müsade etmeyecek şekilde nasıl düzenleyebilirim. Aynı kodlar yardımıyla başka bir textboxa ise sadece rakamların girilebilmesini nasıl sağlarım.
Sonuç olarak amacım bir textboxa sadece harf veya sadece rakam girmek istiyorum. Fakat rakam girişine kısıtladığım textboxa hiçbir şekilde harf ve diğer karakterler girilemesin veya harf girişine kısıtladığım textboxa hiçbir şekilde rakam ve diğer karakterler girilemesin istiyorum.
Private Sub TextBox1_Change()
If Right(TextBox1, 1) Like "[!A-Z]" Then SendKeys "{BS}"
If Left(TextBox1, 1) Like "[!A-Z]" Then SendKeys "{BS}"
End Sub
Private Sub TextBox2_Change()
If Right(TextBox2, 1) Like "[!0-9]" Then SendKeys "{BS}"
If Left(TextBox2, 1) Like "[!0-9]" Then SendKeys "{BS}"
End Sub