زوبير عقاب قام بنشر أغسطس 1, 2016 مشاركة قام بنشر أغسطس 1, 2016 مثلا عند كتابة الرقم 2 في الخلية A1 يظهر الرقم 2 و عند كتابة أي رقم آخر لا يظهر. بارك الله في الجميع. رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 1, 2016 مشاركة قام بنشر أغسطس 1, 2016 جرب الكود التالي في حدث ورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then If Target.Value <> 2 Then Application.EnableEvents = False Target.ClearContents Application.EnableEvents = True End If End If End Sub 3 رابط هذا التعليق شارك More sharing options...
الطـاهر قام بنشر أغسطس 1, 2016 مشاركة قام بنشر أغسطس 1, 2016 منذ ساعه, ياسر خليل أبو البراء said: جرب الكود التالي في حدث ورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then If Target.Value <> 2 Then Application.EnableEvents = False Target.ClearContents Application.EnableEvents = True End If End If End Sub رائع 3 رابط هذا التعليق شارك More sharing options...
زوبير عقاب قام بنشر أغسطس 1, 2016 الكاتب مشاركة قام بنشر أغسطس 1, 2016 بارك الله فيكم أخي ياسر. 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 1, 2016 مشاركة قام بنشر أغسطس 1, 2016 الحمد لله أن تم المطلوب على خير وجزيتم خيراً على دعائكم الطيب 1 رابط هذا التعليق شارك More sharing options...
زوبير عقاب قام بنشر أغسطس 1, 2016 الكاتب مشاركة قام بنشر أغسطس 1, 2016 أرجو أن يرسل في ملف لأن العملية لم تنجح معي رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 6, 2016 مشاركة قام بنشر أغسطس 6, 2016 ارفق الملف الذي تعمل عليه ..لربما يوجد خلايا مدمجة أو خلافه رابط هذا التعليق شارك 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.