My buddy Juan was inspired by my Pixilation post and created a digital clock in Excel. He graciously sent it to me an allowed me to post it. I made a few minor changes to it, so if it’s broken, don’t blame Juan. Download it here:
Here’s a sample of what’s in there.
Private Sub ShowClock()
Dim T As Single
Dim OldTime As Single
.Resize(11, 39).Interior.ColorIndex = xlNone
.Range("M3:M4,M8:M9,AA3:AA4,AA8:AA9").Interior.Color = vbRed
OldTime = T
T = Time()
If Hour(T) > Hour(OldTime) Then Update jpHour, .Item(1), T
If Minute(T) > Minute(OldTime) Then Update jpMinute, .Item(1, 15), T
Update jpSecond, .Item(1, 29), T
Application.Wait Now + TimeSerial(0, 0, 1)
Loop Until bStop
Check out the rest of the code. There’s a great example of using enums in there. I think I need to add some code to change the cursor – even though it’s the hourglass, you can still click on the Stop button.