كيفية تغيير لون مجموعة أيقونات التنسيق الشرطي في Excel؟

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

تغيير مجموعة أيقونات التنسيق الشرطي

VBA مخصص لمجموعة أيقونات التنسيق الشرطي

تغيير مجموعة أيقونات التنسيق الشرطي

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

إليك كيفية تنفيذ هذه الطريقة، والتي لا تتيح لك فقط تخصيص الألوان ولكن تتيح لك أيضًا اختيار أشكال أيقونات محددة باستخدام الرموز من خطوط مثل Wingdings3:

1. حدد خلية فارغة بجانب قائمة البيانات الخاصة بك، على سبيل المثال، استخدم F2. أدخل 67% في F2، ثم أدخل 33% في F3، و0% في F4. ينشئ هذا حدود النسب المئوية لعرض الأيقونات الشرطية.

2. في الخلية G2، أدخل الصيغة التالية لحساب الخط الذي فوق 67%. (في هذه الحالة، تمثل C1:C8 قائمة القيم الخاصة بك)، ثم اسحب مقابض التعبئة لحساب كل خط قيمة.

=PERCENTILE($C$1:$C$8, F2)

3. بعد ذلك، في H2، قم بإدخال أول أيقونة عن طريق النقر على إدراج > رمز. في مربع الحوار رمز، حدد Wingdings3 في القائمة المنسدلة الخط، ثم حدد وأدخل رمز السهم للأعلى (مثل رمز الكود 232) في H2. يمثل هذا الرمز القيم العالية. انظر لقطات الشاشة:

4. كرر العملية لإدراج سهم أفقي في H3 وسهم للأسفل في h2 للقيم الوسطى والمنخفضة على التوالي. تحقق مرتين من تحديد الرمز ليطابق التصميم المرئي المطلوب.

5. الآن، في العمود B (بجانب قائمة القيم الخاصة بك التي تبدأ من C1)، أدخل هذه الصيغة في B1 لتعيين أيقونة بناءً على كل قيمة. بعد إدخال الصيغة، اسحب مقابض التعبئة لملء الصيغة بجانب قائمة القيم بأكملها.

=IF(C1="","",IF(C1>=$G$2,$H$2,IF(C1>=$G$3,$H$3,$H$4)))

نصيحة:

• C1: الإشارة إلى خلية القيمة الخاصة بك.
• G2: هو خط القيمة 67%
• H2: رمز (سهم) يظهر للقيم الأعلى.
• G3: هو خط القيمة 33%.
• H3: سهم للقيم المتوسطة.
• G4: هو القيمة أقل من 33%.
• h2: سهم للقيم المنخفضة.

6. قم بتمييز النطاق الذي يحتوي على الأسهم (على سبيل المثال، الخلايا B1:B8)، ثم ضبط خط هذه الخلايا إلى Wingdings3. تضمن هذه الخطوة أن الأسهم تعرض بشكل صحيح كرموز بدلاً من أحرف أو رموز عشوائية.

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

8. في قاعدة تنسيق جديدة مربع الحوار، اختر استخدام صيغة لتحديد الخلايا التي سيتم تنسيقها. أدخل هذه الصيغة لاستهداف أعلى القيم لديك: =$C1>=$G$2. انقر تنسيق, اذهب إلى الخط التبويب، واختر اللون المطلوب للأسهم لأعلى (على سبيل المثال، أحمر للتأكيد).

نصيحة: تحقق مرتين من أن إشارات الخلايا المطلقة والنسبية صحيحة لضمان تطبيق التنسيق كما هو مقصود، خاصة إذا كنت تقوم بنسخ الشروط إلى نطاقات أخرى.

9. انقر موافق مرتين لتطبيق هذا التنسيق الجديد. يجب أن تظهر أسهمك للأعلى الآن باللون المختار.

10. كرر العملية للأسهم الأفقية والأسهم للأسفل، باستخدام هذه الصيغ على التوالي في مربع الحوار قاعدة جديدة:

تنسيق الأسهم الأفقية:

=AND($C1<$G$2,$C1>=$G$3)

تنسيق الأسهم للأسفل:

=$C1<$G$3

أضف ألوانًا مختلفة لكل نوع من الأسهم حسب الرغبة.

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

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

إذا كنت بحاجة إلى حل يعمل بسلاسة أكبر مع الأيقونات المدمجة، أو إذا كنت تريد تخصيص أيقونات متقدمًا (مثل استخدام الصور أو أيقونات جديدة تمامًا)، يرجى الرجوع إلى البديل VBA الموصوف أدناه.

كود VBA - إنشاء مجموعة أيقونات تنسيق شرطي مخصصة (صور معرفة من قبل المستخدم أو ألوان)

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

1. انقر أدوات المطور > Visual Basic لفتح محرر VBA. في نافذة Microsoft Visual Basic for Applications الجديدة، انقر إدراج > وحدة، ثم انسخ والصق الكود التالي في الوحدة الجديدة:

Sub CustomConditionalIcons()
    Dim rng As Range
    Dim cell As Range
    Dim ws As Worksheet
    Dim upIcon As String, midIcon As String, downIcon As String
    Dim upColor As Long, midColor As Long, downColor As Long
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set ws = ActiveSheet
    Set rng = Application.InputBox("Select data range for custom icons", xTitleId, Selection.Address, Type:=8)
    
    ' Define Unicode symbols to use as icons (can replace with other symbols or images if desired)
    upIcon = ChrW(9650) ' ▲ Up triangle
    midIcon = ChrW(9651) ' △ Mid triangle
    downIcon = ChrW(9660) ' ▼ Down triangle
    
    ' Define colors (RGB)
    upColor = RGB(0, 176, 80) ' Green
    midColor = RGB(255, 192, 0) ' Yellow
    downColor = RGB(255, 0, 0) ' Red
    
    ' Remove existing shapes/icons from the range
    Dim sh As Shape
    For Each sh In ws.Shapes
        If Not Intersect(sh.TopLeftCell, rng) Is Nothing Then
            If Left(sh.Name, 13) = "CustomIconSet" Then
                sh.Delete
            End If
        End If
    Next
    
    ' Loop through cells and add custom icons
    For Each cell In rng
        If IsNumeric(cell.Value) Then
            Dim percentile67 As Double, percentile33 As Double
            percentile67 = Application.WorksheetFunction.Percentile(rng, 0.67)
            percentile33 = Application.WorksheetFunction.Percentile(rng, 0.33)
            
            Dim iconText As String
            Dim iconColor As Long
            
            If cell.Value >= percentile67 Then
                iconText = upIcon
                iconColor = upColor
            ElseIf cell.Value >= percentile33 Then
                iconText = midIcon
                iconColor = midColor
            Else
                iconText = downIcon
                iconColor = downColor
            End If
            
            ' Insert icon as a TextBox shape
            Dim iconShape As Shape
            Set iconShape = ws.Shapes.AddTextbox(msoTextOrientationHorizontal, cell.Left + 2, cell.Top + 2, cell.Width - 4, cell.Height - 4)
            iconShape.TextFrame.Characters.Text = iconText
            
            With iconShape.TextFrame2.TextRange.Font
                .Size = cell.Font.Size
                .Fill.ForeColor.RGB = iconColor
                .Name = cell.Font.Name
            End With
            
            iconShape.Name = "CustomIconSet" & cell.Address(0, 0)
            iconShape.Line.Visible = msoFalse
            iconShape.TextFrame.HorizontalAlignment = xlHAlignCenter
            iconShape.TextFrame.VerticalAlignment = xlVAlignCenter
            iconShape.Placement = xlMoveAndSize
        End If
    Next
End Sub

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

هذا النهج باستخدام VBA متعدد الاستخدامات للغاية—الأيقونات، الألوان، والأشكال قابلة للتخصيص بالكامل، مما يجعلها مناسبة لل_dashboards_ عالية المستوى حيث تتطلب الإرشادات العلامة التجارية أو الجمهور مؤشرات بصرية محددة للغاية.

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

اكتشف سحر Excel مع Kutools AI

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

عزز قدرات Excel لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!