في هذا المنشور، سنستعرض كيفية إنشاء ساعة
رقمية متحركة باستخدام Excel. هذا المشروع ممتع وسهل، ويمكنك استخدامه لإضفاء لمسة ديناميكية على
جداول بياناتك.
الخطوات:
افتح برنامج Excel وأنشئ ورقة عمل جديدة. في الخلية A1،
أدخل الصيغة التالية: =NOW() هذه الصيغة ستعرض الوقت الحالي.
ثم اضغط على Alt + F11 لفتح محرر VBA. وأدخل الكود
التالي في وحدة جديدة:
Dim NextTick As Date
Sub StartClock()
NextTick = Now + TimeValue("00:00:01")
UpdateClock
End Sub
Sub UpdateClock()
Sheets(1).Range("A1").Value = Format(Now, "hh:mm:ss
AM/PM")
Application.OnTime NextTick, "UpdateClock"
End Sub
Sub StopClock()
On Error Resume Next
Application.OnTime NextTick, "UpdateClock", , False
End Sub
تشغيل الساعة: عد إلى Excel، ثم اضغط على Alt + F8 واختر
StartClock لتشغيل الساعة.
الآن لديك ساعة رقمية متحركة في Excel! جربها وشاركنا آرائك وتجاربك. إذا كان
لديك أي أسئلة، لا تتردد في طرحها.