اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم

قمت بعمل خلية وفق المعادلة التالية 

عند تحقيق اكبر من او تساوي 100 % تظهر الخلية باللون الاخضر

عند تحقيق اقل من 100% تظهر الخلية في اللون الاحمر

السؤال اذا كانت الخلية فارغة لم اضع فيها معادلات واريدها ان تبقى بيضاء حتى اضع المعادلات فيها كيف الطريقة 

صورة للتوضيح 

شهر مارس اريده يكون ابيض حتى اضع نتيجته 

 

632876390_2021-01-16(3).png.8742a098154af83319629c2403f20802.png

قام بنشر

ويمكنك استخدام الكود في حدث الشيت

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("a2:l2")) Is Nothing Then
        If Not IsNumeric(Target.Value) And Target.Value <> vbNullString Then
        Target.Interior.Color = xlNone
        GoTo 1
        End If
        '=================
        If Target >= 100 Then
        Target.Interior.Color = 255
        End If
        '==================
        If Target < 100 Then
        Target.Interior.Color = 5296274
        
        End If
End If
1:
End Sub

 

image.png.cb4261feb742e710e3ea066f032ae9bf.png

  • Like 1
  • Thanks 1
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information