بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
درس جديد من دروس مكتبة اكواد اكسل Excel VBA وكيفية عمل فهرس للالوان بالرقم واللون Color Index على ورقة العمل من خلال كود سهل جدا وبسيط كثير منا من يتعامل مع الالوان سواء على ورقة العمل او من خلال الاكواد VBA ولكن تواجهنا مشكلة كبيرة اننا لا نستطيع تحديد رقم اللون المستعمل من خلال Color Index لذلك وجدنا انة من الافضل ان نقوم بعمل كود VBA يجلب لنا الالوان وارقامهم ن خلال هذا الكود السهل والممتع
الكود
Dim i As Integer
For i = 1 To 14
Cells(1, i).Value = i
Cells(2, i).Interior.ColorIndex = i
Cells(4, i).Value = i + 14
Cells(5, i).Interior.ColorIndex = i + 14
Cells(7, i).Value = i + 28
Cells(8, i).Interior.ColorIndex = i + 28
Cells(10, i).Value = i + 42
Cells(11, i).Interior.ColorIndex = i + 42
Next i
بمجرد تنفيذ الكود يظهر لنا Color Index على ورقة العمل بشكل بسيط ومميز