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

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

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

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

 

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

 

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