انتقل إلى المحتوى الرئيسي

كيفية فرض سلسلة نصية على أحرف كبيرة / صغيرة / حالة مناسبة في إكسيل؟

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

فرض السلاسل النصية على أحرف كبيرة / صغيرة / مناسبة مع التحقق من صحة البيانات

فرض السلاسل النصية على أحرف كبيرة / صغيرة / مناسبة برمز VBA

قم بتغيير النص إلى أحرف كبيرة / صغيرة / حالة مناسبة باستخدام Kutools for Excel فكرة جيدة 3


يعد التحقق من صحة البيانات أداة قوية في Excel ، ويمكن أن يساعدنا في القيام بالعديد من العمليات ، وبمساعدته ، يمكننا أيضًا فرض الأحرف الكبيرة أو الصغيرة أو الحالة المناسبة لسلاسل النص عند الكتابة ، يرجى القيام بما يلي:

1. اذهب للنقر البيانات > التحقق من صحة البيانات > التحقق من صحة البيانات، انظر لقطة الشاشة:

doc-force-uppercase -1

2. في التحقق من صحة البيانات الحوار ، تحت الإعدادات ، انقر فوق السماح القائمة المنسدلة واختيار Custom الخيار ، ثم في المعادلة مربع النص ، أدخل هذه الصيغة = دقيق (UPPER (A1)، A1)، (A1 لتقف على العمود الذي ستقوم بتطبيق هذه الميزة ، يمكنك تغييره حسب حاجتك) ، انظر الصورة:

doc-force-uppercase -1

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

doc-force-uppercase -1

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

doc-force-uppercase -1

ملحوظة:

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

القوة على الأحرف الصغيرة: = EXACT (LOWER (A1)، A1);

القوة إلى الحالة المناسبة: = بالضبط (PROPER (A1)، A1)


باستخدام رمز VBA التالي ، عند إدخال الكلمات الصغيرة في خلية ، سيتم تغيير النص الصغير إلى الأحرف الكبيرة تلقائيًا.

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

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

كود فبا: فرض السلسلة النصية على أحرف كبيرة

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = VBA.UCase(Target.Value)
End Sub

doc-force-uppercase -1

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

الملاحظات:

1. يتم تطبيق هذا الرمز على ورقة العمل بأكملها.

2. إذا لم تتمكن من العثور على حرف Pالجذر جزء المستكشف في النافذة ، يمكنك النقر فوق المزيد > مستكشف المشروع لفتحه.

3. لفرض الأحرف الصغيرة أو الحالة المناسبة للكلمات ، يمكنك تطبيق رمز فبا التالي: (الإجراء هو نفس الإجراء أعلاه)

كود فبا: فرض السلسلة النصية على أحرف صغيرة

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = VBA.LCase(Target.Value)
End Sub

كود فبا: فرض سلسلة نصية على الحالة المناسبة

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = Application.WorksheetFunction.Proper(Target.Value)
End Sub

إذا كنت ترغب فقط في تغيير بعض النصوص المحددة إلى أحرف كبيرة أو صغيرة أو حالة مناسبة ، فيمكنك تطبيق تغيير الحالة فائدة كوتولس ل إكسيل لإنجازه بسرعة.

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

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

1. حدد النصوص التي تريد تغيير حالتها وانقر كوتولس > نص > تغيير الحالة. انظر لقطة الشاشة:
حالة تغيير المستند 6

2. في ال تغيير الحالة مربع الحوار ، تحقق من خيار التشغيل كما تريد ، ويمكنك معاينة النتيجة في ملف أرسال جزء. انظر لقطة الشاشة:
حالة تغيير المستند 2

3. انقر Ok or التقديم وكانت النصوص حالة التغيير.

 التغيير إلى الأحرف الكبيرة  التغيير إلى حالة مناسبة  التغيير إلى حالة الجملة
 حالة تغيير المستند 3  حالة تغيير المستند 4 حالة تغيير المستند 5 

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

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Please suggest modifications in the VBA code to force the text strings to change to the desired format (Upper/Lower/Proper case) in selected/specified cells only rather than changing the Case of the text strings in the entire worksheet.
This comment was minimized by the moderator on the site
Hello, DS,
To apply the code to a specified range instead of entire worksheet, please apply the following code:
VBA code: Force text string to uppercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = VBA.UCase(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


VBA code: Force text string to lowercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = VBA.LCase(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


VBA code: Force text string to propercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = Application.Proper(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


Please have a try, thank you!
This comment was minimized by the moderator on the site
Use: On Error Resume Next

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
On Error Resume Next
Target.Value = Application.WorksheetFunction.Proper(Target.Value)
End Sub
This comment was minimized by the moderator on the site
muchas gracias, sirvio enormemente estos codigos
This comment was minimized by the moderator on the site
This worked for me, however if you went to delete the contents of the cell then a "runtime error '13': type mismatch" came up

Any ideas?
This comment was minimized by the moderator on the site
i have the same problem. if you know how to deal with it please tell me!
This comment was minimized by the moderator on the site
Hello, which method you use will come up the errors?
This comment was minimized by the moderator on the site
Like your VBA solution, but how could I limit it to a single column and format other columns differently, e.g., columns A and C force uppercase, column B force proper case?
This comment was minimized by the moderator on the site
I do not know which VBA can handle your job (some columns in uppercase, some in proper case), but the data validation can solve it, why do not use it?
This comment was minimized by the moderator on the site
thanks for the macro to convert all entries to capital letters, but is there something i need to do to stop the macro from crashing excel every fe minutes? Appreciate the help!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations