كيف تضيف خطًا عموديًا أو خط متوسط إلى مخطط شريطي في Excel؟
عند العمل مع رسمٍ بيانيٍّ شريطي في Excel لتمثيل بياناتك بصريًّا، قد تواجه سيناريوهات تتطلب التأكيد على القيمة المتوسطة — مما يساعد المشاهدين على فهم أفضل لكيفية مقارنة نقاط البيانات الفردية بالمتوسط العام. وبإضافة خطٍّ عموديٍّ يمثّل المتوسط مباشرةً على الرسم البياني الشريطي، كما هو موضح في لقطة الشاشة أدناه، فإنك تعزز وضوح المخطط وسهولة تفسيره في العروض التقديمية والتقارير وعمليات اتخاذ القرار. ويشرح هذا البرنامج التعليمي طرقًا متعددة لإضافة خطٍّ عموديٍّ أو خطِّ متوسطٍ إلى رسمٍ بيانيٍّ شريطي في Excel، بدءًا من تقنيات المخططات المضمنة ووصولًا إلى ماكروهات VBA الآلية.
إضافة خط عمودي إلى رسم بياني شريطي
حل كود VBA: إضافة خط عمودي/متوسط برمجيًّا
إضافة خط عمودي إلى رسم بياني شريطي
لبدء العملية، تأكد من أن بياناتك جاهزة للعرض البصري في شكل رسم بياني شريطي.
1. حدد نطاق البيانات الخاص بك، ثم انتقل إلىإدراج > شريطي > شريطي. وسيتم إنشاء رسم بياني شريطي أساسي تلقائيًا استنادًا إلى مجموعة البيانات الخاصة بك.
2. انتقل إلى منطقة غير مستخدمة في ورقة العمل، مثل الخلية A10. أدخل «Y» في هذه الخلية، ثم اكتب «X» في الخلية المجاورة (B10). يُعدّ هذا الإعداد الخطوة الأساسية لرسم خط المتوسط.
3. أدخل 0 و1 في الخليتين الموجودتين مباشرةً أسفل خلية Y (A11 وA12) لإنشاء سلسلة بيانات عمودية تدعم خط المتوسط، وهي خطوة ضرورية لضمان اتجاهه العمودي عند رسمه.
4. في الخلية الموجودة أسفل X (B11)، أدخل الصيغة =AVERAGE($B$2:$B$9)، حيث يمثّل $B$2:$B$9 نطاق البيانات الفعلية الخاصة بك. اضغطEnter، ثم اسحب مقبض التعبئة لأسفل إلى الخلية التي تليها (B12) لنسخ الصيغة. يؤدي ذلك إلى تكرار قيمة المتوسط لنقطتي الربط اللتين سيُثبَّت عليهما الخط.
نصائح: تحقّق مرتين من مراجع الخلايا المستخدمة في صيغتك، خاصةً إذا لم تكن بياناتك في العمود B أو بدأت من صفوف مختلفة.
5. انقر بزر الماوس الأيمن في أي مكان على الرسم البياني الشريطي، ثم اخترتحديد البياناتمن القائمة السياقية. هذه الخطوة ضرورية لإدخال بيانات خط المتوسط إلى المخطط.
6. في مربع الحوارمصدر تحديد البيانات، انقر على زرإضافةالموجود أسفلنطاق اسم السلسلة. يتيح لك ذلك إدراج سلسلة جديدة مخصصة لخط المتوسط الخاص بك.
7. داخل مربع الحوارتحرير السلسلةالذي يظهر، قم بتعيين اسم مناسب للسلسلة وحدّد B11:B12 كقيم السلاسل الخاصة بك (أو عدّلها حسب الحاجة إذا كان حساب المتوسط موجودًا في مكان آخر).
8. انقرموافقمرتين لإغلاق مربعي الحوار والعودة إلى ورقة العمل. الآن، انقر على السلسلة المضافة حديثًا داخل الرسم البياني الشريطي، ثم انقر بزر الماوس الأيمن واخترتغيير نوع السلسلة/نوع المخططلتحديث تنسيق العرض الخاص بها.
9. في نافذةتغيير نوع المخطط، اخترX Y (مبعثر) > مبعثر مع أفقي. ثم انقرموافقلتطبيق التغيير وإغلاق مربع الحوار.
ملاحظة: في Excel 2013 والإصدارات الأحدث، انتقل إلى قسممركبضمنجميع المخططات، ثم طبّقمبعثر مع أفقيعلى سلسلة المتوسط الخاصة بك.
10. عُد إلى المخطط وانقر بزر الماوس الأيمن لاختيارتحديد البياناتمن القائمة السياقية مرة أخرى.
11. في نافذةتحديد البيانات، حدد السلسلةالمتوسط، ثم انقرتحريرلتحديد قيمتي السين والصاد بدقة أكبر.
12. في مربع الحوارتحرير السلسلة، أدخل النطاقات الخاصة بـ X وقيمة الصاد (عادةً الخليتين الموجودتين أسفل تسميات X وY). وإذا قمت بتعديل أي مواقع، فتأكد من أن المراجع تتطابق مع إعداد ورقة العمل الخاصة بك.
13. بعد النقر علىموافقفي مربعي الحوار، انقر بزر الماوس الأيمن على محور Y الثانوي (الجانب الأيمن)، ثم اخترتنسيق المحور.
14. داخل مربع الحوارتنسيق المحور، فعّل الخيارثابتبجانبالحد الأقصى، وعيّن القيمة على 1. يؤدي ذلك إلى إجبار خط المتوسط على الامتداد عبر الارتفاع الرأسي الكامل للمخطط.
نصيحة:إن تعيين الحد الأقصى للمحور على 1 هو ما يُحقّق تأثير «الامتداد الكامل» لخط عمودي؛ وقد يؤدي إهمال هذه الخطوة إلى ظهور خط قصير أو تراكب في غير موضعه الصحيح.
في Excel 2013 والإصدارات الأحدث، يمكنك إدخال1 مباشرةً في حقلالحد الأقصىفي لوحة تنسيق المحور.
15. بعد إغلاق مربع الحوار، ستظهر على الرسم البياني الشريطي خطوطٌ تمثّل المتوسط والخط العمودي المضافَين، مما يوفّر مؤشرًا بصريًّا لمتوسط البيانات لتمكين مقارنة سريعة.
لتحسين المظهر البصري أكثر، انقر بزر الماوس الأيمن على الخط وحددتنسيق سلسلة البياناتلفتح خيارات التنسيق الخاصة باللون والنمط والسُمك. غالبًا ما يؤدي تخصيص هذه العناصر إلى تحسين وضوح العرض أو مواءمته مع الهوية البصرية للمؤسسة.
تشمل نصائح استكشاف الأخطاء الشائعة التحقق من أن نطاقات X وقيمة الصاد لا تحتوي على خلايا فارغة، ومن أنك دائمًا تحدد نطاقات الخلايا الصحيحة داخل مربعي الحوارتحديد البيانات. إذا لم يظهر الخط العمودي كما هو متوقع، فراجع مجددًا تعيينات نوع المخطط أو إعداد الحد الأقصى للمحور، إذ غالبًا ما تسبب هذه العناصر اختلافات بصرية عند عدم ضبطها بشكل صحيح. وإذا قمت بتعديل البيانات الأصلية، فعُد إلى خلايا الصيغة وتأكد من أن المراجع لا تزال تتطابق مع نطاق البيانات المقصود.
حل كود VBA: إضافة خط عمودي/متوسط برمجيًّا
بالنسبة للمستخدمين الذين يُحدّثون المخططات بانتظام أو يُعدّون تقارير دورية، يمكن لأتمتة إضافة خط عمودي أو خط متوسط باستخدام VBA أن توفر وقتًا كبيرًا. وتكون هذه الطريقة مفيدة بشكل خاص عند إدارة مخططات متعددة متشابهة أو عند الحاجة إلى تحديث الخطوط تلقائيًا مع تغيّر البيانات — مما يلغي الحاجة إلى تكرار الخطوات اليدوية. وعلى الرغم من أن اعتماد VBA يتطلب ملفات عمل مُفعَّلة بماكروهات وبعض الإلمام بمحرر Visual Basic، فإنه يوفّر مرونةً وكفاءةً عاليتين.
ملاحظة:تأكد من أن تحتوي ورقة العمل على رسم بياني شريطي قبل تشغيل هذا الرمز.
1. انتقل إلى تبويبالمطور، ثم انقر علىVisual Basic لفتح محررMicrosoft Visual Basic for Applications. إذا لم يكن تبويب المطور ظاهرًا، فراجع هذا الدليل: إظهار تبويب المطور في Excel.
2. في محرر VBA، انقر علىإدراج > وحدة نمطيةلإنشاء وحدة نمطية جديدة. بعد ذلك، الصق الكود التالي في نافذة المحرر:
Sub AddAverageLineToBarChart()
Dim cht As ChartObject
Dim ws As Worksheet
Dim dataRange As Range
Dim avgValue As Double
Dim i As Integer
Dim nameSeries As String
Dim xValues(1 To 2) As Double
Dim yValues(1 To 2) As Double
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set ws = ActiveSheet
Set cht = ws.ChartObjects(1) ' Use the first chart on the active sheet
Set dataRange = Application.InputBox("Select the data range for average calculation", xTitleId, Type:=8)
nameSeries = Application.InputBox("Name for the average series", xTitleId, "Average")
avgValue = Application.WorksheetFunction.Average(dataRange)
xValues(1) = avgValue
xValues(2) = avgValue
yValues(1) = 0
yValues(2) = 1
With cht.Chart
.SeriesCollection.NewSeries
With .SeriesCollection(.SeriesCollection.Count)
.Name = nameSeries
.XValues = xValues
.Values = yValues
.ChartType = xlXYScatterLines
.AxisGroup = 1
End With
End With
End Sub3بعد إدخال الكود، انقر على الزر
لتنفيذ الماكرو. سيظهر مربع حوار يطلب منك تحديد نطاق البيانات لحساب المتوسط، ثم إدخال اسم لسلسلة المتوسط. وسيقوم الماكرو تلقائيًّا بإضافة خط متوسط عمودي إلى أول كائن مخطط في ورقة العمل الحالية الخاصة بك.
نصائح:إذا كان لديك مخططات متعددة، عدّلws.ChartObjects(1) لاستهداف فهرس المخطط الصحيح.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل