كيفية تحديد وتحديد فهرس لون الخلفية للخلايا في Excel؟

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

تحديد لون الخلية باستخدام VBA

تحديد لون الخلية باستخدام VBA

اتبع الخطوات التالية لتحديد لون الخلية باستخدام VBA.

1. اضغط Alt + F11 لتمكين نافذة Microsoft Visual Basic for Application نافذة.

2. انقر فوق إدراج > وحدة لإنشاء وحدة جديدة والصق الكود التالي من VBA في النص الفارغ. انظر لقطة الشاشة:

VBA: الحصول على الرمز السداسي العشري التقليدي للخلية

Function getRGB1(FCell As Range) As String
'UpdatebyExtendoffice20170714
    Dim xColor As String
    xColor = CStr(FCell.Interior.Color)
    xColor = Right("000000" & Hex(xColor), 6)
    getRGB1 = Right(xColor, 2) & Mid(xColor, 3, 2) & Left(xColor, 2)
End Function

3. احفظ الكود وأغلق نافذة VBA. حدد خلية فارغة بجانب الخلية الملونة، واكتب هذه الصيغة، =getRGB1(A16)، ثم اسحب مقبض التعبئة التلقائية إلى الخلايا التي تريد استخدامها. انظر لقطة الشاشة:

تلميح: هناك بعض الأكواد الأخرى التي يمكن أن تحدد فهرس لون الخلية.

1. VBA: القيم العشرية لكل رمز

Function getRGB2(FCell As Range) As String
   'UpdatebyExtendoffice20170714  
    Dim xColor As Long
    Dim R As Long, G As Long, B As Long
    xColor = FCell.Interior.Color
    R = xColor Mod 256
    G = (xColor \ 256) Mod 256
    B = (xColor \ 65536) Mod 256
    getRGB2 = "R=" & R & ", G=" & G & ", B=" & B
End Function

النتيجة:

2. VBA: القيم العشرية

Function getRGB3(FCell As Range, Optional Opt As Integer = 0) As Long
 'UpdatebyExtendoffice20170714
    Dim xColor As Long
    Dim R As Long, G As Long, B As Long
    xColor = FCell.Interior.Color
    R = xColor Mod 256
    G = (xColor \ 256) Mod 256
    B = (xColor \ 65536) Mod 256
    Select Case Opt
        Case 1
            getRGB3 = R
        Case 2
            getRGB3 = G
        Case 3
            getRGB3 = B
        Case Else
            getRGB3 = xColor
    End Select
End Function

النتيجة:

تحديد القيم المكررة أو الفريدة بسهولة في Excel

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

Kutools لـ Excel - قم بتعزيز Excel بأكثر من 300 أدوات أساسية. استمتع بميزات ذكاء اصطناعي مجانية بشكل دائم! احصل عليه الآن

مقالات ذات صلة:

• كيفية تغيير لون الخط بناءً على قيمة الخلية في Excel؟
• كيفية تلوين القيم المكررة أو الصفوف المكررة في Excel؟