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

[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

تم تعديل ديسمبر 11 بواسطه عبدالله بشير عبدالله

[amenbkr]

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

 

[elmansyeswa]

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

[amenbkr]

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

sa1 (1).xlsb

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

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

لا مشكلة اخي الفاضل 

جرب التعديل التالي

sa1 (2).xlsb

 

 

 

[amenbkr]

اشكرك استاذ عبد الله على المساعده ولكن احتاج الى تعديل بسيط ارسل لك ملف الاساسي عند وضع رقم 0 يصبج الرقك والاسم باللون الاحمر وعند وضع رقم 1 يصبج اللون اخضر وعند حذف الرقم او ووضع رقم 2 يعود الاسم والرقم بلا لونaaaa.xlsm

aaaa.xlsm

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

اليك التعديل حسب طلبك الاخير مع ملاخظة ان :-

• صفوف الأسماء تكون في الصفوف  = 6، 8، 10، 12، 14… وهكذا وهي التي يتم تلوينها

• صفوف الرواتب او الاختيار من القائمة تكون في الصفوف= 7، 9، 11، 13، 15… وهكذا

• aaaa1.xlsm

[amenbkr]

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

تم تعديل الثلاثاء at 13:05 بواسطه amenbkr

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

اليك ما طلبت بالتنسيق الشرطي

 

aaaa2.xlsm