وعليكم السلام ورحمة الله وبركاته
غن طريق كود صغييييير
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim ws As Worksheet
Set ws = Me
ws.Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.Color = RGB(220, 230, 241)
Target.Interior.Color = RGB(255, 255, 150)
End Sub
ملف كمثال
تلوين صف وحلية.xlsb
اذا اردت تغيير اللون اليك قائمة بالالوان
أحمر فاتح: RGB(255, 200, 200)
أخضر فاتح: RGB(200, 255, 200)
أزرق فاتح: RGB(200, 220, 255)
أصفر فاتح: RGB(255, 255, 150)
برتقالي فاتح: RGB(255, 220, 180)
رمادي فاتح: RGB(220, 220, 220)
بنفسجي فاتح: RGB(230, 200, 255)
سماوي: RGB(180, 240, 255)
تحياتي