كيفية استخراج البيانات من الرسم البياني أو المخطط في Excel؟

تُستخدم الرسوم البيانية في Excel على نطاق واسع لتصور البيانات والاتجاهات بشكل أكثر فعالية. ومع ذلك، قد توجد حالات يكون لديك فيها فقط رسم بياني دون الوصول إلى بياناته الأصلية، كما هو موضح في المثال أدناه. في مثل هذه الحالات، يمكن أن يكون استخراج البيانات من الرسم البياني أمرًا ضروريًا. يوفر هذا البرنامج التعليمي دليلًا خطوة بخطوة لاسترداد البيانات من رسم بياني أو مخطط في Excel باستخدام كود VBA.

استخراج البيانات من الرسم البياني باستخدام VBA

  استخراج البيانات من الرسم البياني باستخدام VBA

1. تحتاج إلى إنشاء ورقة عمل جديدة وإعادة تسميتها باسم "ChartData". انظر إلى لقطة الشاشة:

2. حدد الرسم البياني الذي تريد استخراج البيانات منه. اضغط على مفتاحي "Alt" + "F11" معًا لفتح نافذة "Microsoft Visual Basic for Applications".

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. انظر إلى لقطة الشاشة:

يمكنك بعد ذلك رؤية البيانات المستخرجة في ورقة العمل "ChartData".

نصيحة:

1. يمكنك تنسيق الخلايا حسب الحاجة.

2. بشكل افتراضي، يتم استخراج بيانات المخطط المحدد بدءًا من أول خلية في ورقة العمل ChartData.