انتقل إلى المحتوى الرئيسي

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

الكاتب : شمس آخر تعديل: 2022-05-10
مستند-استخراج-مخطط-بيانات-1
في Excel ، عادةً ما نستخدم الرسم البياني لإظهار البيانات والاتجاه لعرضها بشكل أكثر وضوحًا ، ولكن في بعض الأحيان ، ربما يكون المخطط نسخة ولم تكن لديك البيانات الأصلية للمخطط كما هو موضح أدناه. في هذه الحالة ، قد ترغب في استخراج البيانات من هذا المخطط. يتحدث هذا البرنامج التعليمي الآن عن استخراج البيانات من مخطط أو رسم بياني.
استخراج البيانات من الرسم البياني باستخدام VBA

السهم الأزرق الحق فقاعة استخراج البيانات من الرسم البياني باستخدام VBA

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

مستند-استخراج-مخطط-بيانات-5

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

مستند-استخراج-مخطط-بيانات-2

ثم يمكنك أن ترى البيانات المستخرجة إلى بيانات المخطط ورقة.
مستند-استخراج-مخطط-بيانات-3

تلميح:

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

مستند-استخراج-مخطط-بيانات-4

2. يتم استخراج بيانات الرسم البياني المحدد إلى الخلية الأولى من ورقة ChartData بشكل افتراضي.


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

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (18)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Amazing...
This comment was minimized by the moderator on the site
Very helpful! Thanks a lot!
This comment was minimized by the moderator on the site
giving error and tell to set block variables and object variables
This comment was minimized by the moderator on the site
Hi, I have updated the VBA, you can try it again.
This comment was minimized by the moderator on the site
i tried above & it says "Compile error: Method or Data Member not found"
This comment was minimized by the moderator on the site
mong mọi người giúp đỡ làm cách nào để lấy số liệu từ biểu đồ này với ạ!
This comment was minimized by the moderator on the site
i m getting below error while running that command.
this error comes in that command which starts from xnum = UBound(......) etc

Run-Time error '91'
object variable or with block variable not set
This comment was minimized by the moderator on the site
Hi, tarshul, you need to create a new worksheet named ChartData before you running the code, the data will be place in the new worksheet ChartData.
This comment was minimized by the moderator on the site
Hi sunny,
I already create new worksheet as u told but still getting same error.
There are no comments posted here yet
Load More
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations