Microsoft Office Forums - View Single Post - Trying to set countdown timers in Excel. Is it possible?

Logit · 11-27-2021, 11:11 AM

Here is part of the project you are seeking. What remains is for you to create the
CONDITIONAL FORMATTING for the cells to change color as you outlined.

Now ... you could get someone to create that as well but you would not learn
anything from someone else doing all the work for you. GOOGLE "excel conditional
formatting" to begin learning.

Best wishes.

Code:

Option Explicit

Public RunWhen As Double
Public Const cRunIntervalSeconds = 1 ' 1 seconds
Public Const cRunWhat = "The_Sub"  ' the name of the procedure to run

Sub StartTimer()

    RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
    Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, Schedule:=True
End Sub

Sub The_Sub()
Application.Cursor = xlNorthwestArrow                   'prevents mouse cusor blinking

DoEvents

With ActiveSheet
        .Cells(1, 2).Value = Format$(Now, "hh:mm:ss")
End With

DoEvents
   ' Call StartTimer to schedule the procedure again
   StartTimer
End Sub

Download link : https://www.amazon.com/clouddrive/sh...nmh85DwnN6D5qj