كيفية تلوين المخطط بناءً على لون الخلية في Excel؟

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

تلوين المخطط بسلسلة بيانات واحدة أو متعددة بناءً على لون الخلية باستخدام أكواد VBA

تلوين المخطط بسلسلة بيانات واحدة أو متعددة بناءً على لون الخلية بميزة رائعة

تلوين المخطط بسلسلة بيانات واحدة أو متعددة بناءً على لون الخلية باستخدام أكواد VBA

تلوين المخطط بسلسلة بيانات واحدة بناءً على لون الخلية

مع الكود التالي لـ VBA، يمكنك بسرعة تغيير لون المخطط الذي يحتوي على سلسلة بيانات واحدة بناءً على لون قيم الخلية الأصلية، يرجى القيام بما يلي:

1. أولاً، قم بإنشاء مخطط عمودي أو شريطي كما هو موضح في لقطة الشاشة التالية (حدد البيانات وانقر فوق إدراج > إدراج مخطط عمودي أو شريطي):

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

3. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: تلوين أشرطة المخطط بسلسلة بيانات واحدة بناءً على لون الخلية:

Sub ColorChartColumnsbyCellColor()
'Updateby Extendoffice
    Dim xChart As Chart
    Dim I As Long, xRows As Long
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
    If xChart Is Nothing Then Exit Sub
    With xChart.SeriesCollection(1)
        Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1))
        xRows = xRg.Rows.Count
        Set xRg = xRg(1)
        For I = 1 To xRows
            .Points(I).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xRg.Offset(I - 1, 0).Interior.ColorIndex)
        Next
    End With
End Sub

ملاحظة: في الكود أعلاه، Chart 1 هو اسم المخطط الذي تريد استخدامه، يرجى تغييره إلى اسمك الخاص.

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

تلوين المخطط بسلسلة بيانات متعددة بناءً على لون الخلية

إذا كان المخطط الخاص بك يحتوي على سلسلة بيانات متعددة، يرجى تطبيق الكود التالي لـ VBA:

1. يرجى إنشاء مخطط عمودي أو شريطي يحتوي على سلسلة بيانات متعددة كما هو موضح في لقطة الشاشة التالية:

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

3. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: تلوين أشرطة المخطط بسلسلة بيانات متعددة بناءً على لون الخلية:

Sub CellColorsToChart()
'Updateby Extendoffice
    Dim xChart As Chart
    Dim I As Long, J As Long
    Dim xRowsOrCols As Long, xSCount As Long
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
    If xChart Is Nothing Then Exit Sub
    xSCount = xChart.SeriesCollection.Count
    For I = 1 To xSCount
        J = 1
        With xChart.SeriesCollection(I)
            Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(2), "!")(1))
            If xSCount > 4 Then
                xRowsOrCols = xRg.Columns.Count
            Else
                xRowsOrCols = xRg.Rows.Count
            End If
            For Each xCell In xRg
                .Points(J).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
                .Points(J).Format.Line.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
                J = J + 1
            Next
        End With
    Next
End Sub

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

ملاحظات:

1. في الكود أعلاه، Chart 1 هو اسم المخطط الذي تريد استخدامه، يرجى تغييره إلى اسمك الخاص.

2. يمكن أيضًا تطبيق هذا الكود على مخطط خطي.

تلوين المخطط بسلسلة بيانات واحدة أو متعددة بناءً على لون الخلية بميزة رائعة

باستخدام الأكواد أعلاه، لن تكون ألوان المخطط دائمًا متطابقة مع لون الخلية، لحل هذه المشكلة، هنا، سأقدم لك أداة مفيدة - تغيير لون المخطط بناءً على لون الخلية من Kutools لـ Excel، مع هذه الميزة المفيدة، يمكنك تلوين المخطط بناءً على لون الخلية بسرعة وسهولة.

بعد تثبيت Kutools لـ Excel، يرجى القيام بما يلي:

1. أولاً، يرجى إدراج المخطط الذي تريد استخدامه، ثم حدد المخطط، ثم انقر فوق Kutools > الرسوم البيانية > أدوات الرسم البياني > تغيير لون المخطط بناءً على لون الخلية، انظر لقطة الشاشة:

2. وبعد ذلك، ستظهر مربع رسالة، يرجى النقر فوق زر موافق.

3. الآن، تم تلوين المخطط الذي حددته بناءً على ألوان الخلايا كما هو موضح في لقطات الشاشة أدناه:

تلوين المخطط بسلسلة بيانات واحدة بناءً على لون الخلية

تلوين المخطط بسلسلة بيانات متعددة بناءً على لون الخلية

قم بتنزيل وتجربة Kutools لـ Excel الآن مجانًا!

مقالات أخرى ذات صلة بالمخططات: