Excel'de özel karakterlerin girilmesini nasıl engellerim?
Bazı durumlarda, hücrelere yalnızca harf veya sayı girmek isteriz ve @#$%& gibi özel karakterlerin girişini engellemek isteriz. Excel’de değer girerken bu tür özel karakterlerin girilmesini önleyen bir özellik var mıdır?
Özel karakterlerin Veri Doğrulama ile girilmesini önleme
Özel karakterlerin VBA kodu ile girilmesini önleme
Özel karakterlerin Kutools for Excel ile girilmesini önleme 
Özel karakterlerin Veri Doğrulama ile girilmesini önleme
Excel’in Veri Doğrulama özelliği, yalnızca alfanümerik değerler girmenize olanak tanıyarak size yardımcı olabilir. Lütfen aşağıdaki adımları uygulayın:
1. Özel karakterlerin girilmesini engellemek istediğiniz aralığı seçin.
2. Ardından Veri > Veri Doğrulama > Veri Doğrulama seçeneğine tıklayın; ekran görüntüsüne bakın:
3.Veri Doğrulamailetişim kutusunda,Ayarlarsekmesine tıklayın ve Özelseçeneğini İzin Veraçılır listesinden seçin; ardından bu formülü =ISNUMBER(SUMPRODUCT(SEARCH(MID(A1,ROW(INDIRECT("1:"&,LEN(A1))),1),"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ")))Formül metin kutusuna girin; ekran görüntüsüne bakın: text box, see screenshot:
Not: A1, Aralık seç (soldan sağa) aralığınızın ilk hücresini gösterir.
4. Ardından, Tamam düğmesine tıklayarak bu iletişim kutusunu kapatın. Artık belirttiğiniz sütuna özel karakter içeren değerler girdiğinizde aşağıdaki uyarı mesajını alacaksınız.
Özel karakterlerin VBA kodu ile girilmesini önleme
Aşağıdaki VBA kodu, metin değerleri girerken özel karakterlerin kullanımını engellemenize yardımcı olabilir.
1. ALT + F11 tuşlarına basılı tutun; bu işlem, Microsoft Visual Basic for Applications penceresini açar.
2.Ardından sol taraftaki Proje Gezgini'nden kullandığınız çalışma sayfasını seçin, Modülü açmak için üzerine çift tıklayın ve ardından aşağıdaki VBA kodunu boş Modülalanına kopyalayıp yapıştırın:Modül:
VBA kodu: Excel'de özel karakterlerin girilmesini önleme
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, A1:A100 aralığını, Private Const FCheckRgAddress As String = "A1:A100" satırında kendi özel karakterleri engellemek istediğiniz aralıkla değiştirebilirsiniz.
3. Ardından bu kodu Kaydet ve Kapat. Artık A1:A100 aralığına özel karakterler içeren metin değerleri girdiğinizde, girişiniz hemen temizlenerek aşağıdaki uyarı mesajını alacaksınız.
Özel karakterlerin Kutools for Excel ile girilmesini önleme
Aslında, elinizde Kutools for Excel—kullanışlı ve çok fonksiyonlu bir araç—varsa, özel karakterleri bir seçimde hızlıca giriş sınırlaması altına almak için Giriş Sınırlamaözelliğini tek bir onay kutusuyla kullanabilirsiniz.
Kutools for Excel yüklendikten sonra lütfen aşağıdaki adımları uygulayın:Kutools for Excel
1. Özel karakter yazımını önlemek istediğiniz aralığı seçin ve Kutools > Giriş Sınırlama > Giriş Sınırlama seçeneğine tıklayın. Ekran görüntüsüne bakın:
2. Giriş Sınırlama iletişim kutusunda, Özel karakterlerin girişi yasaklandı seçeneğini işaretleyin. Ekran görüntüsüne bakın:
3. Tamam düğmesine tıklayın; bu özellik uygulandığında Veri Doğrulama’nın kaldırılacağını hatırlatan bir iletişim kutusu açılacaktır. Bir sonraki adıma geçmek için Evet seçeneğine tıklayın. Özellik, ilgili bölümde etkinleştirildiğini hatırlatacaktır. Ekran görüntüsüne bakın:
4. İletişim kutusunu kapatmak için Tamam düğmesine tıklayın. Bundan sonra, seçimde özel bir karakter girmeye çalıştığınızda bir uyarı iletişim kutusu açılacaktır.
Kutools for Excel– Excel'i, işinizi daha hızlı ve kolay hale getiren 300 temel araçla güçlendirin ve daha akıllı veri işleme ile üretkenlik için yapay zeka özelliklerinden yararlanın.Hemen Edinin
Demo: Kutools for Excel kullanarak Özel Karakterlerin Girilmesini Önleme
İlgili makaleler:
Excel'de boşluk içeren değerlerin girilmesini nasıl engellerim?
Excel'de sütundaki tekrar eden girişleri nasıl önler ve verileri kolayca düzenli tutarsınız?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar