تشغيل ماكرو في وقت محدد Run Macro At Specific Time

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

أحياناً يطلب البعض طريقة تشغيل ماكرو في وقت محدد ، لذا آثرت أن أضع الطريقة بأسلوب بسيط جداً لكي تتضح الفكرة.

بفرض أن لدينا ماكرو أو إجراء فرعي باسم Test ، ويحتوي على كود نريد تنفيذه في وقت محدد وليكن في تمام الساعة الثالثة مساءاً أي الساعة 15:00 ..

نضع الكود المراد تنفيذه والمسمى Test في موديول عادي بهذا الشكل

Sub Test()
    MsgBox "This Is Test", 64
    'Your Code
End Sub

ونضع الكود التالي في حدث المصنف ، ليتم تنفيذ الكود في الوقت الذي نحدده من خلال الكود بهذا الشكل

Private Sub Workbook_Open()
    Application.OnTime TimeValue("15:00:00"), "Test"
End Sub

تحميل الملف من هنا

إعداد / ياسر خليل أبو البراء