Textboxa Sadece Rakam Girme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Uygulama Adımları
- 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 gelecek olan UserForm yazısına çift tıklayın.
- Alttaki kodu yapıştırın.
Hazır Kod
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(7 satır)
Açıklama
- TextBox1_KeyPress Olayı: Bu olay, TextBox1 adlı TextBox'a bir tuşa basıldığında tetiklenir. Bu olayın içinde, kullanıcının girdiği karakterin ASCII değerini KeyAscii parametresi olarak alırız.
- KeyAscii Kontrolü: ASCII değerleri, girilen karakterin tipini belirler. Rakamların ASCII değerleri 48 ('0') ile 57 ('9') arasındadır. Ayrıca, backspace tuşunun ASCII değeri 8'dir ve bu da silme işlemine izin verir.
- Girişi Reddetme: Eğer girilen karakter bir rakam veya izin verilen bir kontrol tuşu değilse, KeyAscii'nin değeri 0 olarak ayarlanır. Bu, karakterin TextBox'a eklenmesini engeller ve bir uyarı mesajı gösterilir.
Nasıl Kullanılır
- Bu kod parçasını kullanmak için, öncelikle Excel'de bir kullanıcı formu oluşturmalı ve bu formda en az bir TextBox bulunmalıdır.
- VBA editöründe (Alt + F11), ilgili formun kod sayfasını açın.
- TextBox'a uygun olan olay prosedürünü (TextBox1_KeyPress gibi) bulun ve yukarıdaki kodu bu prosedürün içine yapıştırın.
- Formu çalıştırdığınızda, bu TextBox'a sadece rakam girebileceksiniz.
Faydalanılması temennisiyle