elsedik قام بنشر أبريل 2, 2012 مشاركة قام بنشر أبريل 2, 2012 ازاى اجعل لو كانت اى خلية فى المدى 1 فيها قيمة اكبر من 1 بيقى الخلية المجاورة فى المدى رقم 2 تساوى صفر والعكس مرفق ملف المدى .rar رابط هذا التعليق شارك More sharing options...
Ahmed Elbhiry قام بنشر أبريل 2, 2012 مشاركة قام بنشر أبريل 2, 2012 تفضل اخى اما الشرط الثانى غير مفهوم المدى1.rar رابط هذا التعليق شارك More sharing options...
elsedik قام بنشر أبريل 2, 2012 الكاتب مشاركة قام بنشر أبريل 2, 2012 الاستاذ احمد هذا هو المطلوب جزاك الله كل خير هل ممكن الحل باستخدام الكود ام بالنسبة للشرط الثانى فهو غير مطلوب رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر أبريل 2, 2012 مشاركة قام بنشر أبريل 2, 2012 تفضل أخى حل بالكود المدى3.rar رابط هذا التعليق شارك More sharing options...
elsedik قام بنشر أبريل 2, 2012 الكاتب مشاركة قام بنشر أبريل 2, 2012 اخى الفاضل أ/ رجب طيب انا لو عاوز اضيف قيمة فى اى خلية فى المدى رقم 2 وتكون الخلية المجاورة فى المدى رقم 1 تساوى صفر اعمل اية وشكرا على الرد رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أبريل 3, 2012 مشاركة قام بنشر أبريل 3, 2012 (معدل) السلام عليكم بعد اذن الاستاذ الحبيب رجب جاويش بيكون هكذا للحالة الأخيرة Private Sub Worksheet_Change(ByVal T_A As Range) On Error Resume Next If Not Intersect(T_A, [C2:C100]) Is Nothing Then If T_A.Value > 1 Then _ T_A.Offset(0, -1) = 0 Else: T_A.Offset(0, -1) = Empty End Sub الحالة الأولى والثانية Private Sub Worksheet_Change(ByVal T_A As Range) On Error Resume Next ''============================================================================ 'If Not Intersect(T_A, [B2:B100]) Is Nothing Then If T_A.Value > 1 Then _ ' T_A.Offset(0, 1) = 0 Else: T_A.Offset(0, 1) = Empty ''============================================================================ If Not Intersect(T_A, [C2:C100]) Is Nothing Then If T_A.Value > 1 Then _ T_A.Offset(0, -1) = 0 Else: T_A.Offset(0, -1) = Empty ''============================================================================ End Sub تم تعديل أبريل 3, 2012 بواسطه alidroos رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر أبريل 3, 2012 مشاركة قام بنشر أبريل 3, 2012 االأخ الفاضل / العيدروس ( أبو نصار ) دايما سباق بالخير والعلم النافع جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.