التنسيق الشرطي

[Abou Yazeed]

الأساتذة الأعزاء 

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

مرفق لكم ملف بسيط 

المشكلة عند تنسيق شرطي لصف كامل بناءا على قيمة خلية معينة 

عندما تكون الخلية فارغة يظهر له تنسيق أحد الشروط 

والمطلوب أنه اذا كانت الخلية فارغة يكون لون التنسيق للصف كامل 

نفس لون الجدول الأساسي (بدون تنسيق شرطي)

تنسيق شرطي.xlsx

[حسين مامون]

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

ربما هذا الكود في حدث الشيت يفي بالغرض

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim Rng
Set Rng = Range("j1:j100000")
If Not Intersect(Target, Rng) Is Nothing Then
If Target = "" Then
    Target.Offset(, -9).Resize(1, 10).Interior.Color = xlNone
ElseIf Target <= 5 Then
    Target.Offset(, -9).Resize(1, 10).Interior.Color = 10086143
ElseIf Target <= 10 Then
     Target.Offset(, -9).Resize(1, 10).Interior.Color = 8420607
ElseIf Target Then
      Target.Offset(, -9).Resize(1, 10).Interior.Color = 10479044

End If
End If
End Sub

 

تم تعديل أكتوبر 26, 2021 بواسطه حسين مامون

[Abou Yazeed]

اشكرك اخي العزيز 

هل يمكن تنفيذ ذلك دون VB 

لان الملف عندي رايح يعمل على عدد كبير من الأجهزة 

اظن إذا فيه كود لابد من تفعيل الماكرو في كل جهاز

[أ / محمد صالح]

يمكنك استعمال هذه المعادلات في التنسيق الشرطي

مع مراعاة الفاصلة أو الفاصلة المنقوطة

بالتوفيق

[Abou Yazeed]

تسلم استاذ محمد 

حاولت أكتب المعادلة يرفض 

تكرما إذا أمكن تنسخ المعادلة أو تكتبها في الملف المرفق 

وجزاك الله خير 

[ابو ايسل]

تفضل اخي هذا التنسيق الذي وضعه أ / محمد صالح تم تطبيقه على الملف المرفق

تنسيق شرطي.xlsx

[Abou Yazeed]

تسلم تسلم 

جزاك الله خير الجزاء

ضبط 100%