अन्य टेक्स्ट के आधार पर किसी सेल के भीतर विशिष्ट टेक्स्ट को कैसे हाइलाइट करें?
एक्सेल में, हमारे लिए किसी विशिष्ट टेक्स्ट के आधार पर सेल को हाइलाइट करना आसान हो सकता है, लेकिन, यहां, मैं सेल के भीतर एक विशिष्ट टेक्स्ट को उत्कृष्ट बनाने के लिए हाइलाइट करना चाहता हूं, लेकिन संपूर्ण सेल को नहीं। यह शायद हममें से अधिकांश के लिए परेशानी वाली बात है। इस लेख में, मैं एक्सेल में इस कार्य को हल करने के लिए कुछ ट्रिक्स के बारे में बात करूंगा।
VBA कोड के साथ एकाधिक कक्षों में एक या अधिक विशिष्ट पाठ को हाइलाइट करें
उदाहरण के लिए, मेरे पास टेक्स्ट स्ट्रिंग्स की एक श्रृंखला है, और अब, मैं विशिष्ट टेक्स्ट को हाइलाइट करना चाहता हूं "आकाश"इन कक्षों में परिणाम प्राप्त करने के लिए निम्नलिखित स्क्रीनशॉट दिखाए गए हैं:
 |
 |
 |
किसी सेल के भीतर टेक्स्ट के केवल भाग को हाइलाइट करने के लिए, निम्नलिखित VBA कोड आपकी मदद कर सकता है।
1. उन कक्षों का चयन करें जिन्हें आप विशिष्ट पाठ को हाइलाइट करना चाहते हैं, और फिर दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: सेल के भीतर टेक्स्ट के एक हिस्से को हाइलाइट करें:
Sub HighlightStrings()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x As Long
Dim m As Long
Dim y As Long
cFnd = InputBox("Enter the text string to highlight")
y = Len(cFnd)
For Each Rng In Selection
With Rng
m = UBound(Split(Rng.Value, cFnd))
If m > 0 Then
xTmp = ""
For x = 0 To m - 1
xTmp = xTmp & Split(Rng.Value, cFnd)(x)
.Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
xTmp = xTmp & cFnd
Next
End If
End With
Next Rng
Application.ScreenUpdating = True
End Sub
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स आपको उस टेक्स्ट को दर्ज करने की याद दिलाने के लिए पॉप अप होगा जिसे आप केवल हाइलाइट करना चाहते हैं, स्क्रीनशॉट देखें:
4। और फिर क्लिक करें OK बटन, आपके द्वारा निर्दिष्ट सभी पाठ केवल कक्षों के भीतर हाइलाइट किए गए हैं, स्क्रीनशॉट देखें:
|
|
|
वीबीए कोड: टेक्स्ट स्ट्रिंग्स से एकाधिक कीवर्ड हाइलाइट करें:
Sub HighlightStrings()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x As Long
Dim m As Long
Dim y As Long
Dim xFNum As Integer
Dim xArrFnd As Variant
Dim xStr As String
cFnd = InputBox("Please enter the text, separate them by comma:")
If Len(cFnd) < 1 Then Exit Sub
xArrFnd = Split(cFnd, ",")
For Each Rng In Selection
With Rng
For xFNum = 0 To UBound(xArrFnd)
xStr = xArrFnd(xFNum)
y = Len(xStr)
m = UBound(Split(Rng.Value, xStr))
If m > 0 Then
xTmp = ""
For x = 0 To m - 1
xTmp = xTmp & Split(Rng.Value, xStr)(x)
.Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
xTmp = xTmp & xStr
Next
End If
Next xFNum
End With
Next Rng
Application.ScreenUpdating = True
End Sub
फिर, पॉप आउट बॉक्स में, कृपया वे कीवर्ड दर्ज करें जिन्हें आप हाइलाइट करना चाहते हैं, (शब्दों को अल्पविराम से अलग करें), स्क्रीनशॉट देखें:
और फिर, क्लिक करें OK बटन, निर्दिष्ट शब्दों को एक ही बार में हाइलाइट कर दिया गया है, स्क्रीनशॉट देखें:
|
|
 |
