أنت غير متصل حاليًا، وفي انتظار الإنترنت الخاص بك ليقوم بإعادة الاتصال

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

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

اضغط هنا لرابط المقالة باللغة الانجليزية300643
للحصول على إصدار Microsoft Excel 2000 من هذه المقالة، راجع 213814.
للحصول على Microsoft Excel 98 و الإصدار السابق من هذه المقالة، راجع 137016.
الموجز
في Microsoft Excel، يمكنك استرداد البيانات من مخطط حتى عندما تكون البيانات في المصنف أو ورقة عمل خارجي. وهذا مفيد في الحالات حيث التخطيط تم إنشاؤها من أو ارتباط إلى ملف آخر غير متوفر أو قد تعرض للتلف بطريقة ما. عند فقدان البيانات المصدر إلى مخطط البيانات لا يزال استرداد من المخطط نفسه، باستخدام Microsoft Visual Basic للتطبيقات الماكرو.
معلومات أخرى
تقدم 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   NextEnd Sub					
  2. إدراج ورقة عمل جديدة في المصنف الخاص بك ثم قم بإعادة تسميته إلى "ChartData" (بدون علامتي الاقتباس).
  3. حدد المخطط الذي تريد استخراج قيم البيانات الأساسية.

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

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

خطوات ارتباط في التخطيط إلى بيانات استرداده

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

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

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

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 300643 - آخر مراجعة: 01/31/2007 19:06:00 - المراجعة: 4.1

Microsoft Office Excel 2007, Microsoft Office Excel 2003, Microsoft Excel 2002 Standard Edition

  • kbmt kbdtacode kbhowto kbprogramming KB300643 KbMtar
تعليقات
"display: none; " src="https://c1.microsoft.com/c.gif?DI=4050&did=1&t=">>0&did=1&t=">