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

[عطاء الله]

اريد التنسيق الشرطي في الجدول حسب الخلية  وشرح يوجد في الملف المرفق

التنسيق.rar

تم تعديل أكتوبر 31, 2013 بواسطه عطاء الله

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

السلام عليكم

 

جرب هذا الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim S As String
If Intersect(Range("H7:H11"), Target) Is Nothing Then
    S = " "
Else
    S = Range("G7:G11").Item(Target.Row - 6)
End If
ThisWorkbook.Names("kh_tst").RefersTo = S
End Sub

المرفق 2010

التنسيق.rar

[عطاء الله]

هذا هو المطلوب بارك الله فيك يأستاذ عبد الله بقسير

[عطاء الله]

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