नोट: उपरोक्त कोड केस संवेदी हैं।
एक अद्भुत सुविधा के साथ एकाधिक कक्षों के भीतर एक या अधिक विशिष्ट पाठ को हाइलाइट करें
यदि आप एक्सेल में कोड से परिचित नहीं हैं, तो मैं यहां एक आसान टूल पेश करूंगा - एक्सेल के लिए कुटूल, के साथ अपने कीवर्ड चिह्नित करें सुविधा, आप कक्षों के भीतर एक बार में विशिष्ट एक या अधिक कीवर्ड को हाइलाइट कर सकते हैं।
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया निम्नानुसार करें:
1। क्लिक करें कुटूल > टेक्स्ट > कीवर्ड चिह्नित करें, स्क्रीनशॉट देखें:
2. में कीवर्ड चिह्नित करें संवाद बॉक्स, कृपया निम्नलिखित कार्य करें:
- उस डेटा श्रेणी का चयन करें जिसे आप उपयोग करना चाहते हैं रेंज पाठ बॉक्स;
- उन कक्षों का चयन करें जिनमें वे कीवर्ड हैं जिन्हें आप हाइलाइट करना चाहते हैं, आप कीवर्ड मैन्युअल रूप से भी दर्ज कर सकते हैं (अल्पविराम द्वारा अलग) खोजशब्द पाठ बॉक्स
- अंत में, आपको चेक द्वारा टेक्स्ट को हाइलाइट करने के लिए एक फ़ॉन्ट रंग निर्दिष्ट करना चाहिए कीवर्ड रंग चिह्नित करें विकल्प। (कीवर्ड वाले संपूर्ण सेल को रंगने के लिए, का चयन करें सेल सामग्री रंगों को चिह्नित करें विकल्प)
3। तब दबायें Ok बटन, सभी निर्दिष्ट पाठ नीचे दिखाए गए स्क्रीनशॉट के अनुसार हाइलाइट किए गए हैं:
नोट: यह सुविधा केस सेंसिटिव नहीं है, यदि आप केस सेंसिटिव के साथ टेक्स्ट को हाइलाइट करना चाहते हैं, तो कृपया जांच लें मैच केस में कीवर्ड चिह्नित करें संवाद बॉक्स।
वीबीए कोड के साथ अन्य टेक्स्ट के आधार पर सेल के भीतर विशिष्ट टेक्स्ट को हाइलाइट करें
यहां एक और स्थिति है, मेरे पास दो कॉलम हैं जिनमें पहले कॉलम में टेक्स्ट स्ट्रिंग्स हैं और दूसरे कॉलम में विशिष्ट टेक्स्ट है, अब, मुझे प्रत्येक के लिए दूसरे कॉलम में विशिष्ट टेक्स्ट के आधार पर पहले कॉलम में संबंधित टेक्स्ट को हाइलाइट करने की आवश्यकता है पंक्ति।
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: अन्य टेक्स्ट के आधार पर सेल के भीतर टेक्स्ट के एक हिस्से को हाइलाइट करें:
Sub highlight()
'Updateby Extendoffice
Dim xStr As String
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xChar As String
Dim I As Long
Dim J As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "not support multiple columns"
GoTo LInput
End If
If xRg.Columns.Count <> 2 Then
MsgBox "the selected range can only contain two columns "
GoTo LInput
End If
For I = 0 To xRg.Rows.Count - 1
xStr = xRg.Range("B1").Offset(I, 0).Value
With xRg.Range("A1").Offset(I, 0)
.Font.ColorIndex = 1
For J = 1 To Len(.Text)
If Mid(.Text, J, Len(xStr)) = xStr Then .Characters(J, Len(xStr)).Font.ColorIndex = 3
Next
End With
Next I
End Sub
3. - कोड पेस्ट करने के बाद प्रेस करें F5 इसे चलाने के लिए कुंजी, एक प्रॉम्प्ट बॉक्स आपको डेटा रेंज का चयन करने की याद दिलाने के लिए पॉप आउट होगा जिसमें टेक्स्ट स्ट्रिंग और विशिष्ट टेक्स्ट दोनों शामिल हैं जिन्हें आप हाइलाइट करना चाहते हैं और जिसके आधार पर स्क्रीनशॉट देखें:
4। और फिर क्लिक करें OK बटन, दूसरे कॉलम में विशिष्ट पाठ के आधार पर पहले कॉलम में सभी संबंधित पाठ को निम्नलिखित स्क्रीनशॉट के अनुसार लाल रंग में रंग दिया गया है:
अधिक संबंधित लेख:
- एक्सेल में दो कॉलमों को जोड़ने पर बोल्ड पार्ट टेक्स्ट
- एक्सेल वर्कशीट में, सूत्रों के साथ दो सेल मानों को संयोजित करने के बाद, आप पाएंगे कि यह संयुक्त फॉर्मूला सेल में टेक्स्ट के हिस्से को बोल्ड नहीं करेगा। यह कभी-कभी कष्टप्रद हो सकता है, एक्सेल में दो कॉलम जोड़ते समय आप टेक्स्ट के भाग को बोल्ड कैसे कर सकते हैं?
- सेल कॉलम को जोड़ें और एक्सेल में टेक्स्ट का रंग रखें
- जैसा कि हम सभी जानते हैं, सेल कॉलम को एक कॉलम में संयोजित या संयोजित करते समय, सेल फ़ॉर्मेटिंग (जैसे टेक्स्ट फ़ॉन्ट रंग, संख्या फ़ॉर्मेटिंग, आदि) खो जाएगी। इस लेख में, मैं सेल कॉलम को एक में संयोजित करने और एक्सेल में टेक्स्ट का रंग यथासंभव आसानी से बनाए रखने के लिए कुछ तरकीबें पेश करूंगा।
- किसी अन्य कॉलम में मानों के आधार पर विशिष्ट पाठ प्रदर्शित करें
- मान लीजिए, मेरे पास संख्याओं की एक सूची है, अब, मैं इस कॉलम संख्याओं के आधार पर किसी अन्य कॉलम में कुछ विशिष्ट पाठ प्रदर्शित करना चाहता हूं। उदाहरण के लिए, यदि सेल नंबर 1-100 के बीच है, तो मैं चाहता हूं कि पाठ "कमी" आसन्न सेल में प्रदर्शित हो, यदि संख्या 101-200 के बीच है, तो "स्थिर" टेक्स्ट प्रदर्शित हो, और यदि संख्या 200 से बड़ी हो , एक पाठ "वृद्धि" दिखाए गए स्क्रीनशॉट के अनुसार प्रदर्शित होता है। एक्सेल में इस कार्य को हल करने के लिए, इस आलेख में निम्नलिखित सूत्र आपकी सहायता कर सकते हैं।
- एक्सेल में टेक्स्ट और संख्याओं के साथ योग कक्ष
- उदाहरण के लिए, मेरे पास संख्यात्मक और पाठ्य स्ट्रिंग वाले मानों की एक सूची है, अब, मैं केवल उसी पाठ के आधार पर संख्याओं का योग करना चाहता हूं, निम्नलिखित स्क्रीनशॉट को देखें। आम तौर पर, आप सूची में मानों को सीधे टेक्स्ट स्ट्रिंग के साथ नहीं जोड़ सकते हैं, यहां, मैं आपको इस कार्य से निपटने के लिए कुछ सूत्र पेश करूंगा।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
