اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

هل من افادة ؟؟

رابط هذا التعليق
شارك

اخى عبدالله

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

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

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

وفقكم الله

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

رابط هذا التعليق
شارك

مرحباً ..

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

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

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

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

رابط هذا التعليق
شارك

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

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


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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

Now.rar

رابط هذا التعليق
شارك

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

اخى رجب

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

رابط هذا التعليق
شارك

  • 1 month later...
  • 5 years later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information