نظليل الموظف المستلم راتبه

[amenbkr]

السلام عليكم

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

ولكم جزيل الشكر

sa.xlsx

[عبدالله بشير عبدالله]

وعليكم السلام ورحمة الله وبركاته

اليك الحل بطريقتين 

الاولى - بالتنسيق الشرطي Sheet1

اللون الاحمر 

=AND(A1<>""; OR(A2=""; A2=0))

اللون الاخضر 

=AND(A1<>""; A2<>""; A2<>0)

الثانية - كود في حدث الورقة SHEET2

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("A2:ZZ2")) Is Nothing Then
        
        Dim r As Range
        For Each r In Intersect(Target, Range("A2:ZZ2"))
            
            If r.Offset(-1, 0).Value <> "" Then
                
                If r.Value <> "" And r.Value <> 0 Then
                    r.Offset(-1, 0).Interior.Color = vbGreen
                Else
                    r.Offset(-1, 0).Interior.Color = vbRed
                End If
            
            Else
                r.Offset(-1, 0).Interior.ColorIndex = xlNone
            End If
        
        Next r
    
    End If

End Sub

الملف

sa1.xlsb

تم تعديل منذ 3 ساعات بواسطه عبدالله بشير عبدالله

[amenbkr]

كل الشكر استاذ غبد الله جزاك الله خيرا