Ana içeriğe atla

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 iyi fikir3


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:

doc-önlemek-karakterler-1

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).

doc-önlemek-karakterler-1

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.

doc-önlemek-karakterler-1


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

doc-önlemek-karakterler-1

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.

doc-önlemek-karakterler-1


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.

Kutools for Excel, ile daha fazla 300 kullanışlı fonksiyonlar, işlerinizi daha kolay hale getirir. 

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:
doc, karakterleri engelle 10

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

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:
doc, karakterleri engelle 8

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.
doc, karakterleri engelle 9

İ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.

doc kopyayı önle doc kutools 2 yazmayı engelliyor


İlgili yazılar:

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

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

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

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...

Açıklama


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!
Comments (12)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Pessoal, segue formul em portugês com a quantidade de caracteres limitada a 7:

=E(ÉNÚM(SOMARPRODUTO(LOCALIZAR(EXT.TEXTO(A1;LIN(INDIRETO("1:"&NÚM.CARACT(A1)));1);"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ ")));NÚM.CARACT(A1)<8)
This comment was minimized by the moderator on the site
Excelente solucion. como agregas las comillas (") para que sean admitidas?
This comment was minimized by the moderator on the site
Hello herber,

Glad to help. Using the first method, you can use this formula in data validation:
=ISNUMBER(SUMPRODUCT(SEARCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"&CHAR(34))))

The CHAR function takes the ASCII value and returns the corresponding character value. The ASCII value for a double quote is 34. So a double quote will be allowed. Please have a try.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
How to repeat this in other columns?
This comment was minimized by the moderator on the site
When I use your VBA code in excel 2013 it will open up debug option and freezes
This comment was minimized by the moderator on the site
Hi, WilY, if it pops out a dialog as below screenshot shown, just click Yes then OK to enable the code. This issue appears in Excel 2016, too.
This comment was minimized by the moderator on the site
What if i need to prevent in a single cell typing certain characters in combination with length of the text?

For example, i want to prevent the text to be between 5-16 caharacters in comination with certain character prevention? Any advice?
This comment was minimized by the moderator on the site
Maybe you can try the Data Validation function to limit the text length. See screenshot:
This comment was minimized by the moderator on the site
The solution with Data Validation is almost perfect. But I'm able to put "*" character the such protected field. Any advice? Many thanks Pavel
This comment was minimized by the moderator on the site
Instead of SEARCH function try using FIND: =ISNUMBER(SUMPRODUCT(FIND(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ")))
This comment was minimized by the moderator on the site
how to set length limit ? i mean if i want to set only 12 character or number
This comment was minimized by the moderator on the site
Hello, raj,
To solve your problem, please apply the below formula:
=AND(ISNUMBER(SUMPRODUCT(FIND(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))),LEN(A1)=12)


Please have a try, hope it can help you!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations