تغير لون الخلية بتغير مافيها

[suheer_aws]

الاخوة الكرام السلام عليكم

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

الموضوع الاصلي في هذا الرابط http://www.officena.net/ib/index.php?showtopic=29254&st=20 من قبل الاخ عادل صادق مشكور

وسؤالي بعد ان عجزت عن فهمها كيف تم ذلك؟ وهل اذا كان مضمون الخلية حرف او او كلمة ان يتم تطبيق نفس الصيغة؟ اي تلون الخلية بتغير مافيها يعني التغير الاول يكون بلون احمر مثلا والتغير الثاني يكون بلون اصفر مثلا والتغير الثالث بلون اسود مثلا وهكذا لحد معين من مرات التغير غير محدود

وسارفه الملف للمشاركة الاصلية للاخ عادل صادق لتسهيل الامر عليكم

شكرا لتفاعلكم مع الموضوع

اختكم ام عبد الرحمن

Stock__Rate.rar

[hassannahid05]

السلام عليكم

أنت لم تقرأ الكود الذي وضعه لك في الملف وهذا هو وبسيط جدا لا يحتاج شرح

وشكرا

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("D2:D10000")) Is Nothing Then

If TargetVal = Target Then

Target.Interior.ColorIndex = xlNone

Target.Interior.Pattern = xlSolid

End If

If TargetVal > Target Then

Target.Interior.ColorIndex = 3

Target.Interior.Pattern = xlSolid

End If

If TargetVal < Target Then

Target.Interior.ColorIndex = 10

Target.Interior.Pattern = xlSolid

TargetVal = vbNullString

End If

End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("D2:D10000")) Is Nothing Then

TargetVal = Target

End If

End Sub