Special VBA countdown timer

[FootBallBat]

I am creating a board game and I'm incorporating Excel into it.
What I'm looking for is a countdown timer that allows me to slowdown the timer.
exp: Instead of it counting down 1 second at a time it will count down 1 second every 1.5 seconds.

 

[ranman256]

here is the code for a timer.
you can try changing the seconds in ResetTime()

private gCount As Date
  
private Sub Timer()
    gCount = Now + TimeValue("00:00:01")
    Application.OnTime gCount, "ResetTime"
End Sub

Sub ResetTime()
Dim xRng As Range
Set xRng = Application.ActiveSheet.Range("A1")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
   MsgBox "Countdown complete."
   Exit Sub
End If
   Call Timer
End Sub

 

[FootBallBat]

here is the code for a timer.
you can try changing the seconds in ResetTime()

private gCount As Date
  
private Sub Timer()
    gCount = Now + TimeValue("00:00:01")
    Application.OnTime gCount, "ResetTime"
End Sub

Sub ResetTime()
Dim xRng As Range
Set xRng = Application.ActiveSheet.Range("A1")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
   MsgBox "Countdown complete."
   Exit Sub
End If
   Call Timer
End Sub

I will give it a try thank you

 

[FootBallBat]

here is the code for a timer.
you can try changing the seconds in ResetTime()

private gCount As Date
  
private Sub Timer()
    gCount = Now + TimeValue("00:00:01")
    Application.OnTime gCount, "ResetTime"
End Sub

Sub ResetTime()
Dim xRng As Range
Set xRng = Application.ActiveSheet.Range("A1")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
   MsgBox "Countdown complete."
   Exit Sub
End If
   Call Timer
End Sub

I cant get it to work.
I can have it countdown by 2 or greater but it wont do half seconds.

 

[Logit]

.
https://stackoverflow.com/questions...me-delay-of-less-than-one-second-in-excel-vba