Είναι πολύ εύκολο αν έχετε μια μικρή εξοικείωση με την VBA και τις μακροεντολές του Excel.

Ανοίξτε τον κώδικα VBA του βιβλίου εργασίας και εισάγετε τον παρακάτω κώδικα:

Private Sub Workbook_Open()

Dim myhour As Boolean

myhour = Not (myhour)

Do While myhour = True

DoEvents

Range(A1) = TimeValue(Now())

Loop

End Sub


Μόλις τρέξετε τον παραπάνω κώδικα, το κελί Α1 του φύλλου σας θα γίνει ένα ψηφιακό ρολόι. Μπορείτε φυσικά να αλλάξετε στον κώδικα το κελί που θέλετε να χρησιμοποιήσετε ως ρολόι καθώς και να αλλάξετε τα χρώματα φόντου και γραμμάτων ώστε να ταιριάζει με τις αναφορές σας.

Χρησιμοποιήστε τη φόρμα επικοινωνίας για να μας στείλετε μήνυμα σε περίπτωση που θέλετε περαιτέρω παραμετροποίηση / αυτοματοποίηση στο ψηφιακό ρολόι σας!