تنفيذ الماكرو فى وقت معين

[عبدالرحمن بدوى]

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

تحية طيبة إلى اساتذتنا فى منتدى اوفيسنا

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

حاولت استخدام هذا لكود

ولكنه لما يفلح إا لأنى أستخدمه خطا أو أن الكود نفسه خطأ

Private Sub Workbook_Open()
Application.OnTime TimeValue("9:39:00"), "hello"
End Sub

hello هو اسم الماكرو الذى يظهر رسالة فيها hello فقط لا غير

وشكرا مقدما

[رجب جاويش]

أخى الفاضل

كلمة "hello" ف الكود السابق ليست هى الرسالة التى سوف تظهر عند تنفيذ الكود

ولكن هى اسم الكود ( الاجراء ) الذى سوف يتم تنفيذه عند الوقت المحدد

وبالتالى لابد من ادراج موديول جديد و عمل كود بنفس الاسم الموضوع فى السطر السابق وهو  "hello"

ليتم تنفيذه

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

والكود الموجود داخل الموديول يكون كالاتى

Sub hello()
MsgBox "Hello officena"
End Sub

تقبل تحياتى

[ياسر خليل أبو البراء]

أخي الحبيب وأستاذي الغالي رجب

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

 

أخي الكريم عبد الرحمن بدوي

جرب الملف المرفق التالي فيه تطبيق ما تريد

قم بتغيير التوقيت المطلوب تنفيذ الكود فيه ليتم تنفيذه في الوقت المحدد

تقبل تحياتي

Run Macro At Specific Time.rar

[رجب جاويش]

بارك الله فيك أخى الحبيب ياسر

[ياسر خليل أبو البراء]

جزيت خيراً أخي الغالي وأستاذي الكبير رجب

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

[عبدالرحمن بدوى]

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

الملف يعمل بالفعل ويقوم بتشغيل الماكرو فى الوقت الذى حددته تماما

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

انا أريد الماكرو يعمل كل يوم الساعة 7:30 صباحا ومساء

يعنى كل 12 ساعة وتبدأ من 7:30

والملف فعليا سيظل مفتوحا طوال اليوم 24 ساعة

فكيف لى ان احل ذلك

حاولت ذلك فى الملف المرفق

time.rar

تم تعديل فبراير 14, 2016 بواسطه عبدالرحمن بدوى
اضافة مرفق