एक्सेल में सेलों में किसी विशेष शब्द को कैसे रंग दें या हाइलाइट करें?
यदि एक सेल में कई शब्द हैं, तो आप केवल इस सेल में एक निश्चित शब्द को कैसे हाइलाइट कर सकते हैं? और इस निश्चित शब्द को एकाधिक कक्षों में हाइलाइट करने के बारे में आपका क्या ख़याल है? यह आलेख इसे प्राप्त करने की एक विधि प्रदान करेगा.
VBA कोड के साथ एक सेल/एकाधिक सेल में निश्चित शब्द को रंगें
VBA कोड के साथ एक सेल/एकाधिक सेल में निश्चित शब्द को रंगें
निम्नलिखित वीबीए कोड आपको चयन में विशिष्ट शब्द को उजागर करने में मदद कर सकता है। कृपया निम्नानुसार करें.
1. उस श्रेणी का चयन करें जिसमें वे सेल हैं जिनके अंदर आप कुछ शब्द को हाइलाइट करना चाहते हैं। फिर दबाएँ ऑल्ट + F11 खोलने के लिए एक साथ कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2. उद्घाटन में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल. फिर VBA कोड को कॉपी करके कोड विंडो में पेस्ट करें।
वीबीए कोड: एक्सेल में कोशिकाओं में कुछ शब्द को रंग दें
Sub HighlightStrings()
Dim xHStr As String, xStrTmp As String
Dim xHStrLen As Long, xCount As Long, I As Long
Dim xCell As Range
Dim xArr
On Error Resume Next
xHStr = Application.InputBox("What is the string to highlight:", "KuTools For Excel", , , , , , 2)
If TypeName(xHStr) <> "String" Then Exit Sub
Application.ScreenUpdating = False
xHStrLen = Len(xHStr)
For Each xCell In Selection
xArr = Split(xCell.Value, xHStr)
xCount = UBound(xArr)
If xCount > 0 Then
xStrTmp = ""
For I = 0 To xCount - 1
xStrTmp = xStrTmp & xArr(I)
xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3
xStrTmp = xStrTmp & xHStr
Next
End If
Next
Application.ScreenUpdating = True
End Sub
3। दबाएं F5 कोड चलाने की कुंजी. और इसमें एक्सेल के लिए कुटूल संवाद बॉक्स में, कृपया वह निश्चित शब्द दर्ज करें जिसे आप कक्षों में हाइलाइट करेंगे, और फिर क्लिक करें OK बटन। स्क्रीनशॉट देखें:
फिर आप देख सकते हैं कि आपके द्वारा निर्दिष्ट सभी शब्द चयनित कक्षों में लाल रंग में रंगे हुए हैं, जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है।
संबंधित आलेख:
- यदि Excel में किसी अन्य कॉलम में मान मौजूद है या सेल के बराबर है तो सेल को हाइलाइट कैसे करें?
- एक्सेल में समानता के लिए दो स्ट्रिंग्स की तुलना कैसे करें या अंतर को कैसे उजागर करें?
- एक्सेल में शीट टैब नाम को सेल वैल्यू के बराबर कैसे बनाएं?
- Excel में सेल रंग के आधार पर मान कैसे बदलें?
- एक्सेल में सेल पर क्लिक या चयन होने पर सेल का रंग कैसे बदलें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!