عمل مسطرة تظليل افقي وراسي

[السيد_ابو محمد]

اخوتنا الافاضل اريد طريقة لتظليل الخلية التى اقف عليها بلون سواء للأعمدة او السطور وجزاكم الله كل الخير وشكر الله لكم جهدكم

[الـعيدروس]

السلام عليكم

حط هذا الكود في حدث الورقة

Public Colr_Row As Range

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

If Not Intersect(Target, Range("A2:M100")) Is Nothing Then

On Error Resume Next

    If Not Colr_Row Is Nothing Then

	    Colr_Row.EntireRow.Interior.ColorIndex = xlNone

	    Colr_Row.EntireColumn.Interior.ColorIndex = xlNone

    End If

    '=================================

    ' من أول عمود في المدى إلى اخر عمود

    Range(Cells(Target.Row, 1), Cells(Target.Row, "M")).Interior.Color = RGB(245, 232, 168)

    Target.EntireColumn.Interior.Color = RGB(215, 228, 188)

    '=================================

    Application.EnableEvents = False

    Target.Interior.Color = RGB(255, 151, 168)

    Application.EnableEvents = True

    Set Colr_Row = Target

End If

End Sub

[أبو أنس80]

انا استفيد اشكرك

الله طول عمرك

[منياوى]

جزاكم الله الف خير