اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

السلام عليكم

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

عند تحقيق اكبر من او تساوي 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