कुकीज़ हमें हमारी सेवाएं देने में मदद। हमारी सेवाओं का उपयोग करके, आप कुकी के हमारे उपयोग करने के लिए सहमत हैं।
युक्ति: अन्य भाषाओं में Google-Translated आप यात्रा कर सकते हैं English इस लिंक का संस्करण
लॉग इन करें
x
or
x
x
रजिस्टर
x

or

Excel में सेल से फ़ॉन्ट रंग के आधार पर पाठ कैसे निकालना है?

यदि आपके पास Excel में प्रत्येक सेल में कुछ लाल पाठ के साथ एक डेटा सूची है, तो नीचे दी गई स्क्रीनशॉट के रूप में दिखाया गया है, और क्या आपको पता है कि केवल लाल पाठ निकालने के लिए कैसे? अब मैं एक्सेल में एक सेल से फ़ॉन्ट रंग पर आधारित पाठ को हल करने वाली पहेली को हल करने का एक त्वरित तरीका पेश करूंगा।

डॉक-निकालने-पाठ रंग-1

प्रत्येक कक्ष से फ़ॉन्ट रंग पर आधारित पाठ निकालें

एक्सेल / ऑफिस के लिए अनुशंसित उत्पादकता उपकरण

कार्यालय टैब: क्रोम, फ़ायरफ़ॉक्स और सफारी जैसे टैबलेट संपादन को एक्सेल और अन्य ऑफिस सॉफ़्टवेयर में लाएं।30-दिन असीमित नि: शुल्क परीक्षण

एक्सेल के लिए कुटूल: 300 शक्तिशाली विशेषताएं Excel को बहुत आसान बनाती हैं और तुरंत उत्पादकता में वृद्धि करती हैं।60-दिन असीमित नि: शुल्क परीक्षण


तीर नीला सही बुलबुला प्रत्येक कक्ष से फ़ॉन्ट रंग पर आधारित पाठ निकालें


Excel में, आप फ़ॉन्ट रंग के आधार पर पाठ निकालने के लिए केवल परिभाषित फ़ंक्शन का उपयोग कर सकते हैं।

1। दबाएँ ऑल्ट + F11 एप्लिकेशन विंडो के लिए Microsoft Visual Basic को खोलने के लिए एक साथ चाबियाँ

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.


संबंधित लेख:



अनुशंसित उत्पादकता उपकरण

कार्यालय टैब

गोल्ड स्टार 1 Excel और अन्य कार्यालय सॉफ़्टवेयर में आसान टैब लाएं, जैसे कि क्रोम, फ़ायरफ़ॉक्स और नए इंटरनेट एक्सप्लोरर।

एक्सेल के लिए कुटूल

गोल्ड स्टार 1 गजब का! 5 मिनट में अपनी उत्पादकता बढ़ाएं। किसी विशेष कौशल की जरूरत नहीं है, हर दिन दो घंटे बचाओ!

गोल्ड स्टार 1 एक्सेल के लिए 300 नई सुविधाएँ, Excel को बहुत आसान और शक्तिशाली बनाएं:

  • डेटा खोए बिना सेल / पंक्तियों / स्तंभों को मिलाएं
  • एकाधिक शीट्स और वर्कबुक को एकजुट और एकीकृत करें
  • सीमाओं की तुलना करें, एकाधिक श्रेणियों की प्रतिलिपि करें, टेक्स्ट, तिथि, यूनिट और मुद्रा रूपांतरण में कनवर्ट करें।
  • रंग, पेजिंग सबटॉटल, उन्नत सॉर्ट और सुपर फ़िल्टर द्वारा गिनो,
  • और चुनें / सम्मिलित करें / हटाएं / पाठ / प्रारूप / लिंक / टिप्पणी / कार्यपुस्तिकाओं / कार्यपत्रक उपकरण ...

एक्सेल के लिए कुटूल का स्क्रीन शॉट

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