دالة التلوين في محرر الأكواد RGB Tutorial

السلام عليكم ورحمة الله وبركاته

أقدم لكم معلومة بسيطة حول الدالة RGB والتي تستخدم في الـ VBA بغرض التلوين ، والدالة لها ثلاثة بارامترات أي ثلاثة مدخلات : الأول هو رقم بين 0 و 255 يمثل اللون الأحمر ، والثاني رقم بين 0 و 255 يمثل اللون الأخضر ، والثالث رقم بين 0 و 255 يمثل اللون الأزرق.

حيث R اختصار لكلمة Red ، و G اختصار لكلمة Green ، و B اختصار لكلمة Blue.

على سبيل المثال إذا أردنا تلوين خلفية خلية باللون الأصفر ، وليكن الخلية A1 ، فيكون سطر الكود بهذا الشكل

Sub Test()
    Range("A1").Interior.Color = RGB(250, 250, 0)
End Sub

حيث أن كلمة Interior تعني التعامل مع الخلفية للنطاق أو الخلية ، وكلمة Color للتعامل مع اللون ، أي أننا نخبر الإكسيل بأننا نريد لون الخلفية للخلية A1 يساوي قيم الدالة RGB والتي تساوي 250 و 250 وصفر

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

Private Sub Worksheet_Calculate()
    Dim Cel As Range
    For Each Cel In Range("D2:D" & Cells(Rows.Count, 1).End(xlUp).Row)
        Cel.Interior.Color = RGB(Cel.Offset(, -3), Cel.Offset(, -2), Cel.Offset(, -1))
    Next Cel
End Sub

تحميل الملف من هنا

إعداد / ياسر خليل أبو البراء