Metin kutusuna yalnızca sayıların girilmesine nasıl izin verilir?

Excel'de, hücrelere yalnızca sayıların girilmesine izin vermek için Veri Doğrulama işlevini uygulayabiliriz, ancak bazen, hücrelere olduğu kadar bir metin kutusuna da yalnızca sayıların yazılmasını istiyorum. Excel'de bir metin kutusundaki yalnızca sayılar nasıl kabul edilir?

Özel Yapıştır işleviyle bir hücre aralığını bir sayıya bölün

Özel Yapıştır işleviyle bir hücre aralığını bir sayıya bölün

Aşağıdaki VBA kodu, sayıları, nokta (.) Ve negatif işareti yalnızca bir metin kutusuna girmenize yardımcı olabilir, lütfen şu şekilde yapın:

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

2. Ardından metin kutusunu sağ tıklayın ve Kodu Görüntüle bağlam menüsünden Uygulamalar için Microsoft Visual Basic penceresini açın ve ardından orijinal kodu aşağıdaki VBA koduyla boş modüle değiştirin:

VBA kodu: Metin kutusuna yalnızca sayıların girilmesine izin verin:

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, şimdi, metin kutusuna yalnızca sayılar, nokta sembolü ve eksi işareti girilebilir, ekran görüntüsüne bakın:

İlgili yazılar:

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

Metin kutusu rengini Excel'deki değere göre nasıl değiştirebilirim?

Metin kutusuna resim nasıl eklenir?

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