كيف تشغيل ماكرو على كل الشيتات ؟

[عبد الله هُربي]

السلام عليكم ..

لدي كود VBA قمت بتشغيله على احد الشيتات من خلال محرر الفيجوال البيسك في الاكسل .. لكن المشكلة كيف اخليه على كل الشيتات وليس على شيت واحد ..

لانه لدي الكثير من الشيتات .. والكود هو يقوم بإضافة التاريخ بشكل تلقائي اذا قمت بالكتابة في خليه محدده .

هل من افادة ؟؟

[رجب جاويش]

أخى الفاضل

أهلا بك فى المنتدى

الرجاء ارفاق ملف توضح به ما تريد

[جمال الفار]

اخى عبدالله

ارفق ملف كما قال اخى رجب

ووضح فيه المطلوب

ونورت المنتدى ومرحبا بك عضوا جديدا فى اسرتنا اوفيسنا

وفقكم الله

اخيك /جمال الفار

[عبد الله هُربي]

مرحباً ..

هذا الكود الذي يقوم بالغرض :

http://www.mrexcel.com/archive/Dates/29888.html

استطعت تطبيقة بنجاح في الاكسل .. لكن على شيت واحد فقط .. كيف اجعله على كل الشيتات ؟؟

واشكركم على كرمكم ..

[رجب جاويش]

هل تقصد هكذا

Now.rar

[عبد الله هُربي]

نعم نعم ، هذا ما قصدته بالضبط .. كيف يمكنني ذلك ؟؟

[رجب جاويش]

يتم ذلك أخى الفاضل كما فى الملف السابق

بوضع الكود فى حدث الـ Workbook كالآتى

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If Target.Column = 1 Then

Target.Offset(0, 1).Value = Now()

End If

End Sub

وبالتالى يعمل مع كل الشيتات كما تريد

[عبد الله هُربي]

أشكرك اخي .. لدي سؤال ايضاً .. كيف اجعله يعمل على كل الشيتات ما عدا شيت محدد .. لانه لدي اكثر من عشرين صفحة .. وفي صفحة او صفحتين مختلفة عن الصفحات الاخرى ولا ارغب بأن يكون فيها اي تعديل ..

ايضاً .. لاحظت ان الملف الذي ارفقته هو ملف اكسل عادي ، كيف جعلته كذلك وجعلت الماكرو تعمل فيه ؟؟

[رجب جاويش]

بالنسبة للطلب الأول

وهو تطبيق الكود على جميع الشيتات ما عدا شيت محدد

الكود التالى يطبق على الشيتات 1 و 2 فقط ولا يطبق على شيت 3

يمكنك عمل نفس الفكرة

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If ActiveSheet.Name = "Sheet3" Then Exit Sub

If Target.Column = 1 Then

Target.Offset(0, 1).Value = Now()

End If

End Sub

أما بالنسبة للسؤال الثانى

فان الملف المرفق له امتداد xls وهذا الامتداد يدعم وجود الأكواد وأيضا الامتداد xlsm

أما الامتداد الذى لا يدعم الأكواد هو xlsx

Now.rar

[عبد الله هُربي]

كيف اخليه ما يشتغل على اكثر من شيت .. يعني الشيت الاول والثاني ما يشتغل ويشتغل في كل الباقي ..

وبخصوص الملف .. كيف احفظه بنفس طريقتك ؟؟ ياريت تفيدني .. واشكرك مجدداً ..

[رجب جاويش]

لجعل الكود لا يعمل على الشيت الأول والثانى

ضع السطر التالى

If ActiveSheet.Name = "Sheet1" Or ActiveSheet.Name = "Sheet2" Then Exit Sub

بدلا من السطر

If ActiveSheet.Name = "Sheet3" Then Exit Sub

مع تغير أسماء الشيتات sheet1 و sheet2 بما يناسب أسماء الشيتات فى الملف الخاص بك اذا كانت لها أسماء مختلفة

بالنسبة للسؤال الثانى

سؤالك يوضح أنك تستعمل أوفيس 2007 أو 2010

فيمكنك عند حفظ الملف اختيار excel 97 - 2003 workbook

أو اختيار excelmacro -enable workbook

فهذه الاختيارات تدعم وجود الأكواد

[عبد الله هُربي]

أشكرك .. طيب لما سويت حفظ باسم ظهرت الخيار .. هل اقوم بحذف الملف الاصلي ؟؟

[رجب جاويش]

عندما تقوم بعمل حفظ باسم لأى ملف موجود مسبقا يقوم البرنامج بحفظ نسخة من الملف مع ترك الملف الأصلى كما هو

[عبد الله هُربي]

طيب في هذه الحالة انا لا احتاج الملف الأصلي .. لان التعديلات والاضافات القادمة ستكون على الملف الجديد .. هل كلامي صحيح ؟؟

ومافي مشكلة اذا حذفت الملف الأصلي ؟؟ يعني ماله اي ارتباط بالملف الآخر ؟؟

[رجب جاويش]

يمكنك حذف الملف الاصلي لانه ليس له اي ارتباط بالملف الاخر

[عبد الله هُربي]

أشكرك جزيل الشكر ..

هل يمكن تفعيل الماكرو في ملف محدد ؟؟ لانه اضطر الى تفعيل الماكرو من التنبيه الذي يظهر لي في كل مره عند الفتح ..

[جمال الفار]

أشكرك جزيل الشكر ..

هل يمكن تفعيل الماكرو في ملف محدد ؟؟ لانه اضطر الى تفعيل الماكرو من التنبيه الذي يظهر لي في كل مره عند الفتح ..

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

وبالنسبة لهذا السؤال(هل يمكن تفعيل الماكرو في ملف محدد )

تفضل اخى جرب المرفق

واعلمنى بالنتيجة

اخيكم جمال الفار

Now.rar

[عبد الله هُربي]

اشتغل الملف ، لكن الملف بصيغة تنفيذية exe !!

[رجب جاويش]

أخى الفاضل / جمال الفار

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

صاحب الذوق الرفيع والأخلاق العالية

[عبد الله هُربي]

بارك الله فيكم .. تسلموا ما قصرتم .. دائماً سباقين للخير ..

[جمال الفار]

أخى الفاضل / جمال الفار

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

صاحب الذوق الرفيع والأخلاق العالية

اخى رجب بارك الله فيك

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

السباق لكل شئ فلم يترك لنا شئ

الا شئ واحد وهو ان نقول لكما بارك الله فيكم

وجمعنا فى مستقر رحمته

اخى رجب

لقد اخجلتم تواضعنا

[ghobashi]

كيف يمكن ان يعمل الماكرو بمجرد فتح الشيت بدون الضغط على اى زر

[أبو ردينة]

الأحبة في الله

أخي و أستاذي / رجب جاويش

أخي و أستاذي / جمال الفار

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

آمين

[miss amal]

مجهود ممتاز وبارك الله فيك استاذنا ونفعنا بعلمك ,,,,,,,,