کوکیز ہماری خدمات فراہم کرنے میں ہماری مدد کرتی ہے. ہماری خدمات کو استعمال کرتے ہوئے، آپ کو کوکیز کے استعمال سے اتفاق کرتے ہیں.
ٹپ: دوسری زبانیں Google-Translated ہیں. آپ ملاحظہ کر سکتے ہیں English اس لنک کا ورژن.
لاگ ان کریں
x
or
x
x
رجسٹر
x

or

ایکسل میں ایک سیل سے فونٹ رنگ پر مبنی متن کیسے نکالیں؟

اگر آپ کے پاس Excel میں ہر سیل میں کچھ سرخ متن کے ساتھ ڈیٹا کی فہرست ہے، جیسا کہ اسکرین شاٹ کے نیچے دکھایا گیا ہے، اور کیا آپ جانتے ہیں کہ صرف سرخ متن کو کیسے نکالنا ہے؟ اب میں اس پہیلی کو حل کرنے کا ایک فوری راستہ متعارف کروں گا جو ایکسل میں سیل سے فونٹ رنگ پر مبنی ٹیکسٹ نکالتا ہے.

ڈیک ہٹانے - ٹیکسٹ رنگ - 1

ہر سیل سے فونٹ رنگ پر مبنی ٹیکسٹ نکالیں


تیر نیلے رنگ بلبلا ہر سیل سے فونٹ رنگ پر مبنی ٹیکسٹ نکالیں


ایکسل میں، آپ فونٹ رنگ پر مبنی ٹیکسٹ کو نکالنے کے لئے صرف وضاحت کی تقریب استعمال کرسکتے ہیں.

1. دبائیں ALT + F11 مائیکروسافٹ بصری بنیادی ونڈوز کے لئے ونڈو کے لئے ایک ساتھ چابیاں.

2. کلک کریں داخل > ماڈیول اور پیروی شدہ ونڈو کو فالو VBA کوڈ کاپی کریں.

VBA: فونٹ رنگ پر مبنی ٹیکسٹ نکالیں

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) (A1 اس سیل کی طرف اشارہ کرتا ہے جو آپ متن سے نکالنا چاہتے ہیں)، دبائیں درج ضروری ٹیکسٹ حاصل کرنے کی کلید، پھر آپ چاہتے ہیں رینج کو فارمولہ کو بھرنے کے لئے خود کار طریقے سے ہینڈل ڈالیں.

اب آپ دیکھ سکتے ہیں کہ تمام سرخ متن نکالے جاتے ہیں.

ڈیک ہٹانے - ٹیکسٹ رنگ - 2

ٹپ: مندرجہ بالا VBA کوڈ میں، اگر آپ کو خلیات سے سیاہ متن نکالنے کی ضرورت ہے، تو آپ رنگ کا نام تبدیل کرسکتے ہیں رنگ = vbRed کرنے کے لئے رنگ = VBBlack.


رشتہ دار مضامین



سفارش کردہ پروڈکٹیوٹی ٹولز

آفس ٹیب

سونے کی ستارہ ایکس این ایم ایکس ایکس کروم، فائر فاکس اور نئے انٹرنیٹ ایکسپلورر کی طرح، ایکسل اور دیگر دفتری سافٹ ویئر میں آسان ٹیبز لائیں.

ایکسل کے لئے Kutools

سونے کی ستارہ ایکس این ایم ایکس ایکس حیرت انگیز! 5 منٹ میں اپنی پیداوری میں اضافہ کریں. کسی بھی خاص مہارت کی ضرورت نہیں، ہر روز دو گھنٹوں کو بچاؤ!

سونے کی ستارہ ایکس این ایم ایکس ایکس 300 ایکسل کے لئے نئی خصوصیات، ایکسل آسان اور طاقتور بنائیں:

  • ڈیٹا کھونے کے بغیر سیل / قطار / کالم ضم
  • ایک سے زیادہ شیٹ اور ورک بک بک کو یکجا اور مضبوط.
  • رینجز کا موازنہ کریں، ایک سے زیادہ رینج کاپی کریں، متن میں تاریخ، یونٹ اور کرنسی تبادلوں میں تبدیل کریں.
  • رنگوں کی طرف سے شمار، پیجنگ Subtotals، اعلی درجے کی ترتیب اور سپر فلٹر،
  • مزید منتخب کریں / داخل / حذف / متن / شکل / لنک / تبصرہ / ورک بک بک / ورکشاپ شیٹ ...

ایکسل کے لئے کوٹول کی سکرین شاٹ

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