Note: The other languages of the website are Google-translated. Back to English

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

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

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

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

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


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

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

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

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

doc-منع-الأحرف -1

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

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

doc-منع-الأحرف -1

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

doc-منع-الأحرف -1


منع إدخال الأحرف الخاصة برمز 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

doc-منع-الأحرف -1

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

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

doc-منع-الأحرف -1


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

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

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. 

بعد تثبيت Kutools for Excel ، يرجى القيام بما يلي :(قم بتنزيل Kutools for Excel الآن!)

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

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

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

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

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

doc منع التكرار doc kutools يمنع الكتابة 2


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

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

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


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (12)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الحل مع التحقق من صحة البيانات يكاد يكون مثاليًا. لكنني قادر على وضع حرف "*" في هذا المجال المحمي. اي نصيحه؟ شكرا جزيلا بافيل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بدلاً من دالة البحث ، حاول استخدام FIND: = ISNUMBER (SUMPRODUCT (FIND (MID (A1، ROW (INDIRECT ("1:" & LEN (A1)))، 1)، "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUV)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيفية تعيين حد الطول؟ أعني إذا كنت أرغب في تعيين 12 حرفًا أو رقمًا فقط
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا راج
لحل مشكلتك ، يرجى تطبيق الصيغة التالية:
=AND(ISNUMBER(SUMPRODUCT(FIND(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))),LEN(A1)=12)


يرجى المحاولة ، آمل أن يساعدك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ماذا لو كنت بحاجة إلى منع كتابة أحرف معينة في خلية واحدة مع طول النص؟

على سبيل المثال ، أريد منع النص من أن يكون بين 5-16 حرفًا في تركيبة مع منع شخصية معينة؟ اي نصيحه؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ربما يمكنك تجربة وظيفة التحقق من صحة البيانات للحد من طول النص. انظر لقطة الشاشة:
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عندما أستخدم كود VBA الخاص بك في Excel 2013 ، فإنه سيفتح خيار تصحيح الأخطاء ويتجمد
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا يا ويلي ، إذا ظهر مربع حوار كما هو موضح أدناه ، فما عليك سوى النقر فوق "نعم" ثم "موافق" لتمكين الرمز. تظهر هذه المشكلة في Excel 2016 أيضًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف تكرر هذا في أعمدة أخرى؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
حل رائع. como apprgas las comillas (") para que sean admitidas؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا هيربير ،

سعيد للمساعدة. باستخدام الطريقة الأولى ، يمكنك استخدام هذه الصيغة في التحقق من صحة البيانات:
=ISNUMBER(SUMPRODUCT(SEARCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"&CHAR(34))))

تأخذ الدالة CHAR قيمة ASCII وتُرجع قيمة الحرف المقابل. قيمة ASCII لاقتباس مزدوج هي 34. لذلك سيتم السماح باقتباس مزدوج. يرجى المحاولة.

مع خالص الشكر والتقدير،
ماندي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
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)
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL