جستجو

ترفندهای کامپیوتری

حضرت علی (ع): «زَکوةُ العِلمِ نَشرُهُ؛ زکات علم نشر آن است».
وبلاگ "ترفندها" (سایت پی‌سی‌ترفند) برای عمل به این حدیث شریف و با هدف ارتقاء دانش و مهارت‌های مرتبط با رایانه در ۳۰ مهرماه ۱۳۹۱ ایجاد شده است. به امید آنکه مفید واقع شود.
🔵 کانال پی‌سی‌ترفند در تلگرام:
telegram.me/pctarfand_ir

خلاصه آمار

تبليغات

پربحث ترين ها

۱

استخراج داده‌های نمودارهای اکسل

اکسل

استخراج داده‌های نمودارهای اکسل

قبلا در مطلبی در مورد روش‌های استخراج داده‌ها از نمودارهای موجود در کتاب‌ها و مقالات توضیح داده شد. اما گاهی از اوقات ممکن است بخواهید داده‌های یک نمودار اکسل را استخراج کنید. در واقع یک نمودار دارید که بوسیله اکسل رسم شده است، اما پس از کپی آن درون فایل ورد به داده‌های اصلی آن دسترسی ندارید. در این حالت یا باید یک تصویر از نمودار تهیه کنید و بوسیله روش قبل داده‌ها را استخراج کنید یا اینکه با استفاده از روشی که در ادامه گفته شده است اینکار را انجام دهید. در ادامه مطلب با پی‌سی‌ترفند همراه باشید.

روشی که می‌خواهیم از آن استفاده کنیم کدنویسی ماکرو در اکسل است. بدین منظور مراحل زیر را طی کنید:

۱- یک شیت جدید ایجاد کنید و نام آن را به ChartData تغییر دهید. مشابه تصویر زیر:

۲- سپس نمودار مورد نظر را انتخاب کنید و برای ساخت ماکرو کلیدهای Alt + F11 را فشار دهید تا پنجره Microsoft Visual Basic ظاهر شود. در این پنجره از تب Insert گزینه Module را انتخاب نمائید.

۳- در پنجره جدید باز شده کدهای زیر را کپی کنید.

Sub GetChartValues()
'pctarfand.ir & tarfandha.blog.ir'
    Dim xNum As Integer
    Dim xSeries As Object
    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

۴- سپس دکمه  یا کلید F5 را فشار دهید تا کد اجرا شود.

در پایان خواهید دید که داده‌ها در شیت ChartData استخراج شده‌اند.


 
نکته ۱: حتما باید برای اجرای درست کد، نمودار را انتخاب کرده باشید وگرنه با پیغام خطا مواجه خواهید شد.
نکته ۲: شما می‌توانید فرمت داده‌ها را مطابق نیاز خود تغییر دهید.

 

منابع:

www.extendoffice.com
support.microsoft.com

 

عضویت در خبرنامه:

نظرات (۱)

ارسال نظر

قبل از ارسال نظر به نکات زیر توجه کنید:

۱- با توجه با اینکه نظرات خصوصی شما امکان نمایش در سایت را ندارد، بنابراین هنگام ارسال نظر، گزینه "" را انتخاب نکنید. چون تنها راه پاسخگویی به آن از طریق ایمیل شما است که با توجه به مشغله کاری فرصت ارسال پاسخ از طریق ایمیل وجود ندارد.

۲- قبل از مطرح کردن سوالتان، مطلب فوق را با دقت مطالعه کنید. اگر پاسخ سوالتان را پیدا نکردید در سایت جستجو کنید، ممکن است در مطلب دیگر پاسخ سوالتان را پیدا کنید.

۳- تنها به سوالاتی پاسخ داده می‌شود که از نحوه حل آن‌ها اطلاع داشته باشم.

۴- نظراتی با مضمون زیر، صرفا تایید و نمایش داده می‌شود و به آن‌ها پاسخی داده نمی‌شود.

الف) در مورد پاسخ سوال شما اطلاعی نداشته باشم،

ب) پاسخ سوال شما در مطلب فوق وجود داشته باشد.

ارسال نظر آزاد است، اما اگر قبلا در بیان ثبت نام کرده اید می توانید ابتدا وارد شوید.
شما میتوانید از این تگهای html استفاده کنید:
<b> یا <strong>، <em> یا <i>، <u>، <strike> یا <s>، <sup>، <sub>، <blockquote>، <code>، <pre>، <hr>، <br>، <p>، <a href="" title="">، <span style="">، <div align="">
تجدید کد امنیتی