اريد كود يقوم بمسح كود آخر في نفس الملف ولكن في موديل آخر

[رائد 1982]

اريد كود يقوم بمسح كود آخر في نفس الملف ولكن في موديل آخر

 

سأحاول شرح المطلوب بدقة

 

لدي ملف اكسيل به في محرر الاكواد اكثر من موديل مثلا Module1 و Module2 و Module3

اريد وضع كود في Module1 يقوم بمسح جميع محتويات واسطر Module2 وذلك عن طريق زر في صفحة الاكسيل

ولا يوجد مثال معين ولكن يتم تنفيذه علي اي كود بحذف كود باستخدام كود علما بأن Module2 به اكثر من كود

مثلا يكون كالتالي

sub dd()
userform1.show
end sub 
'------------------------------------------------------------------
sub ss()
userform2.show
end sub 
'-----------------------------------------------------------------
sub ggg()
sheets("main").select
end sub 

وهذه مثلا تكون محتويات  Module2

 

مع ملاحظة ان المطلوب هو مسح البيانات الموجودة في Module2  ( كل الكواد والماكروهات ) الموجودة فيه وليس مسحه هو نفسه

اي يبقي Module2 في الملف بعد تنفيذ الكود فارغا نهائيا عند الضغط علي الزر المخصص لذلك

 

ارجو ان اكون قد وضضحت الفكرة تماما

في انتظار الرد

تم تعديل نوفمبر 4, 2013 بواسطه رائد 1982

[حمادة باشا]

الأستاذ/ رائد

السلام عليكم ورحمة الله وبركاته

تفضل - مع بعض الملاحظات :

1- يقوم الكود بحذف جميع محتويات Module1 وللتغيير إلي Module2 غير الأسم في الكود

2- لابد من وضع علامة صح أمام الخيار الأخير في أمان الماكرو - إصدار 2007 - أو مايقابله في الإصدارات الأخري

    نص الخيار (Trust access to the VBA project object model)

3- قد يتطلب الأمر إدراج بعض المراجع - ولكن جرب وأخبرني بالنتيجة .

 

Book1_Del_module.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم /  رائد 1982

بارك الله فيك

وبعد اذن اخي الحبيب /  حمادة باشا ... الراائع دوما ... جزاه الله خيرا

ولاثراء الموضوع ... يمكن استخدام كود بسيط لتفيذ ذلك

وفعلا بنفس الفكرة المقدمة من اخي / حمادة باشا  .. ولكن بكود ابسط واقل

واظن انه لا يحتاج الي تفعيل نص الخيار (Trust access to the VBA project object model)

ولكن بالتأكيد من الافضل تفعيله دائما

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

Sub SAMA_DELL_MACRO()
On Error Resume Next
With ThisWorkbook.VBProject.VBComponents("Module2").CodeModule
    .DeleteLines 1, .CountOfLines
End With
End Sub

تقبلوا تحياتي

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

[رائد 1982]

الاستاذ القدير / حمادة باشا

بارك الله فيك علي سرعة الاستجابة العالية مما ينم علي شخصكم الكريم

وحبك مساعدة تلاميذك

ولكن عذرا استاذ الملف لا يفتح لدي حيث انه ليس لدي الا اصدار 2003

فبرجاء ارسال الملف او الكود 2003

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

[رائد 1982]

الاستاذ القدير الحبيب / حمادة عمر

بارك الله فيك

لقد حاولت مراسلتك علي الخاص بشأن هذا الموضوع ولم استطع

حيث كنت قد طلبته من سيادتكم قبل فترة طويله وقمت بارساله لي

ولكن حدث للجهاز لدي فورمات ولم يمكنني من العثور عليه بالطبع

 

وفعلا هو تقريبا نفس الكود .. وقد تم تجربته الآن وبالفعل يؤدي نفس الغرض المطلوب له

الف مليون شكر وتحيه لشخصكم الكريم

 

وبالطبع كل الشكر والتقدير والتحيه للكبير ايضا / حمادة باشا

وانا في انتظار ملفه للاستفادة منه بكل تأكيد

بارك الله لنا فيكم

وجزاكم الله عنا كل خير

[حمادة عمر]

السلام عليكم

الاخ الكريم / رائد 1982

بارك الله فيك

وجزاك الله خيرا علي كلماتك الجميلة

وان شاء الله ساقدم موضوعا لكود لاضافة ازرار مستخدم به هذا الكود

ارجو ان ينال اعجابك

تقبل خالص تحياتي

[حمادة باشا]

السلام عليكم

الاخ الكريم /  رائد 1982

بارك الله فيك

وبعد اذن اخي الحبيب /  حمادة باشا ... الراائع دوما ... جزاه الله خيرا

ولاثراء الموضوع ... يمكن استخدام كود بسيط لتفيذ ذلك

وفعلا بنفس الفكرة المقدمة من اخي / حمادة باشا  .. ولكن بكود ابسط واقل

واظن انه لا يحتاج الي تفعيل نص الخيار (Trust access to the VBA project object model)

ولكن بالتأكيد من الافضل تفعيله دائما

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

Sub SAMA_DELL_MACRO()
On Error Resume Next
With ThisWorkbook.VBProject.VBComponents("Module2").CodeModule
    .DeleteLines 1, .CountOfLines
End With
End Sub

تقبلوا تحياتي

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

 

الأستاذ الفاضل/ حمادة عمر

السلام عليكم ورحمة الله وبركاته

أدركتنا بالحل - حيث أنه هو عين طلب أخونا/ رائد ولم يتمكن من مراسلتك علي النحو الذي أوضحه

تقبل تحياتي

 

الاستاذ القدير / حمادة باشا

بارك الله فيك علي سرعة الاستجابة العالية مما ينم علي شخصكم الكريم

وحبك مساعدة تلاميذك

ولكن عذرا استاذ الملف لا يفتح لدي حيث انه ليس لدي الا اصدار 2003

فبرجاء ارسال الملف او الكود 2003

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

 

الأخ الكريم/ رائد

السلام عليكم ورحمة الله وبركاته

لم أكن أعرف أن الإصدار لديك 2003 - ومرفق لك نفس الملف محفوظ كإصدار 2003

ولا أعلم إن كان سيعمل أم لا - حيث تختلف المكونات والمراجع من إصدار إلي آخر

تقبل تحياتي

Book1_Del_module.rar

[حمادة عمر]

السلام عليكم

الاخ الحبيب / حمادة باشا

بارك الله فيك

تقبل خالص تحياتي