مطلوب تعديل على كود تكبير الشاشة بعد مدة زمنية معينة

[maxstreets]

السلام عليكم اخواني واساتذتي  الكرام

مطلوب  تعديل على هذا الكود عند فتح  الملف يعمل الكود بششكل طبيعي  وليس به خطاء

Private Sub Workbook_Open()
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
Sheets("home").Select
For Each ws In ThisWorkbook.Sheets
ws.ScrollArea = "$A$1:$v$42"
Next ws
Range("A1").Select
End Sub

 

المشكلة : عند وضع تكبير الشاشة تعود الشاشة للوضع الطبييعي بعد فتح اي ملف عادي آخر

المطلوب :  عند عمل الماكرو  وعودة الشاشة للجم الاصلي وبعد  مرور فترة معينة  من الوقت مثلا دقيقة يعمل الماكرو تلقائيا  بحيث تعود الشاشة لوضع الفول سكرين بعد انقضاء  الدقيقة.

أو  التعديل بحيث عند تمرير الماوس على إي جزء من شاشة البرنامج يعمل الكود تلقائيا بدون تدخل وبدون زر  فقط عند التاشير

ارجوا ان اكون قد اوصلت للكم المعلومة لحاجتي لهذا التعديل ؟؟؟ 

تم تعديل ديسمبر 26, 2018 بواسطه maxstreets

[مهند محسن]

وعليكم السلام الكود يعمل معى بكل كفاءة دون اية مشاكل فيجب عليك وضعه فى حدث ThisWorkBook

 

[maxstreets]

اشكرك اخي الكريم  على سرعة الرد

لقد ذكرت ان الكود ليس به اي اشكالية

لكن طلبي اخي  الكريم عند الرجوع للوضع الطبيعي بعد ضغط  esc  من  الكيبورد ان  يعيد الماكرو تشغيل نفسه بعد  فترة معينة

أو عند التاششير على اي مكان في صفحة الاكسل  ان يعمل الماكرو بدون ضغط على اي زر كلا الطريقتين مهمة لي

شاكر لك تعاونك

[ابو زين]

وعليكم السلام

جرب هذا

data2.xlsm

[maxstreets]

6 دقائق مضت, ابو زين said:

وعليكم السلام

جرب هذا

data2.xlsm

أخي الكريم  الكود يعمل معي لايوجد به  مشكلة

المطلوب التعديل بحيث  يعمل الكود تلقائيا عند الرجوع للوضع الطبيعي

[maxstreets]

للرررررفع اخواني ....

[maxstreets]

للرررررفع اخواني ....

 

[maxstreets]

الرفففع للضرورة  ......

[maxstreets]

بفضل من الله وجدت  الحل المطلوب بعد عناء

الطريقة ربط الحدث بماكرو  معين ارفقت لكم مثال لكي تصل لكم الفكرة ...

عند فتح الملف المرفق أنتظر 20 ثانية وسوف يعمل الماكرو يجب تفعيل حماية الماكرو للملف المرفق لكي يعمل

ضع هذا الكود  في حدث الملف

In Workbook events:

Private Sub Workbook_Open()
    RunEveryTwoMinutes
End Sub

 

قم بعمل ماكرو  وضع فيه هذا الكود القيمة الموجودة في المثال  أي التوقيت 2 دقيتقين بامكانك  تغيير القيمة للوقت الذي ترغب ان يعمل به الماكرو

 

In a module:

 

Sub RunEveryTwoMinutes()
    //ضع هنا اي كود تريده بدل هذه الجملة في مثالي وضعت كود تكبير الشاشة Add code here for whatever you want to happen
    Application.OnTime Now + TimeValue("00:02:00"), "RunEveryTwoMinutes"
End Sub

 

 

 

في ملفي  المرفق وضعت كود تكبير الشاششة وغيرت قيمة التوقيت إلى 20 ثانية ليعمل  الماكرو بتدون تدخل منك

ارجوا ان اكون وفقت في الشرح  والحمدلله على كل حال

Auto macro_01.xlsm

[Ali Mohamed Ali]

بارك الله فيك وجزاك الله كل خير وشكرا على رفعك الحل الذى توصلت اليه حتى يكون مرجعا هما لمن يحتاجه

[maxstreets]

اشكرك أخي علي على مرورك الكريم ...

[maxstreets]

اخواني الخبراء

الحمدلله توصلت الى الحل

ولكن عند فتح البرنامج الذي وضعت به الكود وبعد ذلك  فتحت برنامج آخر وقمت باغلاق البرنامج الاول الذي به الكود تظهر لي هذه الرسالة

 

ويقوم البرنامج بفتح نفسه  مع انني قمت  باغلاقه  ولكنه يشتغل تلقائيا وكأن الكود الذي وضعته يعمل  في كل الملفات التي فتحتها مع انني لا ارغب بان يعمل الكود الا في الملف الاساسي ...

ارجوا من الأخوة مساعدتي في إيجاد الحل شاكرا لكم إهتمامكم

تم تعديل ديسمبر 31, 2018 بواسطه maxstreets