الصقر الحر قام بنشر أغسطس 26, 2015 مشاركة قام بنشر أغسطس 26, 2015 السلام عليكم كيف يمكن عمل دالة لمسح محتويات خلية آخرى بناء على شرط معين رابط هذا التعليق شارك More sharing options...
خالد الرشيدى قام بنشر أغسطس 26, 2015 مشاركة قام بنشر أغسطس 26, 2015 اخى الكريم طلبك غير واضح قم بادراج ملف اكسيل موضح فية طلبك تماماً ... وان شاء الله تجد المساعدة تقبل تحياتى 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 26, 2015 مشاركة قام بنشر أغسطس 26, 2015 ربما كود بهذا الشكل يفي بالغرض Sub Test() If Range("A1").Value = "No" Then Range("B1").ClearContents End Sub 4 رابط هذا التعليق شارك More sharing options...
الصقر الحر قام بنشر أغسطس 26, 2015 الكاتب مشاركة قام بنشر أغسطس 26, 2015 الأخ خالد الرشيدى مرفق ملف اكسيل مسح محتوى.rar رابط هذا التعليق شارك More sharing options...
خالد الرشيدى قام بنشر أغسطس 26, 2015 مشاركة قام بنشر أغسطس 26, 2015 اخى الكريم لا يمكن لمعادلة مسح محتويات خلية اخرى ولهذا لابد من استخدام الاكواد وقد افادك استاذنا القدير / ياسر خليل بالكود المطلوب تقبل تحياتى 1 رابط هذا التعليق شارك More sharing options...
الصقر الحر قام بنشر أغسطس 26, 2015 الكاتب مشاركة قام بنشر أغسطس 26, 2015 الأساتذة الأفاضل اشكركم أولا على الاهتمام وسرعة الاستجابة وجزاك الله خيرا المشكله انى اريد مسح المحتوى بمجرد الأختيار ولو استخدمت الكود محتاج تشغيله بعد الأختيار رابط هذا التعليق شارك More sharing options...
خالد الرشيدى قام بنشر أغسطس 26, 2015 مشاركة قام بنشر أغسطس 26, 2015 (معدل) اخى الكريم يمكن جعل الكود ينشط تلقائى عند تغير قيمة الخلية المرادة هنا D5 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub If Target.Address = "$D$5" Then If Target.Value = 4 Then Range("F5").ClearContents End If End Sub جرب المرفق مسح محتوى_2.rar تم تعديل أغسطس 26, 2015 بواسطه خالد الرشيدى 2 رابط هذا التعليق شارك More sharing options...
الصقر الحر قام بنشر أغسطس 26, 2015 الكاتب مشاركة قام بنشر أغسطس 26, 2015 الله ينور عليك أستاذنا الفاضل لو حبينا بقا نطب الكود على العمود من d6:d115 ويقوم بمسح المقابل له العمود F6:f115 كيف يكون الكود معلش تعبتك معاى رابط هذا التعليق شارك More sharing options...
خالد الرشيدى قام بنشر أغسطس 26, 2015 مشاركة قام بنشر أغسطس 26, 2015 استبدل الكود السابق بهذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub If Not Intersect(Target, Range("D6:D115")) Is Nothing Then If Target.Value = 4 Then Target.Offset(, 2).ClearContents End If End Sub 4 رابط هذا التعليق شارك More sharing options...
الصقر الحر قام بنشر أغسطس 26, 2015 الكاتب مشاركة قام بنشر أغسطس 26, 2015 الف شكر جزاك الله كل خير وزادك الله من علمه الكود جميل جدا مشاء الله ويعمل بشكل جميل جدا الف شكر 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها