टेक्स्ट बॉक्स में विशिष्ट टेक्स्ट को कैसे ढूंढें और बदलें?
वर्कशीट में सेल सामग्री या सूत्रों को जल्दी और आसानी से ढूंढने और बदलने के लिए ढूँढें और बदलें हमारे लिए एक उपयोगी उपकरण है। लेकिन अब, मेरी वर्कशीट में कई टेक्स्ट बॉक्स हैं, और मैं विशिष्ट टेक्स्ट ढूंढना चाहता हूं और इसे केवल इन टेक्स्ट बॉक्स में अन्य मान से बदलना चाहता हूं। क्या आपके पास इस समस्या से निपटने का कोई अच्छा तरीका है?
एकाधिक टेक्स्ट बॉक्स में विशिष्ट टेक्स्ट ढूंढें और बदलें
एकाधिक टेक्स्ट बॉक्स में विशिष्ट टेक्स्ट ढूंढें और बदलें
आप जिस टेक्स्ट की आवश्यकता है उसे मैन्युअल रूप से एक-एक करके ढूंढ और बदल सकते हैं, लेकिन यदि कई टेक्स्ट बॉक्स हैं, तो यह उबाऊ और थका देने वाला होगा। तो निम्नलिखित VBA कोड आपको इसे तुरंत पूरा करने में मदद कर सकता है।
1. अपनी वर्कशीट सक्रिय करें, और दबाए रखें ALT + F11 कुंजी को खोलने के लिए एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.
वीबीए कोड: वर्तमान वर्कशीट के टेक्स्ट बॉक्स में विशिष्ट टेक्स्ट ढूंढें और बदलें
Sub TextBoxReplace()
'Updateby20140603
Dim xWs As Worksheet
Dim shp As Shape
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace with:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
On Error Resume Next
For Each shp In xWs.Shapes
xValue = shp.TextFrame.Characters.Text
shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
End Sub
3. फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स आपको अपना पुराना टेक्स्ट दर्ज करने की याद दिलाने के लिए पॉप अप होगा जिसे आप बदलना चाहते हैं। स्क्रीनशॉट देखें:
4. क्लिक करते जाइये OK, और इस प्रॉम्प्ट बॉक्स में, वह नया टेक्स्ट मान टाइप करें जो आप चाहते हैं, स्क्रीनशॉट देखें:
5। और फिर क्लिक करें OK बटन, पुराने मानों को आपके द्वारा वर्तमान वर्कशीट में दर्ज किए गए नए मानों से बदल दिया गया है। स्क्रीनशॉट देखें:
संबंधित आलेख:
एक्सेल में चार्ट शीर्षकों में टेक्स्ट कैसे खोजें और बदलें?
एक्सेल में टिप्पणियों के भीतर टेक्स्ट को कैसे ढूंढें और बदलें?
Excel में एक साथ एकाधिक हाइपरलिंक पथ कैसे बदलें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!