كود صغير جدا و لكن مفيد جدا_تلوين صف الخلية النشطة او الخلية فقط

[جلال الجمال_ابو أدهم]

تم رفع هذا الكود فى مشاركة منفصله

حتى لا ننسى هذه المشاركة   كود رائع يمشى معك كظلك داخل الورقة

 

تم ارفاق الكود من الفاضل أ / h63

 

كود تلوين صف الخلية النشطة

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Sh.Cells.Interior.ColorIndex = xlNone
    If Target.Cells.Count = 1 Then
        With Rows(Target.Row).Interior
            .ColorIndex = 8
            .Pattern = xlSolid
        End With
    End If
End Sub

 

كود تلوين الخلية النشطة و عدم تلوين عند الكابس مرة اخرى

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Selection) Is Nothing Then
If Target.Interior.ColorIndex = 34 Then
Target.Interior.ColorIndex = 0
Else
Target.Interior.ColorIndex = 34
End If
End If
End Sub

مرفق الملف و الشرح

New_Folder.rar

و لا تنسونا من صالح الدعاء

تحياتى

 

تم تعديل يناير 17, 2017 بواسطه جلال الجمال_ابو أدهم