Trying to set countdown timers in Excel. Is it possible?

Logit · #2 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Adding multiple clocks and timers in slides	sid	PowerPoint	0	08-20-2015 04:40 AM
Help Needed on countdown timers	StWeiler	PowerPoint	1	12-20-2012 02:56 PM
Countdown Timer	mcdanita	PowerPoint	0	03-08-2012 12:51 PM
Count Up Timers in PowerPoint	chome4	PowerPoint	0	02-05-2012 11:04 AM
Animated countdown	Ghost World	PowerPoint	4	09-21-2011 12:46 PM