هل يمكن عمل كود بقوم بمسح كود

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم 

الساده الكرام 

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

هل يمكن عمل كود يقوم بمسح (كود 1 ) من محرر الاكواد بعد قيام ( كود 1 ) بوظيفته

او يقوم بمسح (كود 1) من محرر الاكواد بعد تاريخ محدد 

اى لا يظهر اثر ( لكود 1 ) من حبث الوجود فى الفيل

 

[أبوعيد]

السلام عليكم, لا أعلم هل يمكن أم لا , ولكن , لماذا تريد من الكود أن يمسح كودا آخرا ؟ , أعطنا الفكرة والهدف الذي تريد الوصول إليه , فلربما نفكر لك بطريقة غير الطريقة التي ذكرتها . تحياتي

[۩◊۩ أبو حنين ۩◊۩]

اخى الحبيب 

لدى كود بقوم بعمل ادراج اعمده وصفوف بعد يوم 1 فى شهر 4 من كل عام 

اريد ان امسحه بعد اتمام مهمته التى تتم فى يوم 1 من شهر 4

[رجب جاويش]

بعد إذن أخى الفاضل أبو عيد

 

أخى الفاضل أبو حنين

إليك طريقة حذف موديول عند تاريخ محدد

وهى كما يأتى

 

ضع هذا الكود فى حدث الـ 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

[سليم حاصبيا]

السلام عليكم

اخي أو ايمان 

يمكنك عمل ذلك من خلال الكود التالي:

() Sub delete_macro
Dim x as object
Set x=application.vbe.activevbproject.vbcomponents
("x.remove vbcomponents:=x.item(“textmodule
end sub

   textmodule

هو اسم الموديل المراد حذفه

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى رجب 

حاولت تنفيز الكود الا انه لم يمسح المطلوب

عيرت التاريخ الى #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

[۩◊۩ أبو حنين ۩◊۩]

اخى العزيز سليم 

ساكر استجابتك 

ارجو تنفبذ الكود على مرفق 

لانى لا اجد الشرط الذى سيقوم بالمسح على اساسه

[رجب جاويش]

أخى الفاضل / أبو حنين

الكود يعمل معى بشكل سليم

[أ/حكيم]

أكواد رائعة شكرا

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الجبيب رجب

جمعه مباركة عليك وعلى جميع الاعضاء الكرام 

مرفق الملف بعد تغير التاريخ

لعلى وقعت فى خطاء ... لا اعلم ما هو

ارجو النظر اليه

حذف موديول.rar

[رجب جاويش]

أخى الفاضل

الملف الذى أرفقته أنت يعمل معى بشكل سليم

[۩◊۩ أبو حنين ۩◊۩]

لا اجد ما اقوله ...

لست اعلم لماذا لا بهمل  يمسح الكود عندى

هل يوجد طريقه اخرى 

[۩◊۩ أبو حنين ۩◊۩]

للرفع

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخوة الكرام

لماذا لا يعمل ذلك الكود لديا

لقد صممة الاخ الفاضل رجب اكرمة الله 

الا انه لا يعمل لدى 

اين الخطاء

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اين الخطاء كون الملف لا يعمل لدى 

جزاك اللة خيرا

[رجب جاويش]

أخى الفاضل

بعد فتح الملف قم بادخال موديول جديد

سيكون اسمه موديول module2 بشكل افتراضى لأن الملف يحتوى على module1

ثم احفظ الملف واغلقه ثم افتحه مره أخرى

سوف تجد الموديول module2 تم  حذفه

[رجب جاويش]

أخى الفاضل

جرب هذه الطريقة لحذف كود معين داخل موديول

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

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم 

اخى رجب ... اعلم انى اثقلت عليك

جزاك الله كل الخير

اخى الحبيب 

الكود مش مرتبط بحدث الشيت ...

اى انه لم بنفذ بعد تاريخ محدد ... مثل الكود الذى ارفقته فى المشاركة 4

هلى يمكن تطبيق ذلك على ذلك الكود

جزاك الله كل الخير

[رجب جاويش]

أخى الفاضل

جرب الكود أولا كما هو

وأخبرنى هل يعمل أم لا

[محمود_الشريف]

أخى فى الله

استاذى القدير // رجب جاويش

بارك الله فيكم وجزاكم الله خير الخير

دمتم فى أمان الله وحفظه

وتقبل منى وافر الاحترام والتقدير

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

احى رجب

جزاك الله خيرا على تعبك معى

اخى الحبيب

عند تشغيل الكود يظهر هذا السطر خطاء لاتلون الاصفر

 

Sub ragab()

With ThisWorkbook.VBProject.VBComponents(Mod_Num).CodeModule

 .DeleteLines .ProcStartLine(Cod_Nam, 0), .ProcCountLines(Cod_Nam, 0)

End With

End Sub

[۩◊۩ أبو حنين ۩◊۩]

اين الخطاء

[۩◊۩ أبو حنين ۩◊۩]

اين الخطاء