تنفيذ كود اكثر من مره حسب وقت محدد

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخوه الافاضل  ... كل عام وانتم بكل خير

 

الساده الكرام

هلى يمكن تصخيح ذلك الكود

بحيث

1- يتم تنفيز الكود عند الساعه 11 صباحا

2- تنفيز نفس الكود اذا كان الوقت اكبر او يساوى 5 مسائا

 

 

اين الخطاء

 

Private Sub Workbook_Open()
Application.OnTime TimeValue("11:00:00"), "transfer"
If  Time >= #5:00:00 PM# Then    transfer

 

End If
End Sub

 

 

حل اخر يظهر خطاء

 

 

 

Private Sub Workbook_Open()

 

Application.OnTime TimeValue("11:00:00"), "transfer"

 

Application.OnTime TimeValue >= ("17:00:00"), "transfer"

 

End If

 

End Sub