إبراهيم ابوليله قام بنشر مارس 4, 2015 مشاركة قام بنشر مارس 4, 2015 الاخوه الافاضل ارجو المساعده فى الخطا الذى يحدث تقبلو تحياتى ERR.rar رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر مارس 4, 2015 مشاركة قام بنشر مارس 4, 2015 السلام عليكم الخطئ في هذا السطر If Not Intersect(Target, Range("a2") & lastColumn) Is Nothing Then يجب ان تكون هكذا If Not Intersect(Target, Range("a2:g2" & lastColumn)) Is Nothing Then 2 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مارس 4, 2015 مشاركة قام بنشر مارس 4, 2015 بارك الله فيك أخي الغالي شوقي مجرد هفوة صغيرة جدا If Not Intersect(Target, Range("a2:g2" & lastColumn)) Is Nothing Then يجب أن يحذف الرقم 2 من g2 If Not Intersect(Target, Range("a2:g" & lastColumn)) Is Nothing Then تقبل تحياتي 3 رابط هذا التعليق شارك More sharing options...
محمد لطفى قام بنشر مارس 4, 2015 مشاركة قام بنشر مارس 4, 2015 ماشاء الله لماح 1 رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر مارس 5, 2015 الكاتب مشاركة قام بنشر مارس 5, 2015 اخى واستاذنا شوقى اخى ياسر اشكركم على متابعة الموضوع ولكنى كنت اريد ان اعرف هل ينفع استخدام الكود بالشكل الاتى If Not Intersect(Target, Range("a2" & lastColumn)) Is Nothing Then حيث ان الغرض من اضافه السطر الخاص بالحصول على اخر عمود lastColumn الى الكود هو عدم تحديد الخلايا فى الكود وان يكون عمل الكود حتى اخر عمود به بيانات والا فما الفرق بين السطر الاتى If Not Intersect(Target, Range("a2:g" & lastColumn)) Is Nothing Then والسطر التالى If Not Intersect(Target, Range("a2:g2")) Is Nothing Then تقبلو تحياتى رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر مارس 5, 2015 الكاتب مشاركة قام بنشر مارس 5, 2015 للرفع رابط هذا التعليق شارك More sharing options...
أفضل إجابة شوقي ربيع قام بنشر مارس 5, 2015 أفضل إجابة مشاركة قام بنشر مارس 5, 2015 السلام عليكم فرضا ان lastColumn =50 فالنتيجة الحتمية ل Range("a2") & lastColumn هي Range("a2") 50 ماهذا لا تعني شيئ اذا الفيوجل يعتبرها خطاء اما لو كتبنا Range ("a2" & lastColumn) النتيجة تكون Range ("a250") هذا صحيح لاكنه ليس الذي تريده اليس كذالك لانه عندما نرجع الى الصيغة العامة للكود If Not Intersect(Target, Range("a2" & lastColumn)) Is Nothing Then والذي معناه انه اذا حدث اي تحديد او تغير في المدى الذي اخترته والذي وجدنا نتيجته Range ("a250") منه النتيجة الحتمية تكون الكود يشتغل فقط عند تحديد او حدوث تغير في الخلية a250 اما سؤالك بخصوص الفرق بين If Not Intersect(Target, Range("a2:g" & lastColumn)) Is Nothing Then وبين If Not Intersect(Target, Range("a2:g2")) Is Nothing Then ببساطة هو انه مثل ماقنا في الاول ستكون نتيجة الكود الاول سيطبق على المدى Range("a2:g50" بافترضنا انا lastColumn =50 وهو المطلوب والصحيح اما الكود الثاني فالمدى واضحRange("a2:g2") ولك الحكم ارجو ان يكون قد تم التوضويح بشكل مفهوم تحياتي للجميع رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر مارس 5, 2015 الكاتب مشاركة قام بنشر مارس 5, 2015 اخى شوقى اشكرك على التوضيح تقبل تحياتى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها