मुख्य सामग्री पर जाएं

एक्सेल में टिप्पणियों के भीतर टेक्स्ट को कैसे ढूंढें और बदलें?

लेखक: तकनीकी सहायता अंतिम संशोधित: 2013-06-27

जैसा कि हम जानते हैं, एक्सेल में एक ढूँढें और बदलें फ़ंक्शन है, और इस फ़ंक्शन के साथ, हम कोशिकाओं में सामग्री को तुरंत ढूंढ और बदल सकते हैं। लेकिन क्या हम एक्सेल में टिप्पणियों में सामग्री ढूंढ और बदल सकते हैं?

टिप्पणियों में टेक्स्ट ढूंढने और बदलने के लिए VBA कोड का उपयोग करना

टिप्पणियों में टेक्स्ट को जल्दी और आसानी से ढूंढने और बदलने के लिए


तीर नीला दायां बुलबुला टिप्पणियों में टेक्स्ट ढूंढने और बदलने के लिए VBA कोड का उपयोग करना

एक्सेल में, ऐसा लगता है कि वीबीए कोड का उपयोग करने के अलावा इस समस्या को हल करने का कोई अन्य तरीका नहीं है, आप सभी टिप्पणियों में टेक्स्ट ढूंढने और बदलने के लिए निम्नलिखित वीबीए कोड का उपयोग कर सकते हैं। उदाहरण के लिए, मैं एक्सेल में सभी टिप्पणियों में 2011 को 2012 से बदल दूंगा।

1। क्लिक करें डेवलपर >Visual Basic के, एक नया अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो प्रदर्शित होगी, क्लिक करें सम्मिलित करें > मॉड्यूल और फिर मॉड्यूल में निम्नलिखित VBA कोड इनपुट करें:

वीबीए: एक्सेल में सभी टिप्पणियों में टेक्स्ट ढूंढें और बदलें।

उप प्रतिस्थापन टिप्पणियाँ()
टिप्पणी के रूप में मंद सीएमटी
डिम वर्कशीट के रूप में काम करता है
स्ट्रिंग के रूप में मंद sFind
स्ट्रिंग के रूप में मंद sReplace
स्ट्रिंग के रूप में मंद एस.सी.एम.टी
एसफाइंड = "2011"
sReplace = "2012"
ActiveWorkbook.Workशीट में प्रत्येक सप्ताह के लिए
wks.Comments में प्रत्येक सीएमटी के लिए
एससीएमटी = सीएमटी.पाठ
यदि InStr(sCmt, sFind) <> 0 तो
एससीएमटी = एप्लीकेशन.वर्कशीटफंक्शन। _
स्थानापन्न(sCmt, sFind, sReplace)
cmt.पाठ पाठ:=sCmt
अगर अंत
अगला
अगला
सेट वक्स = कुछ भी नहीं
सेट सीएमटी = कुछ नहीं
अंत उप

नोट: उपरोक्त कोड में, आप सेट कर सकते हैं एस खोजें और sबदलें आप जो खोज रहे हैं और जिसे आप किसके साथ बदलना चाहते हैं, उसके लिए चर।

2। तब दबायें डीपीसी-प्रतिस्थापन-टिप्पणी-1 कोड चलाने के लिए बटन, और सभी टिप्पणियों में सभी 2011 को संपूर्ण कार्यपुस्तिका में 2012 से बदल दिया जाएगा।


तीर नीला दायां बुलबुला टिप्पणियों में टेक्स्ट को जल्दी और आसानी से ढूंढने और बदलने के लिए एक उपयोगी उपकरण

हम सभी टिप्पणियों में टेक्स्ट को शीघ्रता से ढूंढ और प्रतिस्थापित कर सकते हैं एक्सेल के लिए कुटूलहै सेल टिप्पणी उपकरण.

एक्सेल के लिए कुटूल: 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क। अब समझे

यदि आपने एक्सेल के लिए कुटूल स्थापित किया है, तो आप एक्सेल में सभी टिप्पणियों में टेक्स्ट को आसानी से ढूंढ और बदल सकते हैं।

1। क्लिक करें कुटूल > अधिक > सेल टिप्पणी उपकरण. स्क्रीनशॉट देखें:

दस्तावेज़-प्रतिस्थापन-टिप्पणी-2

2. में सेल टिप्पणी उपकरण संवाद बकस:

  • (1.) क्लिक करें खोजें/बदलें टैब;
  • (2.) जिस दायरे में आप इस उपयोगिता को लागू करना चाहते हैं, उसका चयन कर सकते हैं सक्रिय पत्रक or सभी पत्रक;
  • (3.) वह टेक्स्ट (2011) दर्ज करें जिसे आप बदलना चाहते हैं टिप्पणियों में पाठ ढूंढें बॉक्स, और उस विशिष्ट पाठ (2012) को इनपुट करें जिसे आप उपयोग करना चाहते हैं साथ बदलें डिब्बा।

दस्तावेज़-प्रतिस्थापन-टिप्पणी-3

3। और फिर क्लिक करें बदलें बटन। सक्रिय वर्कशीट में टिप्पणियों के भीतर 2011 को 2012 से बदल दिया जाएगा। स्क्रीनशॉट देखें:

दस्तावेज़-प्रतिस्थापन-टिप्पणी-4 -2 दस्तावेज़-प्रतिस्थापन-टिप्पणी-5

नोट: यदि आपने जाँच की है सारांश दिखाएँ, आपको यह याद दिलाने के लिए एक प्रॉम्प्ट बॉक्स होगा कि कितने सेल टिप्पणियाँ बदली गई हैं।

के बारे में अधिक विस्तृत जानकारी के लिए सेल टिप्पणी उपकरण, कृपया अवश्य पधारिए सेल टिप्पणी उपकरण सुविधा विवरण.


संबंधित आलेख:

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup    मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार    कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल    सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description


ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I did it, change these 3 lines of the code above like below, Chr(10) is the key change:

If InStr(sCmt, Chr(10)) <> 0 Then

sCmt = Application.WorksheetFunction. _

Substitute(sCmt, Chr(10), sReplace)
This comment was minimized by the moderator on the site
I did it, change these 3 lines of the code above as below, Chr(10) is the key change!

If InStr(sCmt, Chr(10)) <> 0 Then

sCmt = Application.WorksheetFunction. _

Substitute(sCmt, Chr(10), sReplace)
This comment was minimized by the moderator on the site
How to replace line break in comments?
This comment was minimized by the moderator on the site
The above code turns the whole comment to bold. Normally only the title is bold in an Excel comment by default. The below code fixes the problem. Sub ReplaceComments() Dim cmt As Comment Dim wks As Worksheet Dim sFind As String Dim sReplace As String Dim lTitleLength As Long Dim sCmt As String sFind = "2011" sReplace = "2014" For Each wks In ActiveWorkbook.Worksheets For Each cmt In wks.Comments sCmt = cmt.Text If InStr(sCmt, sFind) 0 Then sCmt = Application.WorksheetFunction. _ Substitute(sCmt, sFind, sReplace) cmt.Text Text:=sCmt End If lTitleLength = InStr(cmt.Text, ":") With cmt.Shape.TextFrame .Characters(1, lTitleLength).Font.Bold = True .Characters(lTitleLength + 1, Len(cmt.Text)).Font.Bold = False End With Next Next Set wks = Nothing Set cmt = Nothing End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations