كيف تضيف ملاحظة إلى مخطط في Excel؟

افترض أنك أنشأت مخططًا خطيًّا كما في لقطة الشاشة أدناه، وترغب في إضافة ملاحظة مخصصة داخل منطقة المخطط. يُعد هذا الأسلوب وسيلة شائعة لتوفير سياق إضافي مباشرةً على التمثيل المرئي، مما يجعل ملاحظاتك وتعليقاتك في متناول من يشاهدون تقريرك بسهولة.

1. انقر فوق المخطط لتنشيطChart Tools، ثم انتقل إلىFormat > Text Box Text Box ضمن مجموعةInsert Shapes. راجع لقطة الشاشة أدناه.
ملاحظة: إذا كنت تستخدم Excel 2010، فانقر فوقLayoutLayout > Text Box ضمن علامة التبويبChart Tools للحصول على نتائج مشابهة.

2. ارسم مربع نص في أي مكان داخل منطقة المخطط بالسحب باستخدام الماوس، كما هو موضح أدناه. بعد ذلك، اكتب ملاحظتك مباشرةً في مربع النص. يتيح لك هذا الأسلوب إضافة توضيحات، أو تسليط الضوء على النتائج، أو التعليق على أقسام محددة من مخططك لتعزيز الوضوح.

3. خصّص خط ملاحظتك وتنسيقها باستخدام مجموعةFont في علامة التبويبHome. يمكنك ضبط حجم الخط، وتغيير لونه، وتطبيق التنسيق العريض أو المائل، بالإضافة إلى خيارات تنسيق أخرى لجعل ملاحظتك أكثر وضوحًا أو متوافقة مع نسق مستندك.

بمجرد تنسيق ملاحظتك حسب الحاجة، ستظهر مباشرةً داخل المخطط، كما في لقطة الشاشة أدناه. ويُعد هذا الحل خيارًا سريعًا وفعّالًا عندما لا يتغير محتوى الملاحظة بشكل متكرر.

السيناريوهات المناسبة: استخدم هذا الأسلوب عندما تحتاج إلى تعليق يدوي أو لمرة واحدة في مخططك ولا يتطلب تحديثه ديناميكيًّا.
القيود: لن يتم تحديث محتوى مربع النص تلقائيًّا إذا تغيّرت البيانات الأساسية للمخطط، لذا قد تحتاج إلى تعديل الملاحظات أو نقلها يدويًّا في حال تم تعديل بيانات المخطط أو تخطيطه.

في بعض الأحيان، قد ترغب في أن تعكس الملاحظة المعروضة في مخططك بيانات أو تعليقات مخزَّنة في خلايا محددة من ورقة العمل، مع تحديث النص تلقائيًّا كلما تغيَّرت تلك الخلايا. ويُعدُّ هذا الأسلوب مثاليًّا للتقارير الديناميكية ولوحات المعلومات والعروض التقديمية التي يرتبط فيها محتوى التعليق بمقاييس رئيسية أو اتجاهات أو ملاحظات قابلة للتغيُّر نتيجة التعاون المستمر أو التحليل المتكرر.

1. أولًا، حدد المخطط، ثم استخدم أداةText Box لرسم مربع نص في منطقة المخطط (راجع الخطوات السابقة للإرشاد إذا لزم الأمر).

2. مع بقاء مربع النص محددًا، انقر في شريط الصيغة أعلى ورقة العمل، ثم اكتب علامة يساوي (=) متبوعة بالخلية التي تريد ربطها بها، على سبيل المثال:

=Sheet1!B2

سيؤدي ذلك إلى ربط محتوى مربع النص مباشرةً بالخلية B2 في الورقة Sheet1، ليعرض مربع النص تلقائيًا أي محتوى يتم إدخاله في تلك الخلية.

3. اضغط Enter للتأكيد. الآن، في كل مرة تُحدِّث فيها الخلية، سيظهر مربع النص في المخطط التغيير فورًا.

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

لمتطلبات أكثر تقدمًا—مثل معالجة الملاحظات دفعةً واحدة عبر مخططات متعددة، أو أتمتة تحديثات التعليقات، أو إضافة نص مشروط بناءً على البيانات—يمكنك استخدام ماكرو VBA بسيط. ويُعد هذا الحل مثاليًا خصوصًا للتقارير التي تشمل عدة كائنات مخططات، لضمان إضافة الملاحظات أو تحديثها بشكل متسق، وكذلك للمستخدمين المتمرسين في أتمتة المهام الروتينية في Excel.

1. حدد المخطط الذي ترغب في إضافة ملاحظة إليه.

انتقل إلىالمطور > Visual Basic، أو اضغط Alt + F11. بعد فتح مربع الحوار، انقر فوقإدراج > وحدة نمطية، ثم انسخ والصق الكود التالي في نافذة الوحدة النمطية:

Sub AddOrUpdateChartNote()
'Updated by extendoffice
    Dim chtObj As ChartObject
    Dim cht As Chart
    Dim ws As Worksheet
    Dim linkedCell As Range
    Dim noteShape As Shape
    Dim noteText As String
    Dim foundNote As Boolean
    Dim xTitleId As String

    On Error GoTo ErrHandler
    xTitleId = "Kutools for Excel"

    Set ws = ActiveSheet

    If ActiveChart Is Nothing Then
        MsgBox "Please select a chart first.", vbExclamation, xTitleId
        Exit Sub
    Else
        Set cht = ActiveChart
    End If

    Set linkedCell = Application.InputBox("Select the cell for note content:", xTitleId, Type:=8)
    If linkedCell Is Nothing Then Exit Sub

    noteText = linkedCell.Value

    foundNote = False
    For Each noteShape In cht.Shapes
        If LCase(Left(noteShape.Name, 9)) = "chartnote" Then
            noteShape.TextFrame.Characters.Text = noteText
            foundNote = True
            Exit For
        End If
    Next noteShape

    If Not foundNote Then
        Set noteShape = cht.Shapes.AddTextbox(msoTextOrientationHorizontal, 20, 20, 250, 30)
        noteShape.Name = "ChartNote_" & Format(Now, "hhnnss")
        noteShape.TextFrame.Characters.Text = noteText
        noteShape.TextFrame.AutoSize = True
        noteShape.Fill.ForeColor.RGB = RGB(255, 255, 200) ' light yellow background
        noteShape.Line.ForeColor.RGB = RGB(100, 100, 100)
    End If

    MsgBox "Chart note updated successfully!", vbInformation, xTitleId
    Exit Sub

ErrHandler:
    MsgBox "An error occurred. Please ensure a chart is selected and try again.", vbExclamation, xTitleId
End Sub

2بعد ذلك، انقر فوق الزرلتنفيذ الماكرو. سيُطلب منك تحديد الخلية التي تحتوي على نص ملاحظتك. بعد التحديد، انقر فوق «موافق».

يضيف الماكرو تلقائيًّا مربع نص أصفر إلى المخطط، يعرض محتوى الخلية المحددة.

إذا وُجدت ملاحظة مسبقًا، يقوم الماكرو بتحديث الملاحظة الحالية بقيمة الخلية الجديدة دون إنشاء نسخ مكررة.

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

إنشاء قالب مخطط منحنى جرس في Excel

كسر محور المخطط في Excel