Excel में चार्ट या ग्राफ़ से डेटा कैसे निकालें?
वीबीए के साथ चार्ट से डेटा निकालें
वीबीए के साथ चार्ट से डेटा निकालें
1. आपको एक नई वर्कशीट बनानी होगी और उसका नाम बदलना होगा चार्टडेटा. स्क्रीनशॉट देखें:
2. फिर उस चार्ट का चयन करें जिससे आप डेटा निकालना चाहते हैं और दबाएँ ऑल्ट + F11 एक साथ चाबियाँ, और ए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की चबूतरे.
3। क्लिक करें सम्मिलित करें > मॉड्यूल, फिर पॉपिंग पर VBA कोड के नीचे पेस्ट करें मॉड्यूल खिड़की.
वीबीए: चार्ट से डेटा निकालें।
Sub GetChartValues()
'Updateby20220510
Dim xNum As Integer
Dim xSeries As Object
On Error Resume Next
xCount = 2
xNum = UBound(Application.ActiveChart.SeriesCollection(1).Values)
Application.Worksheets("ChartData").Cells(1, 1) = "X Values"
With Application.Worksheets("ChartData")
.Range(.Cells(2, 1), _
.Cells(xNum + 1, 1)) = _
Application.Transpose(ActiveChart.SeriesCollection(1).XValues)
End With
For Each xSeries In Application.ActiveChart.SeriesCollection
Application.Worksheets("ChartData").Cells(1, xCount) = xSeries.Name
With Application.Worksheets("ChartData")
.Range(.Cells(2, xCount), _
.Cells(xNum + 1, xCount)) = _
Application.WorksheetFunction.Transpose(xSeries.Values)
End With
xCount = xCount + 1
Next
End Sub
4। तब दबायें रन VBA चलाने के लिए बटन. स्क्रीनशॉट देखें:
फिर आप देख सकते हैं कि डेटा निकाला गया है चार्टडेटा चादर।
सुझाव:
1. आप अपनी आवश्यकतानुसार सेलों को प्रारूपित कर सकते हैं।
2. चयनित चार्ट का डेटा डिफ़ॉल्ट रूप से चार्टडेटा शीट के पहले सेल में निकाला जाता है।
सुझाव: यदि आप आमतौर पर एक्सेल में जटिल चार्ट का उपयोग करते हैं, जो परेशानी भरा होगा क्योंकि आप उन्हें बहुत समय में बनाते हैं, तो यहां देखें ऑटो टेक्स्ट का उपकरण एक्सेल के लिए कुटूल, आपको बस पहली बार चार्ट बनाने की आवश्यकता है, फिर ऑटोटेक्स्ट फलक में चार्ट जोड़ें, फिर, आप उन्हें कहीं भी, कभी भी पुन: उपयोग कर सकते हैं, आपको केवल अपनी वास्तविक आवश्यकता से मेल खाने के लिए संदर्भों को बदलना होगा। इसे अभी मुफ्त डाउनलोड करने के लिए क्लिक करें. |
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!