suheer_aws قام بنشر أكتوبر 18, 2009 قام بنشر أكتوبر 18, 2009 الاخوة الكرام السلام عليكم قرأت في احد المواضيع في المنتدى معلومة استوقفتني واطلب منكم متفضلين شرحهاكما هي وشرحها مع تغير بسيط فيها الموضوع الاصلي في هذا الرابط http://www.officena.net/ib/index.php?showtopic=29254&st=20 من قبل الاخ عادل صادق مشكور وسؤالي بعد ان عجزت عن فهمها كيف تم ذلك؟ وهل اذا كان مضمون الخلية حرف او او كلمة ان يتم تطبيق نفس الصيغة؟ اي تلون الخلية بتغير مافيها يعني التغير الاول يكون بلون احمر مثلا والتغير الثاني يكون بلون اصفر مثلا والتغير الثالث بلون اسود مثلا وهكذا لحد معين من مرات التغير غير محدود وسارفه الملف للمشاركة الاصلية للاخ عادل صادق لتسهيل الامر عليكم شكرا لتفاعلكم مع الموضوع اختكم ام عبد الرحمن Stock__Rate.rar
hassannahid05 قام بنشر أكتوبر 18, 2009 قام بنشر أكتوبر 18, 2009 السلام عليكم أنت لم تقرأ الكود الذي وضعه لك في الملف وهذا هو وبسيط جدا لا يحتاج شرح وشكرا 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.