TextBox Nesnesine Harf Girilmesini Engelleme
23 Nisan 2021
25 Nisan 2021
2151
TextBox Nesnesine Harf Girilmesini Engelleme isimli bu kodu kullanarak, TextBox nesnelerinde herhangi bir harf yazılmasını engelleyebilirsiniz.
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
Beep
End If
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- 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 olan UserForm(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
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.
Hazır Dosyayı İndir
Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
| YARARLI KISAYOLLAR | |
|---|---|
| İşlemi İleri Alma | Ctrl Y |
| Veri Aralığının En Altına Gitme | Ctrl ↓ |
| Ekranı Küçültme | Ctrl F5 |
| Seçimi Ekle veya Kaldır | Shift F8 |
| Şerit Menü Tuşlarını Aktif Etme | Alt |