كيف يمكن استخراج النص بناءً على لون خطه من خلية في Excel؟
في Excel، قد تصادف أحيانًا مجموعات بيانات تحتوي خلاياها على ألوان نصوص مختلطة، مثل تمييز بعض الأحرف أو الكلمات باللون الأحمر للتأكيد أو لأغراض التصنيف. فعلى سبيل المثال، قد تعرض الخلية مزيجًا من نص عادي ونص أحمر لتمييز العناصر المهمة. ويُعد استخراج النص المكتوب بلون خط معيّن—مثل الأحمر—أمرًا بالغ القيمة لأغراض تحليل البيانات، والإبلاغ، أو المعالجة الإضافية، خاصةً عند الحاجة إلى عزل النقاط البارزة أو التعليقات التي يُشير إليها لون الخط.
لا يمكن إنجاز هذه المهمة مباشرةً باستخدام دوال Excel المدمجة، لأن الصيغ القياسية لا تستشعر لون الخط ولا تتصرّف بناءً عليه. ونتيجةً لذلك، إذا كانت لديك قائمة بيانات مشابهة لتلك الموضحة في لقطة الشاشة أدناه، وكان هدفك استخراج النص المكتوب باللون الأحمر فقط من كل خلية، فقد تتساءل عن الطرق العملية المتاحة لتحقيق ذلك بكفاءة. يوضّح الحل التالي كيفية استخراج النص بناءً على لون خطّه في Excel، مما يُسهّل إدارة البيانات وتصفيتها واستخدامها حسب الحاجة.
استخراج النص بناءً على لون الخط من كل خلية
استخراج النص بناءً على لون الخط من كل خلية
بشكل افتراضي، لا يوفّر Excel دالة جاهزة لاستخراج النص بناءً على لون خط الخلية. ولذلك، يتطلّب الأمر استخدام كود VBA مخصّص (دالة معرّفة من قِبل المستخدم) لأداء هذه المهمة. ويُعدّ هذا الأسلوب مثاليًّا للمستخدمين المتمرّسين في التعامل مع VBA والذين يحتاجون إلى استخراج النصوص الملوّنة برمجيًّا من خلايا متعددة أو معقّدة. وتتميّز هذه الطريقة بمرونتها العالية في تحديد لون الخط المستهدف بدقة؛ غير أنّ قيدها الرئيسي يتمثّل في أنها لا تحدّث النتائج تلقائيًّا عند تغيير تنسيق اللون، ما لم تُجرَ إعادة حساب يدويّة أو تُطبّق الدالة من جديد.
اتبع الخطوات التالية لإنشاء واستخدام دالة لاستخراج النص الملوّن:
1. اضغط على مفاتيحAlt + F11 في الوقت نفسه لفتح نافذة Microsoft Visual Basic for Applications (VBA). إذا لم تكن قد فعّلت علامة التبويبالمطوّر، يمكنك أيضًا النقر بزر الماوس الأيمن على أي علامة تبويب في الشريط، ثم اختيارتخصيص الشريط، وإضافة علامة التبويبالمطوّرللوصول إليها بسهولة في المستقبل.
2. في نافذة VBA، انقر علىإدراج > وحدة نمطية (Module). سيؤدي ذلك إلى إنشاء وحدة نمطية جديدة يمكنك لصق كود VBA التالي فيها.
VBA: استخراج النص بناءً على لون الخط
Function GetColorText(pRange As Range) As String
'UpdatebyExtendoffice20220621
Dim xOut As String
Dim xValue As String
Dim i As Long
Dim TextColor
TextColor = RGB(255, 0, 0) 'colorindex RGB
xValue = pRange.Text
For i = 1 To VBA.Len(xValue)
If pRange.Characters(i, 1).Font.Color = TextColor Then
xOut = xOut & VBA.Mid(xValue, i, 1)
End If
Next
GetColorText = xOut
End Function
3. بعد لصق الكود، احفظ التغييرات وأغلق محرر VBA، ثم عُد إلى ورقة عمل Excel الخاصة بك. حدد خلية فارغة بجانب قائمة البيانات، وأدخل الصيغة التالية:
=GetColorText(A1)
استبدلA1 بمراجع الخلية المحددة التي ترغب في استخراج النص منها. اضغط على مفتاحEnter لتنفيذ الدالة واستخراج النص المكتوب باللون المحدد لون الخط (الأحمر افتراضيًّا) من الخلية المختارة. ولتطبيق هذا الاستخراج على خلايا أخرى في القائمة، اسحب مقبض التعبئة (الموجود في الزاوية السفلية اليمنى للخلية المحددة) لأسفل أو عبر النطاق حسب الحاجة.
الآن، سيتم استخراج جميع حالات النص الأحمر من كل خلية وعرضها في الخلية المقابلة التي تحتوي على الصيغة، مما يجعل فصل النص الملوَّن للتحليل أو العرض لاحقًا أكثر كفاءة.
تلميح: في كود VBA المقدّم، يُحدّد السطرTextColor = RGB(255,0,0)لون الهدف (الأحمر في هذه الحالة). إذا كنت بحاجة إلى استخراج النص بلون مختلف، غيّر قيمة RGB لتتناسب مع لون الخط الذي تريده (على سبيل المثال، لاستخراج النص باللون الأزرق، استخدم)TextColor = RGB(0,0,255)).
من المهم ملاحظة أن هذه الطريقة تستخرج النص فقط من الخلايا التي يتطابق لون نصها تمامًا مع لون الخط المحدَّد. فإذا كان لون النص ظلًّا قريبًا دون أن يطابق قيم RGB بدقة، فقد لا يتم التعرُّف عليه. تحقَّق مجددًا من أكواد ألوان الخط في ورقة العمل الخاصة بك إذا لم تُعطِ عملية الاستخراج النتائج المتوقعة.
إذا واجهت مشكلات حيث لا تُعيد الصيغة أي نص، فتأكد من تفعيل وحدات الماكرو في بيئة Excel الخاصة بك، وتحقق من أن لون الخط يتطابق فعليًّا مع قيم RGB المعيّنة في الكود. تذكّر أن الدوال المعرّفة من قِبل المستخدم كهذه تكون متاحة فقط في المصنف الذي أضفت إليه الكود، ما لم تحفظه كأداة إضافية (Add-in) أو تُعد إضافته إلى مصنفات أخرى.
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
مقالات ذات صلة:
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل