كيفية استخراج البيانات من الرسم البياني أو الرسم البياني في Excel؟
استخراج البيانات من الرسم البياني باستخدام VBA
استخراج البيانات من الرسم البياني باستخدام VBA
1. تحتاج إلى إنشاء ورقة عمل جديدة وإعادة تسميتها باسم بيانات المخطط. انظر لقطة الشاشة:
2. ثم حدد الرسم البياني الذي تريد استخراج البيانات منه واضغط ALT + 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. يتم استخراج بيانات الرسم البياني المحدد إلى الخلية الأولى من ورقة ChartData بشكل افتراضي.
تلميح: إذا كنت تستخدم عادةً المخططات المعقدة في Excel ، فسيكون ذلك مزعجًا لأنك تنشئها في الوقت المناسب ، هنا مع النص السيارات أداة كوتولس ل إكسيل، تحتاج فقط إلى إنشاء المخططات في المرة الأولى ، ثم إضافة المخططات في جزء النص التلقائي ، وبعد ذلك ، يمكنك إعادة استخدامها في أي مكان في أي وقت ، ما عليك سوى تغيير المراجع لتتناسب مع احتياجاتك الحقيقية. انقر للتنزيل المجاني الآن. |
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!