چگونه می توان یک خط میانگین در نمودار اکسل اضافه کرد؟

با سلام خدمت کاربران عزیز آی تی سواد

در اکسل، شما ممکن است اغلب یک نمودار برای تجزیه و تحلیل روند داده ها ایجاد کنید. اما گاهی اوقات، شما نیاز دارید یک خط افقی ساده روی نمودار اضافه کنید که خط میانگین را در نمودار داده ها نشان دهد، به طوری که شما بتوانید مقدار متوسط داده ها را به وضوح و به راحتی ببینید. در این حالت چگونه می توانید یک خط میانگین در نمودار اکسل اضافه کنید؟

خط میانگین در نمودار اکسل با ستون کمکی :

اگر می خواهید یک خط میانگین افقی را به یک نمودار اضافه کنید، می توانید ابتدا میانگین داده ها را محاسبه کنید و سپس نمودار را ایجاد کنید. لطفا مراحل زیر را انجام دهید:
۱- میانگین داده ها را با تابع Average محاسبه کنید، به عنوان مثال در ستون میانگین C2، این فرمول را تایپ کنید: (Average($B$2:$B$8= ، و سپس این سلول را به محدوده مورد نیاز بکشید. تصویر را مشاهده کنید:

۲- و سپس این محدوده (در این مثال هر سه ستون )را انتخاب کنید و یک فرمت نمودار را که می خواهید وارد کنید را انتخاب کنید، مانند ۲-D Column زیر تب Insert. تصویر را مشاهده کنید:

۳- و یک نمودار ایجاد خواهد شد، لطفا بر روی یکی از ستون های میانگین داده ها (نوار قرمز) در نمودار کلیک کنید، راست کلیک کنید و از نوع منوی زمینه Change Series Chart Type را انتخاب کنید. تصویر را مشاهده کنید:

۴- در کادر محاوره ای Change Chart Type ، روی Combo در نوار سمت چپ کلیک کرده تا هایلایت شود، روی کادر در قسمت Average کلیک کرده، و سپس از لیست کشویی باز شده سبک نمودار خطی را انتخاب کنید. تصویر را مشاهده کنید:

۵- روی دکمه OK کلیک کنید. اکنون ، شما یک خط افقی که نشان دهنده میانگین است در نمودار خود دارید، تصویر را مشاهده کنید:

خط میانگین در نمودار اکسل با کد VBA:

فرض کنید که شما یک نمودار ستونی با داده هایتان در ورک شیت خود ایجاد کرده اید، کد VBA زیر هم می تواند به شما کمک کند که یک خط میانگین در نمودار خود وارد کنید.
۱- روی یکی از ستون های داده در نمودار خود کلیک کنید و سپس تمام ستون های داده انتخاب خواهند شد، تصویر را مشاهده کنید:

۲- کلید ALT + F11 را نگه دارید تا پنجره Microsoft Visual Basic for Applications باز می شود.
۳- روی Insert >> Module کلیک کنید و کد زیر را در پنجره Module پیست کنید.

VBA : اضافه کردن یک خط میانگین به نمودار

Sub AverageLine()
'Update 20130907
Dim ser As Series
Dim arr As Variant
Dim total As Double
Dim outArr As Variant
If VBA.TypeName(Application.Selection) <> "Series" Then Exit Sub
Set ser = Application.Selection
arr = ser.Values
total = Application.WorksheetFunction.Average(arr)
ReDim outArr(LBound(arr) To UBound(arr))
For i = LBound(outArr) To UBound(outArr)
    outArr(i) = total
Next
With ActiveChart.SeriesCollection.NewSeries
    .XValues = ser.XValues
    .Values = outArr
    .Name = "Average " & ser.Name
    .AxisGroup = ser.AxisGroup
    .MarkerStyle = xlNone
    .Border.Color = ser.Border.Color
    .ChartType = xlLine
    .Format.Line.ForeColor.ObjectThemeColor = msoThemeColorAccent6
End With
End Sub

Sub AverageLine()

'Update 20130907

Dim ser As Series

Dim arr As Variant

Dim total As Double

Dim outArr As Variant

If VBA.TypeName(Application.Selection) <> "Series" Then Exit Sub

Set ser = Application.Selection

arr = ser.Values

total = Application.WorksheetFunction.Average(arr)

ReDim outArr(LBound(arr) To UBound(arr))

For i = LBound(outArr) To UBound(outArr)

outArr(i) = total

With ActiveChart.SeriesCollection.NewSeries

.XValues = ser.XValues

.Values = outArr

.Name = "Average " & ser.Name

.AxisGroup = ser.AxisGroup

.MarkerStyle = xlNone

.Border.Color = ser.Border.Color

.ChartType = xlLine

.Format.Line.ForeColor.ObjectThemeColor = msoThemeColorAccent6

End With

End Sub

۴- سپس کلید F5 را فشار دهید تا این کد اجرا شود ، یک خط میانگین افقی در نمودار ستونی قرار داده خواهد شد. تصویر را مشاهده کنید:

نکته: این VBA تنها زمانی می تواند اجرا شود که فرمت ستون شما ۲-D Column وارد شود.

ترجمه شده از سایت www.extendoffice.com

ممنون از همراهی شما کاربران عزیز آی تی سواد

اشتراک گذاری

بیشتر

چگونه می توان یک خط میانگین در نمودار اکسل اضافه کرد؟ (۲ روش)

با سلام خدمت کاربران عزیز آی تی سواد

خط میانگین در نمودار اکسل با ستون کمکی :

خط میانگین در نمودار اکسل با کد VBA:

VBA : اضافه کردن یک خط میانگین به نمودار

ممنون از همراهی شما کاربران عزیز آی تی سواد

دیدگاهتان را بنویسید لغو پاسخ