Bir metin kutusuna yalnızca sayı girişi nasıl sağlanır?

Excel'de, hücrelere yalnızca sayı girilmesini sağlamak için Veri Doğrulama fonksiyonunu kullanabiliriz. Ancak bazen, hücrelerde olduğu gibi bir metin kutusuna da yalnızca sayıların girilmesini istiyorum. Excel'de bir metin kutusunda yalnızca sayıların kabul edilmesini nasıl sağlayabiliriz?

Özel Yapıştır fonksiyonu ile bir hücre aralığını bir sayıya bölme

Özel Yapıştır fonksiyonu ile bir hücre aralığını bir sayıya bölme

Aşağıdaki VBA kodu, bir metin kutusuna yalnızca sayı, nokta (.) ve negatif işaret girilmesine yardımcı olabilir, lütfen şu adımları izleyin:

1. Geliştirici > Ekle > Metin Kutusu (ActiveX Kontrol) seçeneklerine tıklayarak bir metin kutusu oluşturun ve ardından ihtiyacınız olan bir metin kutusu çizin, aşağıdaki ekran görüntüsüne bakın:

2. Ardından metin kutusuna sağ tıklayın ve bağlam menüsünden Kodu Görüntüle'yi seçerek Microsoft Visual Basic for Applications penceresini açın ve ardından orijinal kodu aşağıdaki VBA kodu ile değiştirin:

VBA Kodu: Bir metin kutusuna yalnızca sayı girişi yapılmasına izin ver:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then
        If KeyAscii = Asc("-") Then
            If InStr(1, Me.TextBox1.Text, "-") > 0 Or _
               Me.TextBox1.SelStart > 0 Then KeyAscii = 0
        ElseIf KeyAscii = Asc(".") Then
            If InStr(1, Me.TextBox1.Text, ".") > 0 Then KeyAscii = 0
        Else
            KeyAscii = 0
        End If
    End If
End Sub

3. Ardından kod penceresini kaydedip kapatın ve Tasarım Modu'ndan çıkın, şimdi yalnızca sayılar, nokta sembolü ve negatif işaret metin kutusuna girilebilir, aşağıdaki ekran görüntüsüne bakın:

İlgili makaleler:

Metin kutusunda yazım denetimi nasıl uygulanır?

Excel'de değere göre metin kutusu rengi nasıl değiştirilir?

Bir metin kutusuna resim nasıl eklenir?

Bir metin kutusunda varsayılan değer nasıl ayarlanır?