كيفية منع إدخال الأحرف الخاصة في Excel؟

في بعض الحالات ، نريد فقط إدخال الأحرف أو الأرقام في الخلايا ، ومنع كتابة الأحرف الخاصة ، مثل @ # $٪ وما إلى ذلك. هل هناك أي وظائف في Excel تمنع إدخال الأحرف الخاصة عند إدخال القيم؟

منع إدخال الأحرف الخاصة باستخدام التحقق من صحة البيانات

منع إدخال الأحرف الخاصة برمز VBA

منع إدخال الأحرف الخاصة باستخدام كوتولس ل إكسيل

منع إدخال الأحرف الخاصة باستخدام التحقق من صحة البيانات

يمكن أن يساعد التحقق من صحة البيانات في Excel في السماح لك فقط بإدخال القيم الأبجدية الرقمية. الرجاء القيام بما يلي:

1. حدد النطاق الذي تريد منع إدخال الأحرف الخاصة.

2. ثم اضغط البيانات > التحقق من صحة البيانات > التحقق من صحة البيانات، انظر لقطة الشاشة:

3. في التحقق من صحة البيانات مربع الحوار، انقر فوق الإعدادات علامة التبويب، واختر Custom من السماح القائمة المنسدلة ، ثم أدخل هذه الصيغة =ISNUMBER(SUMPRODUCT(SEARCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))) في المعادلة مربع النص ، انظر لقطة الشاشة:

ملحوظة: A1 يشير إلى الخلية الأولى من النطاق المحدد (من اليسار إلى اليمين).

4. ثم اضغط OK لإغلاق هذا الحوار، والآن، عندما تقوم بإدخال قيم تحتوي على أحرف خاصة في العمود المحدد حيث قمت بتطبيق الخيار، سوف تحصل على رسالة التحذير التالية.

منع إدخال الأحرف الخاصة برمز VBA

يمكن أن يساعدك رمز VBA التالي أيضًا على منع الأحرف الخاصة أثناء إدخال قيم النص.

1. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

2. ثم اختر ورقة العمل المستخدمة من اليسار مستكشف المشروع، انقر فوقه نقرًا مزدوجًا لفتح ملف وحدة، ثم انسخ والصق التعليمات البرمجية لـ VBA التالية في الفراغ وحدة:

كود فبا: منع إدخال الأحرف الخاصة في إكسيل

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

ملاحظات: في الكود أعلاه ، يمكنك تغيير النطاق أكسنومك: أكسنومك of Const FCheckRgAddress As String الخاص = "A1: A100" البرنامج النصي للنطاق الخاص بك الذي تريد منع الأحرف الخاصة.

3. ثم قم بحفظ هذا الكود وإغلاقه. الآن، عندما تقوم بإدخال قيم نصية بأحرف خاصة في النطاق A1:A100، سيتم مسح الإدخال على الفور، وستتلقى رسالة التحذير التالية.

منع إدخال الأحرف الخاصة باستخدام كوتولس ل إكسيل

في الواقع ، إذا كان لديك كوتولس ل إكسيل - أداة يدوية ومتعددة الوظائف ، يمكنك بسرعة منع كتابة أحرف خاصة في التحديد باستخدامها منع الكتابة فائدة بشيك واحد.

بعد تثبيت Kutools for Excel ، يرجى القيام بما يلي:

1. حدد التحديد الذي تريد منع كتابة الأحرف الخاصة به ، وانقر فوق كوتولس > منع الكتابة > منع الكتابة. انظر لقطة الشاشة:

2. في ال منع الكتابة الحوار ، تحقق منع كتابة الأحرف الخاصة اختيار. انظر لقطة الشاشة:

3. انقر Ok، وينبثق مربع حوار لتذكيرك بأنه سيزيل التحقق من صحة البيانات إذا قمت بتطبيق هذه الأداة المساعدة وانقر فوق نعم للانتقال إلى مربع الحوار التالي ، سيذكرك أن الأداة المساعدة تعمل في القسم. انظر لقطة الشاشة:

4. انقر OK لإغلاق مربع الحوار ، ومن الآن فصاعدًا ، يظهر مربع حوار تحذير عند محاولة إدخال حرف خاص في التحديد.

تلميح. إذا كنت تريد التوقف عن كتابة القيم المكررة في عمود ، يرجى محاولة استخدام Kutools for Excel's منع التكرار كما هو موضح في الصورة التالية. قم بالتنزيل واستمتع بالتجربة المجانية الآن.

العرض التوضيحي: منع إدخال الأحرف الخاصة باستخدام Kutools for Excel

مقالات ذات صلة:

كيفية منع إدخال قيم بمسافات في Excel؟

كيفية منع الإدخالات المكررة في عمود في إكسيل؟