الكوكيز تساعدنا تقديم خدماتنا. باستخدام خدماتنا، فإنك توافق على استخدامنا لملفات تعريف الارتباط.
نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية استخراج النص استنادا إلى لون الخط من خلية في إكسيل؟

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

وثيقة استخراج النص لون-1

استخراج النص استنادا إلى لون الخط من كل خلية


السهم الأزرق الفقاعة اليمنى استخراج النص استنادا إلى لون الخط من كل خلية


في إكسيل، يمكنك فقط استخدام الدالة المعرفة لاستخراج النص استنادا إلى لون الخط.

1. صحافة ALT + F11 مفاتيح معا لفتح إطار ميكروسوفت فيسوال باسيك فور أبليكاتيونس.

2. انقر إدراج > وحدة ونسخ التعليمات البرمجية فبا اتبع إلى نافذة برزت خارج.

فبا: استخراج النص استنادا إلى لون الخط

Function GetColorText(pRange As Range) As String
	'Updateby20141105
	Dim xOut As String
	Dim xValue As String
	Dim i As Long
	xValue = pRange.Text

	For i = 1 To VBA.Len(xValue)

		If pRange.Characters(i, 1).Font.Color = vbRed Then
			xOut = xOut & VBA.Mid(xValue, i, 1)
		End If

	Next

	GetColorText = xOut
End Function

3. ثم قم بحفظ وإغلاق مربع الحوار، وحدد خلية فارغة بجوار قائمة البيانات، اكتب هذه الصيغة = GetColorText (A1) (أكنومكس يشير إلى الخلية التي تريد استخراج النص منها)، اضغط أدخل للحصول على النص المطلوب، ثم اسحب مقبض الملء التلقائي لملء الصيغة إلى النطاق الذي تريده.

الآن يمكنك ان ترى يتم استخراج كل النص الأحمر.

وثيقة استخراج النص لون-2

معلومات سرية: في التعليمات البرمجية فبا أعلاه، إذا كنت بحاجة إلى استخراج النص الأسود من الخلايا، يمكنك تغيير اسم اللون اللون = فريد إلى اللون = vbBlack.


المقالات النسبية:



أدوات الإنتاجية الموصى بها

تبويب أوفيس

الذهب ستارسنومك يمكنك جلب علامات التبويب المفيدة إلى إكسيل وبرامج أوفيس الأخرى، تماما مثل كروم و فيريفوكس و إنترنيت إكسبلورر الجديد.

كوتولس ل إكسيل

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

الذهب ستارسنومك شنومكس ميزات جديدة ل إكسيل، جعل اكسل بكثير سهلة وقوية:

  • دمج الخلية / الصفوف / الأعمدة دون فقدان البيانات.
  • الجمع بين وتوثيق جداول متعددة و المصنفات.
  • مقارنة نطاقات، نسخ نطاقات متعددة، تحويل النص إلى التاريخ، وحدة وتحويل العملات.
  • العد بالألوان، الترحيل الفرعي الفرعي، فرز متقدم وفائق تصفية،
  • المزيد تحديد / إدراج / حذف / نص / تنسيق / رابط / تعليق / المصنفات / أدوات أوراق العمل ...

لقطة شاشة كوتولس ل إكسيل

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    prudwi · 2 months ago
    The code works well if the red strings are continuous. In case they are separated in the source cell, they are glued to each other in output cell. I mean there is no space in the output if the red text strings are away from each other. Can you please provide a solution for this?
  • To post as a guest, your comment is unpublished.
    Kazam Raza · 2 months ago
    thanks, very interesting code.
  • To post as a guest, your comment is unpublished.
    Roberto · 3 months ago
    dimenticavo io ho Excel 2010
  • To post as a guest, your comment is unpublished.
    Roberto · 3 months ago
    Buonasera, grazie mille un'ottima funzione. Però ho un problema, quando val nel foglio ed inserisco es. = GetColorText (A1) mi restituisce il valore giusto però come riavvio il file mi da errore #VALORE!, se poi clicco 2 volte sopra mi da il valore corretto e così via. che posso fare?
  • To post as a guest, your comment is unpublished.
    JM · 1 years ago
    Hey, Thanks for the Tip. Works great with Red and Black.
    What if I want to parse "Purple"? changing it vbPurple does not work.
    Thanks