۩◊۩ أبو حنين ۩◊۩ قام بنشر مايو 29, 2014 مشاركة قام بنشر مايو 29, 2014 السلام عليكم الساده الكرام والاخوه الافاضل هل يمكن عمل كود يقوم بمسح (كود 1 ) من محرر الاكواد بعد قيام ( كود 1 ) بوظيفته او يقوم بمسح (كود 1) من محرر الاكواد بعد تاريخ محدد اى لا يظهر اثر ( لكود 1 ) من حبث الوجود فى الفيل رابط هذا التعليق شارك More sharing options...
أبوعيد قام بنشر مايو 29, 2014 مشاركة قام بنشر مايو 29, 2014 السلام عليكم, لا أعلم هل يمكن أم لا , ولكن , لماذا تريد من الكود أن يمسح كودا آخرا ؟ , أعطنا الفكرة والهدف الذي تريد الوصول إليه , فلربما نفكر لك بطريقة غير الطريقة التي ذكرتها . تحياتي رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر مايو 29, 2014 الكاتب مشاركة قام بنشر مايو 29, 2014 اخى الحبيب لدى كود بقوم بعمل ادراج اعمده وصفوف بعد يوم 1 فى شهر 4 من كل عام اريد ان امسحه بعد اتمام مهمته التى تتم فى يوم 1 من شهر 4 رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مايو 29, 2014 مشاركة قام بنشر مايو 29, 2014 بعد إذن أخى الفاضل أبو عيد أخى الفاضل أبو حنين إليك طريقة حذف موديول عند تاريخ محدد وهى كما يأتى ضع هذا الكود فى حدث الـ WORKBOOK Const Dat = #5/31/2014# Const mod_num = 1 Private Sub Workbook_Open() On Error Resume Next If Date >= Dat Then With ActiveWorkbook.VBProject.VBComponents .Remove .Item("Module" & mod_num) End With End If End Sub ومن السطر الأول فى الكود حدد التاريخ الذى تريده Const Dat = #5/31/2014# ومن السطر الثانى حدد رقم الموديول الذى تريد حذفه Const mod_num = 1 حذف موديول.rar 3 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مايو 29, 2014 مشاركة قام بنشر مايو 29, 2014 السلام عليكم اخي أو ايمان يمكنك عمل ذلك من خلال الكود التالي: () Sub delete_macro Dim x as object Set x=application.vbe.activevbproject.vbcomponents ("x.remove vbcomponents:=x.item(“textmodule end sub textmodule هو اسم الموديل المراد حذفه 1 رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر مايو 29, 2014 الكاتب مشاركة قام بنشر مايو 29, 2014 السلام عليكم اخى رجب حاولت تنفيز الكود الا انه لم يمسح المطلوب عيرت التاريخ الى #4/25/2014# ولم بقم بالمطلوب اين الخطاء Const Dat = #4/25/2014# Const mod_num = 1 Private Sub Workbook_Open() On Error Resume Next If Date >= Dat Then With ActiveWorkbook.VBProject.VBComponents .Remove .Item("Module" & mod_num) End With End If End Sub رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر مايو 29, 2014 الكاتب مشاركة قام بنشر مايو 29, 2014 اخى العزيز سليم ساكر استجابتك ارجو تنفبذ الكود على مرفق لانى لا اجد الشرط الذى سيقوم بالمسح على اساسه رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مايو 29, 2014 مشاركة قام بنشر مايو 29, 2014 أخى الفاضل / أبو حنين الكود يعمل معى بشكل سليم رابط هذا التعليق شارك More sharing options...
أ/حكيم قام بنشر مايو 29, 2014 مشاركة قام بنشر مايو 29, 2014 أكواد رائعة شكرا رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر مايو 30, 2014 الكاتب مشاركة قام بنشر مايو 30, 2014 السلام عليكم اخى الجبيب رجب جمعه مباركة عليك وعلى جميع الاعضاء الكرام مرفق الملف بعد تغير التاريخ لعلى وقعت فى خطاء ... لا اعلم ما هو ارجو النظر اليه حذف موديول.rar رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مايو 30, 2014 مشاركة قام بنشر مايو 30, 2014 أخى الفاضل الملف الذى أرفقته أنت يعمل معى بشكل سليم رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر مايو 30, 2014 الكاتب مشاركة قام بنشر مايو 30, 2014 لا اجد ما اقوله ... لست اعلم لماذا لا بهمل يمسح الكود عندى هل يوجد طريقه اخرى رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر مايو 30, 2014 الكاتب مشاركة قام بنشر مايو 30, 2014 للرفع رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر مايو 31, 2014 الكاتب مشاركة قام بنشر مايو 31, 2014 السلام عليكم الاخوة الكرام لماذا لا يعمل ذلك الكود لديا لقد صممة الاخ الفاضل رجب اكرمة الله الا انه لا يعمل لدى اين الخطاء رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر مايو 31, 2014 الكاتب مشاركة قام بنشر مايو 31, 2014 السلام عليكم اين الخطاء كون الملف لا يعمل لدى جزاك اللة خيرا رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مايو 31, 2014 مشاركة قام بنشر مايو 31, 2014 أخى الفاضل بعد فتح الملف قم بادخال موديول جديد سيكون اسمه موديول module2 بشكل افتراضى لأن الملف يحتوى على module1 ثم احفظ الملف واغلقه ثم افتحه مره أخرى سوف تجد الموديول module2 تم حذفه رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مايو 31, 2014 مشاركة قام بنشر مايو 31, 2014 أخى الفاضل جرب هذه الطريقة لحذف كود معين داخل موديول Const Mod_Num = "Module2" Const Cod_Nam = "Test" Sub ragab() With ThisWorkbook.VBProject.VBComponents(Mod_Num).CodeModule .DeleteLines .ProcStartLine(Cod_Nam, 0), .ProcCountLines(Cod_Nam, 0) End With End Sub فى السطر الأول تحدد اسم الموديول الذى يحتوى على الكود Const Mod_Num = "Module2" فى السطر الثانى تحدد اسم الكود المراد حذفه Const Cod_Nam = "Test" وسوف تجد فى الملف المرفق مثال لذلك ملحوظة : لكى يعمل الكود بشكل سليم قم بعمل الأتى من محرر الأكواد اختار References من قائمة tools ثم ضع علامة صح أمام الإختيار Microsoft Visual Basic For Applications Extensibility حذف كود فقط.rar 1 1 رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر مايو 31, 2014 الكاتب مشاركة قام بنشر مايو 31, 2014 السلام عليكم اخى رجب ... اعلم انى اثقلت عليك جزاك الله كل الخير اخى الحبيب الكود مش مرتبط بحدث الشيت ... اى انه لم بنفذ بعد تاريخ محدد ... مثل الكود الذى ارفقته فى المشاركة 4 هلى يمكن تطبيق ذلك على ذلك الكود جزاك الله كل الخير رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مايو 31, 2014 مشاركة قام بنشر مايو 31, 2014 أخى الفاضل جرب الكود أولا كما هو وأخبرنى هل يعمل أم لا رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر يونيو 1, 2014 مشاركة قام بنشر يونيو 1, 2014 أخى فى الله استاذى القدير // رجب جاويش بارك الله فيكم وجزاكم الله خير الخير دمتم فى أمان الله وحفظه وتقبل منى وافر الاحترام والتقدير رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر يونيو 1, 2014 الكاتب مشاركة قام بنشر يونيو 1, 2014 السلام عليكم احى رجب جزاك الله خيرا على تعبك معى اخى الحبيب عند تشغيل الكود يظهر هذا السطر خطاء لاتلون الاصفر Sub ragab() With ThisWorkbook.VBProject.VBComponents(Mod_Num).CodeModule .DeleteLines .ProcStartLine(Cod_Nam, 0), .ProcCountLines(Cod_Nam, 0) End With End Sub رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر يونيو 1, 2014 الكاتب مشاركة قام بنشر يونيو 1, 2014 اين الخطاء رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر يونيو 2, 2014 الكاتب مشاركة قام بنشر يونيو 2, 2014 اين الخطاء رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان