كيف يمكن استخراج الأحرف الكبيرة أو الكلمات التي تبدأ بحرف كبير من سلاسل النصوص؟
إذا كانت لديك قائمة من سلاسل النصوص وترغب في استخراج الأحرف الكبيرة فقط أو الكلمات التي تبدأ بحرف كبير من الخلايا، فكيف يمكنك تنفيذ هذه المهمة في Excel؟
استخراج الأحرف الكبيرة من سلاسل النصوص باستخدام دالة معرّفة من قبل المستخدم
استخراج الكلمات التي تبدأ بحرف كبير من سلاسل النصوص باستخدام دالة معرّفة من قبل المستخدم
استخراج الأحرف الكبيرة من سلاسل النصوص باستخدام دالة معرّفة من قبل المستخدم
يمكنك استخدام رمز VBA التالي لاستخراج الأحرف الكبيرة من الخلايا بسهولة. اتبع الخطوات التالية:
1. اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2 انقرإدراج > وحدة نمطية، ثم الصق الرمز التالي في نافذةالوحدة النمطية.
رمز VBA: استخراج الأحرف الكبيرة فقط من سلاسل النصوص:
Function ExtractCap(Txt As String) As String
'Updateby Extendoffice
Application.Volatile
Dim xRegEx As Object
Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
xRegEx.Pattern = "[^A-Z]"
xRegEx.Global = True
ExtractCap = xRegEx.Replace(Txt, "")
Set xRegEx = Nothing
End Function
3. بعد ذلك، احفظ الرمز وأغلق نافذة الكود، ثم عُد إلى ورقة العمل وأدخل الصيغة التالية: =EXTRACTCAP(A2) في خلية فارغة حيث تريد عرض النتيجة. بعد ذلك، اسحب مقبض التعبئة لأسفل عبر الخلايا التي ترغب في تطبيق الصيغة عليها، وسيتم استخراج جميع الأحرف الكبيرة دفعة واحدة، كما هو موضح في لقطة الشاشة:
استخراج الكلمات التي تبدأ بحرف كبير من سلاسل النصوص باستخدام دالة معرّفة من قبل المستخدم
إذا كنت بحاجة إلى استخراج الكلمات التي تبدأ بحرف كبير من سلاسل النصوص، فإن رمز VBA التالي سيساعدك.
1. اضغط مع الاستمرار على مفتاحَيْALT + F11لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقرإدراج > وحدة نمطية، ثم انسخ والصق الرمز التالي في نافذةالوحدة النمطية.
رمز VBA: استخراج الكلمات التي تبدأ بحرف كبير:
Function StrExtract(Str As String) As String
'Updateby Extendoffice
Application.Volatile
Dim xStrList As Variant
Dim xRet As String
Dim I As Long
If Len(Str) = 0 Then Exit Function
xStrList = Split(Str, " ")
If UBound(xStrList) >= 0 Then
For I = 0 To UBound(xStrList)
If xStrList(I) = StrConv(xStrList(I), vbProperCase) Then
xRet = xRet & xStrList(I) & " "
End If
Next
StrExtract = Left(xRet, Len(xRet) - 1)
End If
End Function
3. بعد ذلك، احفظ الرمز وأغلق نافذة الكود، ثم أدخل الصيغة التالية: =StrExtract(A2) في خلية فارغة بجانب بياناتك. بعد ذلك، اسحب مقبض التعبئة لأسفل حتى الخلايا التي ترغب في الحصول على النتيجة فيها، وسيتم استخراج جميع الكلمات التي تبدأ بحرف كبير، كما هو موضح في لقطة الشاشة:
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل