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?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
