كيفية إضافة خط أفقي يمثل المتوسط إلى المخطط في Excel؟

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

1. قم بحساب متوسط البيانات باستخدام Average الدالة، على سبيل المثال، في عمود المتوسط C2، اكتب هذه الصيغة: =Average($B$2:$B$8)، ثم اسحب مقبض التعبئة التلقائية لهذه الخلية إلى النطاق الذي تحتاجه. انظر لقطة الشاشة:

2. وبعد ذلك حدد هذا النطاق واختر تنسيق المخطط الذي تريد إدراجه، مثل العمود ثنائي الأبعاد تحت علامة التبويب Insert . انظر لقطة الشاشة:

3. وسيتم إنشاء المخطط، يرجى النقر فوق أحد أعمدة بيانات المتوسط (الشريط الأحمر) في المخطط، والنقر بزر الماوس الأيمن واختيار Change Series Chart Type من قائمة السياق. انظر لقطة الشاشة:

4. في نافذة Change Chart Type التي ظهرت، انقر لتحديد Combo في الشريط الأيسر، انقر على المربع خلف Average، ثم حدد نمط مخطط الخط من القائمة المنسدلة. انظر لقطة الشاشة:

5. انقر على زر OK . الآن، لديك خط أفقي يمثل المتوسط في المخطط الخاص بك، انظر لقطة الشاشة:

ستوصي هذه الطريقة بأداة رائعة، وهي ميزة إضافة خط للمخطط من Kutools لـ Excel، لإضافة خط أفقي يمثل المتوسط إلى المخطط العمودي المحدد بسرعة وبضغطي زر فقط!

لنفترض أنك قد أنشأت مخططًا عموديًا كما هو موضح في لقطة الشاشة أدناه، ويمكنك إضافة خط أفقي يمثل المتوسط له على النحو التالي:

1. حدد المخطط العمودي، وانقر على Kutools > Charts > Add Line to Chart لتفعيل هذه الميزة.

2. في نافذة إضافة خط للمخطط، يرجى تحديد خيار Average ، وانقر على زر Ok .

الآن تم إضافة خط أفقي يمثل المتوسط إلى المخطط العمودي المحدد فورًا.

لنفترض أنك قد أنشأت مخططًا عموديًا باستخدام بياناتك في ورقة العمل الخاصة بك، والكود التالي لـ VBA يمكن أن يساعدك أيضًا في إدراج خط متوسط عبر المخطط.

1. انقر فوق أحد أعمدة البيانات في المخطط الخاص بك، وبعد ذلك سيتم تحديد جميع أعمدة البيانات، انظر لقطة الشاشة:

2. اضغط مع الاستمرار على مفتاحي ALT + F11، ويفتح نافذة Microsoft Visual Basic for Applications.

3. انقر على Insert > 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

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

ملاحظة: يعمل هذا الكود VBA فقط عندما يكون تنسيق العمود الذي تقوم بإدراجه هو عمود ثنائي الأبعاد.