تلوين الخليه النشطه في الشيت

ma4fd2010 · مايو 21, 2021

تلوين الخليه النشطه في الشيت

نقدم لكم اليوم كود لتلوين الخليه النشطه بمجرد الضغط بالماوس حيث يسمح هذا الكود بمجرد الضغط بالماوس بتلوين الخليه النشطه و بمجرد الانتقال الي خليه اخري يتم الغاء اللون و يعود بدون لون فهذا الكود يساعد في التعامل مع شيتات العمل كبيره البينات الا ان المشكله في هذا الكود انه سيقوم بمسح التنسيقات الاساسيه للشيت و عليك اعاده تنسيق الشيت بعد انتهاء العمل

كيف يمكن اضافه الكود انتقل الي اسم الشيت و اضغط بزر الماوس الايمن و اختار view code ثم من القائمه الجانبيه اختر الشيت الذي تريد تنشيط هذا الكود به و قم بوضع الكود المرفق

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim rowNumberValue As Integer, columnNumberValue As Integer, i As Integer, j As Integer

' اجعل جميع خلايا ورقة العمل الحالية بدون لون

Cells.Interior.ColorIndex = 0 rowNumberValue = ActiveCell.Row columnNumberValue = ActiveCell.Column

' لون عمود الخلية الفعالة مابين الخلية الفعالة واسم العمود

For i = 1 To rowNumberValue Cells(i, columnNumberValue).Interior.ColorIndex = 19 Next i

' لون سطر الخلية الفعالة مابين الخلية الفعالة واسم العمود

For j = 1 To columnNumberValue Cells(rowNumberValue, j).Interior.ColorIndex = 19 Next j

End Sub

تستطيع التحكم في لون التظليل من خلال تغير القيمه للمتغير Interior.ColorIndex باحد الارقام التاليه

تغيير اللون المستخدم في هذا الكود:

يمكنك استخدام أي لون من الالوان الموجوده في القائمة التالية فقط استبدل رمز اللون في الكود ثم لاحظ أن القيمة 0 تعني لا لون.

تلوين الخليه النشطه في الشيت

و في الختام يتضح لنا بعض من امكانيات البسيطه التي يمكن ان ننفذها من خلال برمجه الاكسيل المتقدم و ننصحك بمزيد من الدروس في هذا المجال الشيق و يمكن متابعه المزيد من الافكار في هذا المجال من خلال تحميل افضل مرجع عربي لتعلم برمجه الاكسيل المتقدم

و لكن اذا كنت من المهتمين ببرمجه الاكسيس المتقدم تحميل كتاب استخدام الاكسيس في تصميم البرامج التجاريه يوجد به العديد من الافكار البرمجيه في مجال تصميم البرامج التجاريه و المحاسبيه

يمكنك ان تشاهد ايضا الدوال المبرمجه في الاكسيل