TextBox Nesnesine Harf Girilmesini Engelleme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
[*]Araç çubuklarından Insert -> UserForm yazısına tıklayın.
[*]Solunda klasör simgesi olan Forms yazısının başındaki + simgesine tıklayın.
[*]Alt kısma eklenecek gelecek olan UserForm yazısına çift tıklayın.
Bir UserForm üzerine eklediğiniz TextBox nesnelerinde sadece sayısal karakterler girilmesini, harf yazılmasının engellenmesini isteyebilirsiniz. Üstteki kodlar tam işinize yarayacaktır.
Faydalanılması temennisiyle
[*]Araç çubuklarından Insert -> UserForm yazısına tıklayın.
[*]Solunda klasör simgesi olan Forms yazısının başındaki + simgesine tıklayın.
[*]Alt kısma eklenecek gelecek olan UserForm yazısına çift tıklayın.
Hazır Kod
VBA:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
Beep
End If
End SubAçıklama
Bir UserForm üzerine eklediğiniz TextBox nesnelerinde sadece sayısal karakterler girilmesini, harf yazılmasının engellenmesini isteyebilirsiniz. Üstteki kodlar tam işinize yarayacaktır.
Faydalanılması temennisiyle
