Excel'e özel karakterlerin girilmesi nasıl engellenir?

Bazı durumlarda, hücrelere harf veya sayı girmek ve @ # $% vb. Gibi özel karakterlerin yazılmasını engellemek istiyoruz. Değerleri girerken özel karakterlerin girilmesini engelleyen Excel'de herhangi bir işlev var mı?

Veri Doğrulama ile özel karakterlerin girilmesini önleyin

VBA kodu ile özel karakterlerin girilmesini önleyin

Kutools for Excel ile özel karakterlerin girilmesini önleyin

Veri Doğrulama ile özel karakterlerin girilmesini önleyin

Excel'in Veri Doğrulaması, yalnızca alfanümerik değerleri girmenize izin vermeye yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın:

1. Özel karakterlerin girmesini engellemek istediğiniz bir aralık seçin.

2. Sonra tıklayın Veri > veri Doğrulama > veri Doğrulama, ekran görüntüsüne bakın:

3. In veri Doğrulama iletişim kutusunu tıklayın Ayarlar sekmesini tıklayın ve seçin görenek itibaren izin vermek açılır listeyi, ardından bu formülü girin =ISNUMBER(SUMPRODUCT(SEARCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))) içine formül metin kutusu, ekran görüntüsüne bakın:

Not:A1 seçtiğiniz aralığın ilk hücresini gösterir (soldan sağa).

4. Sonra tıklayın OK bu diyaloğu kapatmak için ve şimdi belirtilen sütuna özel karakterleri içeren değerleri girdiğinizde seçeneği uyguluyorsunuz, aşağıdaki uyarı mesajını alacaksınız.

VBA kodu ile özel karakterlerin girilmesini önleyin

Aşağıdaki VBA kodu da metin değerlerini girerken özel karakterleri önlemenize yardımcı olabilir.

1. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic penceresi.

2. Ardından soldan kullanılmış çalışma sayfanızı seçin Proje Gezginiaçmak için çift tıklayın modülve ardından aşağıdaki VBA kodunu kopyalayıp boşluğa yapıştırın modül:

VBA kodu: Excel'e özel karakterlerin girilmesini engelleyin

Private Const FCheckRgAddress As String = "A1:A100"
Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140905
    Dim xChanged As Range
    Dim xRg As Range
    Dim xString As String
    Dim sErrors As String
    Dim xRegExp As Variant
    Dim xHasErr As Boolean
    Set xChanged = Application.Intersect(Range(FCheckRgAddress), Target)
    If xChanged Is Nothing Then Exit Sub
    Set xRegExp = CreateObject("VBScript.RegExp")
    xRegExp.Global = True
    xRegExp.IgnoreCase = True
    xRegExp.Pattern = "[^0-9a-z]"
    For Each xRg In xChanged
        If xRegExp.Test(xRg.Value) Then
            xHasErr = True
            Application.EnableEvents = False
            xRg.ClearContents
            Application.EnableEvents = True
        End If
    Next
    If xHasErr Then MsgBox "These cells had invalid entries and have been cleared:"
End Sub

not: Yukarıdaki kodda aralığı değiştirebilirsiniz A1: A100 of Özel Sabit FCheckRgAddress As String = "A1: A100" özel karakterleri önlemek istediğiniz kendi aralığınıza komut dosyası.

3. Ardından bu kodu kaydedip kapatın ve şimdi A1: A100 aralığında bazı özel karakterlerle metin değerleri girdiğinizde, değeriniz bir anda silinecek ve aşağıdaki uyarı mesajını alabilirsiniz.

Kutools for Excel ile özel karakterlerin girilmesini önleyin

Aslında, eğer varsa Kutools for Excel - kullanışlı ve çok işlevli bir araç, özel karakterleri bir seçime yazmayı hızlı bir şekilde önleyebilirsiniz. Yazmayı Önle tek çek ile yardımcı program.

Kurduktan sonra Kutools for Excel, lütfen aşağıdaki işlemleri yapın :(Şimdi Excel için Kutools'u Ücretsiz İndirin!)

1. Özel karakterlerin yazılmasını engellemek istediğiniz bir seçim seçin ve Kutools > Yazmayı Önle > Yazmayı Önle. Ekran görüntüsüne bakın:

2. içinde Yazmayı Önle iletişim, kontrol et Özel karakterlerde yazmayı engelle seçeneği. Ekran görüntüsüne bakın:

3. tık Okve bu yardımcı programı uygularsanız Veri Doğrulamayı kaldıracağını size hatırlatmak için bir iletişim kutusu açılır ve Evet bir sonraki iletişim kutusuna gitmek için, yardımcı programın bölümde çalıştığını hatırlatacaktır. ekran görüntüsüne bakın:

4. tık OK iletişim kutusunu kapatmak için ve bundan sonra seçime özel bir karakter girmeye çalıştığınızda bir uyarı iletişim kutusu açılır.

İpucu.Bir sütuna yinelenen değerler yazmayı bırakmak istiyorsanız, lütfen Kutools for Excel's'i kullanmayı deneyin. Yinelemeyi Önleyin aşağıdaki ekran görüntüsünde gösterildiği gibi. 30 günde sınırlama olmaksızın tam çalışır, lütfen şimdi indirin ve ücretsiz deneme yapın.

  Özel Karakterlerin Girilmesini Önleyin

İlgili yazılar:

Excel'de boşluklarla değer girilmesi nasıl engellenir?

Excel'deki bir sütundaki yinelenen girişleri nasıl önleyebilirim?