VBA والموقت الثاني بسيط

في VBA ، من السهل كتابة مؤقت ثانٍ وتضمينه في الكود المصدري. يأتي VBA مع جهاز توقيت كامل المواصفات والذي يمكن استخدامه عند الحاجة. ومع ذلك ، فإنه ليس إلزامياً استخدام الموقت المتوفرة مع VBA. يمكن إجراء التحكم في المؤقت في VBA من خلال مؤقت يدوي أيضًا. إنها ليست مهمة معقدة لإنشاء وظيفة مؤقت يدوي في VBA . يحتاج المرء إلى كتابة التعليمات البرمجية لإنشاء مؤقت في وحدة نمطية عامة. باستخدام VBA ، يمكن إنشاء مؤقت ثانٍ بسيط لتحسين وتخصيص برنامج Office خاصةً لأوراق عمل Excel.

في VBA ، تتوفر ميزة Timer ، لكن يمكنك أيضًا إنشاء واحدة بسهولة.

في ورقة وحدة نمطية:

 Sub Worksheet_SelectionChange (ByVal Target As Range) 'على سبيل المثال: بدء / إيقاف مؤقت في كل مرة الخلية. "ولكن يمكن أيضًا وضعه على زر أو آخر ... TimeOnOFF = ليس TimeOnOFF If TimeOnOFF ثم Timer End Sub 

في وحدة نمطية عامة:

 TimeOnOFF العام كـ Boolean Sub Timer () Dim S As Integer بينما TimeOnOFF = True If Second (Now)> S أو Second (Now) = 0 ثم 'Run code' .... 'على سبيل المثال Sheets ("shee1"). Range ("A1"). القيمة = الوقت S = الثانية (الآن) النهاية إذا DoEvents Wend End Sub