سؤال-Private Sub Workbook_SheetChange

[إبراهيم ابوليله]

الاخوه الافاضل

هذا الكود يقوم بضبط عرض العمود

على حسب البيان المدخل فى الخليه

ولكن المشكله ان الكود ده بيوقف خاصيه

التراجع UNDO

هل هناك وسيله للتغلب على ذلك

وجعل هذه الخاصيه تعمل

Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Excel.Range)
Application.ScreenUpdating = False
ActiveSheet.Columns(Target.Column).AutoFit
Application.ScreenUpdating = True
End Sub

تقبلو تحياتى

[صلاح الصغير]

ا / ابراهيم

 الله عليك و لا فى الخيال

حركة جميلة و رائعة و ترحمنا كتير من تنسيق كل عمود على حدة

بارك الله فيك

و فى انتظار المزيد

[ياسر خليل أبو البراء]

أنا شخصياً لا أحبذ التعامل مع أكواد حدث المصنف أو حدث ورقة العمل إلا للضرورة القصوى

التراجع في التعامل مع الأكواد أمر معقد إلى حد ما (هذا مجرد رأي شخصي) وننتظر الأخوة الأعضاء كل يدلي بدلوه

[عبدالله المجرب]

اعتقد أنه بعد تفعيل الكود لا يمكن عمل تراجع والحل الوحيل لو حصل خطاء هو إغلاق المصنف دون حفظ

والله أعلم

[ياسر خليل أبو البراء]

الأخ الحبيب عبد الله أوحى لي بفكرة

أن يتم عمل ماكرو يقوم بإغلاق الملف دون حفظ ودون رسالة تنبيه ثم يقوم بفتحه !! النقطة الأخيرة دي مش متأكد منها.. أعتقد أن الأخ مختار حسين قد قام بمثل هذا الأمر من قبل ، فلننتظر رأيه

[مختار حسين محمود]

والله مشغول أخى ياسر فى موضوع القرائية وادخال البيانات لقاعدة الوزارة

رابط التراجع عن تنفيذ الماكرو

http://www.officena.net/ib/index.php?showtopic=57976

 

بعيد عن الموضوع ده شوفت الموضوع ده  مشاركة 12  عايز رد سريع  لأن عندى  win7_32

الكود بالفعل يعمل على win7_32 وأريد التأكد من عمل الكود على win7_64 

http://www.officena.net/ib/index.php?showtopic=59963

تم تعديل أبريل 24, 2015 بواسطه مختار حسين محمود