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

للحصول على إصدار Microsoft Excel 2000 من هذه المقالة، راجع
213814 .
للحصول على Microsoft Excel 98 والإصدار السابق من هذه المقالة، راجع
137016 .

ملخص

في Microsoft Excel، يمكنك استرداد البيانات من مخطط حتى عندما تكون البيانات في المصنف أو ورقة العمل الخارجي. هذا مفيد في الحالات حيث تم إنشاؤها من المخطط، أو مرتبطة بملف آخر غير متوفر أو قد تعرض للتلف بطريقة. في حالة فقدان البيانات المصدر لتخطيط، البيانات لا يزال يمكن استرداد من التخطيط نفسه، باستخدام Microsoft Visual Basic for Applications الماكرو.

مزيد من المعلومات

تقدم Microsoft أمثلة برمجية للتوضيح فقط، دون أي ضمان صريح أو ضمني. هذا يتضمن، على سبيل المثال لا الحصر، الضمانات الضمنية الخاصة بالتسويق أو الملاءمة لغرض معين. تفترض هذه المقالة أنك معتاد على لغة البرمجة التي يتم شرحها والأدوات المستخدمة لإنشاء الإجراءات وتصحيحها. يساعد مهندسو الدعم لدى Microsoft في شرح وظيفة إجراء محدد، لكنهم لن يقوموا بتعديل هذه الأمثلة لتقديم وظيفة إضافية أو إنشاء إجراءات تستوفي متطلبات محددة.


وضع نموذج الماكرو التالي البيانات المصدر للتخطيط في ورقة عمل تسمى "ChartData" في المصنف النشط، بداية في الصف الأول والعمود الأول.
  1. أدخل التعليمة البرمجية للماكرو التالي في ورقة وحدة نمطية:
    Sub GetChartValues()   Dim NumberOfRows As Integer
    Dim X As Object
    Counter = 2

    ' Calculate the number of rows of data.
    NumberOfRows = UBound(ActiveChart.SeriesCollection(1).Values)

    Worksheets("ChartData").Cells(1, 1) = "X Values"

    ' Write x-axis values to worksheet.
    With Worksheets("ChartData")
    .Range(.Cells(2, 1), _
    .Cells(NumberOfRows + 1, 1)) = _
    Application.Transpose(ActiveChart.SeriesCollection(1).XValues)
    End With

    ' Loop through all series in the chart and write their values to
    ' the worksheet.
    For Each X In ActiveChart.SeriesCollection
    Worksheets("ChartData").Cells(1, Counter) = X.Name

    With Worksheets("ChartData")
    .Range(.Cells(2, Counter), _
    .Cells(NumberOfRows + 1, Counter)) = _
    Application.Transpose(X.Values)
    End With

    Counter = Counter + 1
    Next

    End Sub

  2. إدراج ورقة عمل جديدة في المصنف الخاص بك وإعادة تسميته إلى "ChartData" (بدون علامتي الاقتباس).
  3. حدد المخطط الذي تريد استخراج قيم البيانات الأساسية.

    ملاحظة: يمكن أما تضمين المخطط في ورقة عمل أو على ورقة تخطيط منفصلة.
  4. تشغيل الماكرو جيتشارتفالويس .

    يتم وضع بيانات المخطط في ورقة "ChartData".

خطوات لربط التخطيط بالبيانات المسترجعة

لجعل المخطط تكون تفاعلية مع البيانات المسترجعة، تحتاج إلى ربط التخطيط بورقة بيانات جديدة بدلاً من الاحتفاظ بارتباطات إلى مصنف مفقود أو معطوب.
  1. حدد المخطط، وانقر فوق سلسلة للبحث عن اسم الورقة التي يرتبط بها التخطيط في المصنف معطوباً أو مفقوداً. يظهر اسم الورقة في سلسلة الصيغة في شريط الصيغة.

    ملاحظة: اسم الورقة قد يتبع اسم المصنف، وهي محاطة بأقواس مربعة مثل "[Book1]"، وتسبق علامة التعجب "!" (علامة اقتباس أحادية وتعجب أو "'!") تشير إلى بداية مرجع خلية. اسم الورقة تتضمن الأحرف بين الرمز قوس مربع مغلق "]" وعلامة تعجب (أو علامة اقتباس أحادية وتعجب). يستبعد أي علامة اقتباس أحادية إذا كان مباشرة قبل علامة التعجب، لأنه لا يمكن أن يكون علامة اقتباس أحادية الحرف الأخير في اسم ورقة.
  2. انقر نقراً مزدوجاً فوق علامة تبويب ورقة جديدة تسمى ChartData.
  3. اكتب اسم الورقة الأصلية من الخطوة 1 عبر المميزة "ChartData" واضغط ENTER. هذا الاسم يجب أن يكون نفس اسم الورقة من المصنف معطوباً أو مفقوداً.
  4. إذا لم تقم بحفظ هذا الملف باستخدام ورقة التخطيط والبيانات، احفظ الملف.
  5. في Excel 2002 أو في Excel 2003، انقر فوق ارتباط في القائمة تحرير ، ومن ثم انقر فوق تغيير المصدر.

    في Excel 2007، انقر فوق علامة التبويب البيانات ، انقر فوق تحرير الارتباطات
    في المجموعة كونينكشنز ، ثم انقر فوق
    تغيير المصدر.
  6. في المربع ملف المصدر ، حدد الارتباط لتغيير ومن ثم انقر فوق تغيير المصدر.
  7. في مربع الحوار تغيير الارتباطات ، حدد الملف الجديد مع البيانات المسترجعة والتخطيط، وثم انقر فوق موافق.
  8. إذا تلقيت رسالة الخطأ التالية
    تحتوي الصيغة على مرجع خارجي غير صالح إلى ورقة عمل.
    فمن المحتمل أن اسم الورقة الذي قمت بكتابته في الخطوة 3 غير نفس الأصل. انتقل إلى الخطوة الأولى.
  9. قد يكون مربع ملف المصدر فارغاً. يشير هذا إلى أن كافة الارتباطات تشير إلى الملف النشط بدلاً من الملف مفقود أو معطوب. انقر فوق إغلاق.
يشير المخطط الآن ويتفاعل مع البيانات المستردة في ورقة تم إعادة تسميتها في المصنف النشط.
خصائص

رقم الموضوع: 300643 - آخر مراجعة: 18‏/01‏/2017 - المراجعة: 2

تعليقات