TextBox Nesnesine Harf Girilmesini Engelleme

23 Nisan 2021 25 Nisan 2021 1516

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 Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. 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.
  3. Araç çubuklarından Insert -> UserForm yazısına tıklayın.
  4. Solunda klasör simgesi olan Forms yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek olan UserForm(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

TextBox Nesnesine Harf Girilmesini Engelleme

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.
50 Farklı Hazır Makro (VBA) Kodu
Hücredeki Değere Göre Yeni Sayfa Ekleme
Yorumları İçeren Hücreleri Renklendirme
Çalışma Sayfalarını Ayrı PDF Olarak Kaydetme
Makro ile Klasör Açma
Excel Kapanırken Otomatik İşlem Yaptırma
Aktif Hücrenin Üstüne Satır Ekleme
Makro ile Git Penceresini Açma
Her Kapatma İşleminde Otomatik Olarak Kaydetme
Tüm Çalışma Sayfalarını Gösterme
İçinde Bulunduğumuz Günü Bulma
Excel ile Demo Yapma Makrosu
Metinden Konuşma Oluşturma
Çalışma Kitabındaki Tüm Pivot Tabloları Yenileme
Kaydedilmemiş Açık Çalışma Kitaplarını Sayma
Seçimdeki Alternatif Satırları Vurgulama
Hücre Biçimlendir Yazı Tipi Penceresini Açma
Metnin İçinden TC Kimlik Numarasını Ayırma
Hücre İçerisine Kelime Ekleme
Makro ile Web Sitesini Açmak
UserForm Kapatma Kodu
Son Dolu Satırın Bir Altına Yazdırma
Satırı Kes Kopyala ve Yapıştır
Sütunu Kes Kopyala ve Yapıştır
İçinde Bulunduğumuz AY Sayfasının Aktif Edilmesi
Sendkey Yöntemi ile F Q Klavye Dönüşümü
Aralıklı Olarak Satır Silme
Sürücü Seri Numarasını Gösterme
Bir Değeri Renklendirme
Excel Hücresine Gitme Makrosu
Pivot Tablo Alt Toplamlarını Gizleme
Excel Makroları ile Klasör Silme
Tek Sütunu Kes Kopyala ve Yapıştır
56 Renk Kodunu Sıralama
TextBox Nesnelerinin Arasında Boşluk Bırakma
Tarih Değeri Yazarken Otomatik Ayraç Kullanımı
Sürücü Adı Kontrolü Yapma
Şarta Göre Satır Açma ve Renklendirme
Hücreye Girilen Değerleri Farklı Bir Sayfaya Kaydetme
Seçili Hücrelerden Boşlukları Kaldırma
Api ile Bilgisayar Adını Bulmak
Excel Makroları ile Form Çağırma
Son Satır Numarasını Bulma
Boş Hücrelerin Görünmez Alanını Vurgulama
UserForm Resize Özelliği Eklemek
Bir sayfadaki Veriyi Diğer Sayfaya Aktarma
Grafik Türünü Değiştirme
Seçili Sütunların Sayısını Bulma
Tek Satırı Kes Kopyala ve Yapıştır
Hücredeki Değer Boşsa Kayıt Gerçekleşmesin
Aktif Çalışma Sayfası Dışında Tümünü Silme

Daha önce yorum yapılmamış!

Backlink Reklam Bu alanda 50 karakterlik açıklama ile web sitenize ait Backlink Reklam yayınlayabilirsiniz.
Yükleniyor...