Excel में किसी श्रेणी या संपूर्ण वर्कशीट में सभी रेखांकित पाठ कैसे खोजें?
मान लीजिए कि आपके पास वर्कशीट में डेटा की एक श्रृंखला है, और कुछ डेटा अंडरलाइन के साथ है, और अब आप इन डेटा को अंडरलाइन के साथ ढूंढना चाहते हैं, तो आप उन्हें जल्दी से कैसे ढूंढ सकते हैं? यहां मैं आपके लिए एक्सेल में किसी श्रेणी या संपूर्ण वर्कशीट में रेखांकित पाठों को शीघ्रता से ढूंढने के लिए कुछ तरकीबें पेश कर रहा हूं।
वीबीए के साथ वर्कशीट में सभी रेखांकित पाठ ढूंढें
एक्सेल के लिए कुटूल के साथ किसी श्रेणी या वर्कशीट में सभी रेखांकित पाठ ढूंढें
वीबीए के साथ वर्कशीट में सभी रेखांकित पाठ ढूंढें
एक्सेल में, आप रेखांकित पाठों को ढूंढने के लिए गो टू स्पेशल फ़ंक्शन का उपयोग नहीं कर सकते हैं, इसलिए मैं वर्कशीट में सभी रेखांकित पाठों को ढूंढने में आपकी सहायता के लिए एक वीबीए कोड पेश करता हूं।
1। दबाएँ ऑल्ट + F11 खोलने के लिए चाबी अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, और क्लिक करें सम्मिलित करें > मॉड्यूल.
2. पॉपिंग में मॉड्यूल विंडो, नीचे VBA कोड चिपकाएँ।
वीबीए: वर्कशीट में सभी रेखांकित पाठ ढूंढें।
Sub SearchForUnderline()
'Updateby20150910
Dim Rg As Range, Rg1 As Range
Dim I As Long
Dim xAddress As String, xAddress1 As String, xAddress2 As String
Dim Result As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set Rg = Application.InputBox("Please select a range:", "Kutools for Excel", xAddress, , , , , 8)
If Rg Is Nothing Then Exit Sub
Set Rg = Application.Intersect(Rg, Application.ActiveSheet.UsedRange)
If Rg Is Nothing Then Exit Sub
Set Rg = Rg.SpecialCells(xlCellTypeConstants)
If Rg Is Nothing Then Exit Sub
For Each Rg1 In Rg
For I = 1 To Len(Rg1)
If Rg1.Characters(I, 1).Font.Underline = xlUnderlineStyleSingle Then
If xAddress1 = "" Then
xAddress1 = Rg1.Address
Else
xAddress1 = xAddress1 & ", " & Rg1.Address
End If
Exit For
End If
Next
For I = 1 To Len(Rg1)
If Rg1.Characters(I, 1).Font.Underline = xlUnderlineStyleDouble Then
If xAddress2 = "" Then
xAddress2 = Rg1.Address
Else
xAddress2 = xAddress2 & ", " & Rg1.Address
End If
Exit For
End If
Next
Next
If xAddress1 <> "" Then Result = "Single underline address:" & vbCr & xAddress1 & vbCr & vbCr
If xAddress2 <> "" Then Result = Result & "Double underline address:" & vbCr & xAddress2
If Result <> "" Then MsgBox Result
End Sub
3। क्लिक करें रन बटन या प्रेस F5 चाबी। और रेखांकित पाठ खोजने के लिए एक श्रेणी का चयन करने के लिए एक संवाद पॉप आउट होता है।
4। क्लिक करें OK, फिर एक संवाद आपको बताएगा कि कौन से कक्ष एकल रेखांकित पाठ हैं, और कौन से दोहरे रेखांकित पाठ हैं।
यदि आप किसी विशिष्ट श्रेणी में केवल एक प्रकार के रेखांकित पाठ का पता लगाना चाहते हैं, तो यह वीबीए कोड आपकी मदद नहीं कर सकता है, लेकिन इस मामले में आप इस कार्य को हल करने के लिए नीचे दिए गए उपयोगी टूल का उपयोग कर सकते हैं।
एक्सेल के लिए कुटूल के साथ किसी श्रेणी या वर्कशीट में सभी रेखांकित पाठ ढूंढें
यदि आपके पास एक्सेल के लिए कुटूल स्थापित, आप इसे लागू कर सकते हैं फ़ॉर्मेट वाले सेल चुनें संपूर्ण कार्यपत्रक की श्रेणी में रेखांकित पाठों को शीघ्रता से ढूंढने की उपयोगिता।
एक्सेल के लिए कुटूल, से अधिक के साथ 300 सुविधाजनक कार्य, आपके कार्यों को और अधिक आसान बनाते हैं। |
बाद मुफ़्त इंस्टालेशन एक्सेल के लिए कुटूल, कृपया नीचे दिए अनुसार कार्य करें:
1. एक रिक्त सेल का चयन करें, और फिर उसमें एक डेटा टाइप करें, उदाहरण के लिए, A1, और क्लिक करें होम > रेखांकित करना, और जिस प्रकार की अंडरलाइन की आपको आवश्यकता है उसका चयन करें। स्क्रीनशॉट देखें:
2. फिर उस श्रेणी का चयन करें जिसे आप विशिष्ट रेखांकित पाठों का पता लगाना चाहते हैं, और क्लिक करें कुटूल > चुनते हैं > फ़ॉर्मेट वाले सेल चुनें. स्क्रीनशॉट देखें:
3. और में फ़ॉर्मेट वाले सेल चुनें संवाद, क्लिक करें सेल से फ़ॉर्मेट चुनें उस सेल का चयन करने के लिए जिसे आप चरण 1 में अंडरलाइन के साथ प्रारूपित करते हैं। स्क्रीनशॉट देखें:
4। क्लिक करें OK, और इसमें फ़ॉर्मेट वाले सेल चुनें संवाद, जांचें रेखांकित करना केवल। स्क्रीनशॉट देखें:
5। क्लिक करें Ok, फिर एक संवाद आपको यह याद दिलाने के लिए पॉप अप होता है कि कितने रेखांकित पाठ चुने गए हैं, क्लिक करें हाँ इसे बंद करने के लिए
अब सभी रेखांकित पाठ चयनित हैं।
सुझाव:
1. यदि आप संपूर्ण वर्कशीट में सभी रेखांकित पाठों का पता लगाना चाहते हैं, तो संपूर्ण वर्कशीट का चयन करने के लिए वर्कशीट के बाएं कोने पर क्लिक करें, और फिर लागू करें फ़ॉर्मेट वाले सेल चुनें उपयोगिता।
2। चेक रिक्त कक्षों पर ध्यान न दें in फ़ॉर्मेट वाले सेल चुनें संवाद, यह रिक्त कक्षों को अनदेखा कर देगा भले ही रिक्त कक्षों को अंडरलाइन के साथ स्वरूपित किया गया हो।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!