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

[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

تم تعديل الخميس at 13:04 بواسطه عبدالله بشير عبدالله

[amenbkr]

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

 

[elmansyeswa]

بارك الله فيك وجعله بميزان حسناتك

[amenbkr]

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

sa1 (1).xlsb