كيف يمكن العثور بسرعة على موضع أول حرف كبير في سلسلة نصية في Excel؟
بفرض أن لديك قائمة من السلاسل النصية الممزوجة بالأرقام والأحرف الكبيرة والصغيرة، فكيف يمكنك العثور بسرعة على موضع أول حرف كبير فيها؟ في هذه المقالة، أقدّم لك الحيل التي تُمكّنك من تحديد موضع أول حرف كبير في كل سلسلة بسرعة، دون الحاجة إلى عد الأحرف يدويًا واحدًا تلو الآخر في Excel.
العثور على موضع الحرف الكبير الأول في السلسلة باستخدام صيغة
العثور على موضع الحرف الكبير الأول في السلسلة باستخدام دالة معرّفة
تغيير جميع الأحرف إلى أحرف كبيرة أو الحرف الأول بحالة كبيرة باستخدام Kutools لـ Excel ![]()
العثور على موضع الحرف الكبير الأول في السلسلة باستخدام صيغة
هناك صيغة يمكنها مساعدتك على العثور بسرعة على موضع أول حرف كبير من السلسلة، يُرجى اتباع الخطوات التالية:
حدد خلية فارغة بجانب السلسلة التي تريد العثور على أول حرف كبير فيها، مثل B1، وأدخل هذه الصيغة=MIN(IF(ISERROR(FIND(CHAR(ROW(INDIRECT("65:90"))),A1)),«»,FIND(CHAR(ROW(INDIRECT("65:90"))),A1)))
اضغطShift + Ctrl + Enter للحصول على النتيجة الصحيحة، ثم اسحب مقبض التعبئة التلقائية عبر الخلايا التي تريد تطبيق الصيغة عليها. انظر لقطة الشاشة:
العثور على موضع الحرف الكبير الأول في السلسلة باستخدام دالة معرّفة
باستثناء الصيغة، يمكنك أيضًا استخدام دالة معرَّفة للعثور على موضع أول حرف كبير في السلسلة.
1. فعّل الورقة التي تحتوي على السلسلة التي تريد العثور على الحرف الكبير فيها، ثم اضغطAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقر بزر الماوس الأيمن على الورقة التي تريد استخدام الكود فيها في جزءProject Explorer، ثم اخترInsert>Module، والصق الكود أدناه في نافذة Module الفارغة. راجع لقطة الشاشة التالية:
الكود: اعثر على موضع أول حرف كبير في السلسلة.
Function GetFirstUpper(Rg As Range) As Integer
'UpdatebyExtendoffice20160726
Dim xStr As String
Dim I As Integer
Application.Volatile
GetFirstUpper = -1
On Error Resume Next
xStr = Trim(Rg.Value)
For I = 1 To Len(xStr)
If (Asc(Mid(xStr, I, 1)) < 91) And (Asc(Mid(xStr, I, 1)) > 64) Then
GetFirstUpper = I
Exit Function
End If
Next
End Function 
3. احفظ الكود، ثم ارجع إلى الورقة التي تستخدمها. حدد خلية فارغة بجانب السلسلة التي تريد العثور على الحرف الكبير فيها، وأدخل هذه الصيغة: =GetFirstUpper(F1)، ثم اضغطEnter. بعد ذلك، اسحب مقبض التعبئة التلقائية عبر الخلايا التي تحتاج إلى هذه الصيغة. انظر لقطة الشاشة:
تلميح: إذا لم يحتوِ النص على أي حرف كبير، فستكون النتيجة -1.
تغيير جميع الأحرف إلى أحرف كبيرة أو الحرف الأول بحالة كبيرة باستخدام Kutools لـ Excel
في أعمال Excel اليومية، قد تحتاج غالبًا إلى تغيير سلاسل الأحرف إلى أحرف كبيرة بالكامل، أو جعل الحرف الأول كبيرًا مع بقية الأحرف صغيرة، أو تحويل الحرف الأول من كل جملة إلى حالة كبيرة، أو حتى تبديل حالة الأحرف تمامًا، كما هو موضح في لقطة الشاشة أدناه.
باستخدامKutools لـ Excel، يمكنك تطبيق أداةتغيير الحالةالخاصة بها لتغيير حالة الأحرف بسرعة حسب حاجتك.
بعدتثبيتKutools لـ Excel مجانًا، يُرجى اتباع ما يلي:
1. حدد السلاسل التي تريد تغيير حالة أحرفها، ثم انقرKutools > Text > تغيير الحالة. انظر لقطة الشاشة:
2. بعد ذلك، في مربع الحوار المنبثقتغيير الحالة، اختر الخيار الذي تريده من قسمتغيير النوع، وستتمكن من معاينة النتيجة مباشرةً في جزء المعاينة. انظر لقطة الشاشة:
3. بعد ذلك، انقرOk أوApply لتغيير الحالة.
Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل