فعال بودن ثانیه شمار

[amoradi]

درود به همه اساتید گرانقدر

آخرش این تاپیک یه جواب درست و کاملی نداره !!!

مثلا توی کد زیر cup تا 70 درصد درگیر میشه

a:DoEvents
Label19.Caption = Format(Now, "hh:mm")
DoEvents
GoTo a:

سوال اینه که چطور کد رو ویرایش کنیم که هر 60 ثانیه یک بار اجرا بشه

در واقع من میگم اگه دقیقه ای یک بار باشه و ثانیه رو حذف کنیم و کد هر دقیقه یک بار اجرا بشه مشکل پردازش cpu هم حل میشه


لطفا به این سوال بنده حقیر جواب بدید و تاپیک رو کامل کنید

سپاس فراوان

[Amir Ghasemiyan]

سلام دوست عزيز
من محتواي اين تاپيك رو مطالعه نكردم اما در كل براي اينكه يك عملي هر دقيقه اتفاق بيفته بهترين راهي كه من بلدم اين روشه:

Sub my_Procedure()
    MsgBox "Excel Iran Team"        
    Call test ' for starting timer again
End Sub

Sub test()
    Application.OnTime Now + TimeValue("00:01:00"), "my_Procedure"
End Sub

اميدوارم جواب سوالتون رو داده باشم