تعيين تسميات بيانات مخصصة في مخطط

سيسمح لك إجراء VBA (Visual Basic for Applications) التالي باستخدام قيم الخلايا كتسميات بيانات في المخططات في Excel for Mac. لاستخدام الإجراء، قم بما يلي:

1. في Excel، انقر فوق أدوات > وحدات الماكرو > تسجيل ماكرو جديد.

2. في المربع المنسدلة Store Macro in: حدد Personal Macro Workbook.

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

3. اضغط على موافق.

4. انتقل إلى أدوات > وحدات الماكرو > إيقاف التسجيل.

5. انتقل إلى أدوات > وحدات الماكرو > محرر Visual Basic.

6. سيتم فتح محرر Visual Basic (VBE) فوق Excel. في جزء التنقل على اليسار، قم بتوسيع VBAProject (PERSONAL. مجلد XLSB) لإظهار الوحدة النمطية 1.

7. انقر نقرا مزدوجا فوق Module1 لعرض جزء Code، والذي سيتم فتحه على الجانب الأيمن من نافذة VBE.

8. التعليمات البرمجية ل VBA التي تم إنشاؤها عند تسجيل ماكرو جديد ليست ضرورية، لذا حدد كل شيء، ثم اضغط على Delete. 

9. بعد ذلك، حدد رمز VBA في مربع النص أدناه، واضغط على CMD+C لنسخه، ثم الصقه مرة أخرى في جزء التعليمات البرمجية باستخدام CMD+V. يمكنك الآن الخروج من محرر Visual Basic والعودة إلى Excel.

10. اختبر الماكرو عن طريق إنشاء مخطط مع تسميات البيانات. بعد ذلك، حدد أي تسمية بيانات على المخطط، ثم قم بتشغيل الماكرو بالنقر فوق أدوات > وحدات الماكرو > وحدات الماكرو. حدد SetCustomDataLabels، ثم اضغط على Run. ستتم مطالبتك تلقائيا بتحديد نطاق تسمية البيانات، لذا قم بذلك، ثم اضغط على موافق.  

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

11. عند إنهاء Excel، تأكد من اختيار حفظ التغييرات في PERSONAL. XLSB حتى يتوفر الماكرو في المستقبل.

12. في أي وقت تريد فيه إضافة أو إزالة تسميات البيانات من مخطط، حدد تسميات البيانات وقم بتشغيل الماكرو.

13. يمكنك استخدام تفضيلات Excel >> شريط أدوات & لإضافة زر لتشغيل الماكرو من الشريط أو شريط الأدوات.

Option Explicit

Sub SetCustomDataLabels()
' make sure a series is selected
    If TypeOf Selection Is DataLabels Or TypeOf Selection Is Point Then
        Selection.Parent.Select
    ElseIf TypeOf Selection Is DataLabel Then
        Selection.Parent.Parent.Select
    End If

    If TypeOf Selection Is Series Then
        Else
        MsgBox "Select a chart series and try again."
        Exit Sub
    End If

    If Selection.HasDataLabels Then
        'If the data labels from cells are already showing, stop showing them and exit.
        'If labels include other info (e.g., values or categories) this will still appear
        If Selection.DataLabels.ShowRange Then
            Selection.DataLabels.ShowRange = False
            Exit Sub
        End If
    End If
 
'Use the InputBox dialog to set the range for the data labels
    On Error Resume Next
        Dim rng As Range
        Set rng = Application.InputBox(Prompt:="Select data label range.", Title:="Data Label Range", Type:=8)
    On Error GoTo 0

    If rng Is Nothing Then Exit Sub ' clicked cancel
        If Selection.HasDataLabels Then
            'This will include the new text from cells into existing data labels
        Else
        'Otherwise add data labels (empty labels)
            Selection.HasDataLabels = True
            Selection.DataLabels.ShowValue = False
        End If
    
    'Create a string that includes the sheet name and range reference.
    Dim rngAddress As String
        rngAddress = "='" & rng.Worksheet.Name & "'!" & rng.Address(RowAbsolute:=True, ColumnAbsolute:=True, External:=False)
        Selection.DataLabels.Format.TextFrame2.TextRange.InsertChartField msoChartFieldRange, rngAddress, 0
        Selection.DataLabels.ShowRange = True

End Sub