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

شريط الاخبار

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

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

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


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

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

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 تعني لا لون.
VB-Color-List

مواضيع ذات صله


الكلمات الدلاليه
تلوين الخليه النشطه في الشيت,دروس اكسيل
المصدر موقع viaexcel

ليست هناك تعليقات