كيف تمنع إدخال الأحرف الخاصة في Excel؟
هل توجد في Excel أي وظائف تمنع إدخال الأحرف الخاصة—مثل @#$%& وما شابهها—عند إدخال القيم، مع السماح فقط بإدخال الحروف أو الأرقام في الخلايا؟
منع إدخال الأحرف الخاصة باستخدام التحقق من صحة البيانات
منع إدخال الأحرف الخاصة باستخدام كود VBA
منع إدخال الأحرف الخاصة باستخدام Kutools لـ Excel 
منع إدخال الأحرف الخاصة باستخدام التحقق من صحة البيانات
يمكنك استخدام التحقق من صحة البيانات في Excel للسماح بإدخال القيم الأبجدية الرقمية فقط. يُرجى اتباع الخطوات التالية:
1. حدد النطاق الذي تريد منع إدخال الأحرف الخاصة فيه.
2. ثم انقر فوقبيانات > التحقق من صحة البيانات > التحقق من صحة البيانات. راجع لقطة الشاشة:
3. في مربع حوارالتحقق من صحة البيانات، انقر فوق علامة التبويبالإعدادات، واخترمخصصمن قائمةالسماحالمنسدلة، ثم أدخل هذه الصيغة=ISNUMBER(SUMPRODUCT(SEARCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))) في مربع نصالصيغة. راجع لقطة الشاشة:
ملاحظة: A1 تشير إلى الخلية الأولى في نطاق التحديد الخاص بك (من اليسار إلى اليمين).
4. ثم انقر فوقموافقلإغلاق هذا المربع الحواري. الآن، عند إدخال قيم تحتوي على أحرف خاصة في العمود المحدد الذي طبّق عليه الخيار، ستتلقى رسالة تحذير كالتالي.
منع إدخال الأحرف الخاصة باستخدام كود VBA
يمكن أن يساعدك كود VBA التالي أيضًا في منع إدخال الأحرف الخاصة عند كتابة القيم النصية.
1. اضغط مع الاستمرار على مفتاحَيALT + F11، وستفتح لك نافذةMicrosoft Visual Basic for Applications.
2.بعد ذلك، اختر ورقة العمل التي تستخدمها منمستعرض المشروععلى اليسار، وانقر مرتين عليها لفتحالوحدة البرمجية، ثم انسخ ولصق كود VBA التالي فيالوحدة البرمجيةالفارغة:
كود VBA: منع إدخال الأحرف الخاصة في Excel
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
ملاحظة: في الكود أعلاه، يمكنك تغيير النطاقA1:A100 في السطرPrivate Const FCheckRgAddress As String = "A1:A100" ليتوافق مع النطاق الخاص بك الذي تريد منع إدخال الأحرف الخاصة فيه.
3. ثم احفظ الكود وأغلقه. الآن، عند إدخال قيم نصية تحتوي على أحرف خاصة في النطاق A1:A100، سيتم مسح الإدخال فورًا، وستتلقى رسالة تحذير كالتالي.
منع إدخال الأحرف الخاصة باستخدام Kutools لـ Excel
في الواقع، إذا كنت تمتلكKutools لـ Excel—وهي أداة متعددة الوظائف وسهلة الاستخدام—فيمكنك بسرعة تحديد حدٍّ لإدخال الأحرف الخاصة في نطاق معيّن باستخدام أداةتحديد حد للإدخالالخاصة بها بنقرة واحدة.
بعد تثبيتKutools لـ Excel، يُرجى اتباع ما يلي:
1. حدد النطاق الذي تريد منع إدخال الأحرف الخاصة فيه، ثم انقر فوقKutools > تحديد حد للإدخال > تحديد حد للإدخال. راجع لقطة الشاشة:
2. في مربع حوارتحديد حد للإدخال، فعّل خيارمنع إدخال الأحرف الخاصة. راجع لقطة الشاشة:
3. انقر فوقموافق، وسيظهر مربع حوار لتذكيرك بأنه سيتم إزالة التحقق من صحة البيانات إذا طبّقت هذه الأداة. فانقر فوقنعمللمتابعة إلى المربع الحواري التالي، والذي سيذكّرك بأن الأداة قد تم تفعيلها في هذا القسم. راجع لقطة الشاشة:
4. انقر فوقموافقلإغلاق المربع الحواري، ومن الآن فصاعدًا، سيظهر مربع حوار تحذيري كلما حاولت إدخال حرف خاص في النطاق المحدد.
Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
عرض توضيحي: منع إدخال الأحرف الخاصة باستخدام Kutools لـ Excel
مقالات ذات صلة:
كيف تمنع إدخال القيم التي تحتوي على مسافات في Excel؟
كيف تمنع التكرارات في الأعمدة وتحافظ على بياناتك مرتبة بسهولة في Excel؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل