एक्सेल में चार्ट शीर्षकों में टेक्स्ट कैसे खोजें और बदलें?
एक्सेल में चार्ट हमारे लिए बहुत उपयोगी होते हैं, और हम अक्सर उनकी पहचान के लिए उन्हें कुछ शीर्षक देते हैं। लेकिन क्या आपने एकाधिक चार्ट के भीतर चार्ट शीर्षकों में टेक्स्ट मान ढूंढने और बदलने का प्रयास किया है? आज, मैं इस बारे में बात करूंगा कि एकाधिक चार्ट टाइल्स में एक विशिष्ट टेक्स्ट कैसे ढूंढें और उन्हें एक्सेल में अन्य मान से कैसे बदलें।
Excel में चार्ट शीर्षकों में टेक्स्ट ढूंढें और उसे VBA कोड से बदलें
Excel में चार्ट शीर्षकों में टेक्स्ट ढूंढें और उसे VBA कोड से बदलें
मान लीजिए कि आपके पास एक वर्कशीट है जिसमें दिखाए गए स्क्रीनशॉट के अनुसार चार्ट शामिल हैं, और आप केवल सभी चार्ट शीर्षकों के भीतर जनवरी से फरवरी तक के टेक्स्ट को बदलना चाहते हैं। बेशक, आप उन्हें एक-एक करके मैन्युअल रूप से बदल सकते हैं, लेकिन एकाधिक चार्ट होने पर इसमें समय लगेगा। तो यहां, निम्नलिखित VBA कोड आपको इस कार्य से निपटने में मदद कर सकता है।
1. अपनी वर्कशीट को सक्रिय करें जिसमें वे चार्ट हैं जिन्हें आप ढूंढना चाहते हैं और उनके शीर्षकों में बदलना चाहते हैं।
2. दबाए रखें ALT + F11 कुंजियाँ, और यह खुल जाती है एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.
3। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.
वीबीए कोड: सक्रिय वर्कशीट के भीतर चार्ट शीर्षकों में टेक्स्ट ढूंढें और बदलें
Sub ChartLabelReplace()
'Update 20140603
Dim xWs As Worksheet
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
For Each ch In xWs.ChartObjects
If ch.Chart.HasTitle Then
ch.Chart.ChartTitle.Text = VBA.Replace(ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1)
End If
Next
End Sub
4। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स आपको अपना पुराना टेक्स्ट दर्ज करने की याद दिलाने के लिए पॉप अप होगा जिसे आप बदलना चाहते हैं, स्क्रीनशॉट देखें:
5। और फिर क्लिक करें OK बटन, और एक अन्य प्रॉम्प्ट बॉक्स पॉप अप होता है, आपको अपना नया टेक्स्ट मान टाइप करना होगा जिसे आप पुराने से बदलना चाहते हैं, स्क्रीनशॉट देखें:
6. क्लिक करते जाइये OK प्रॉम्प्ट बॉक्स को बंद करने के लिए, और आपके पुराने टेक्स्ट को वर्तमान वर्कशीट में एक समय में समाचार द्वारा प्रतिस्थापित कर दिया गया है जैसा कि स्क्रीनशॉट में दिखाया गया है:
नोट: यदि आपको किसी कार्यपुस्तिका में सभी कार्यपत्रकों में चार्ट शीर्षकों के टेक्स्ट मान को ढूंढने और बदलने की आवश्यकता है, तो आपको निम्नलिखित वीबीए कोड लागू करना चाहिए: (प्रक्रिया उपरोक्त के समान है)
वीबीए कोड: सभी कार्यपत्रकों में चार्ट शीर्षकों में टेक्स्ट ढूंढें और बदलें
Sub ChartLabelReplaceAllWorksheet()
'Update 20140603
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
For Each sh In Worksheets
For Each ch In sh.ChartObjects
If ch.Chart.HasTitle Then
ch.Chart.ChartTitle.Text = VBA.Replace(ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1)
End If
Next
Next
End Sub
संबंधित आलेख:
एक्सेल में टिप्पणियों के भीतर टेक्स्ट को कैसे ढूंढें और बदलें?
एक्सेल के एकाधिक टेक्स्ट बॉक्स में विशिष्ट टेक्स्ट को कैसे ढूंढें और बदलें?
Excel में एक साथ एकाधिक हाइपरलिंक पथ कैसे बदलें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!