Countdown Timer

kenner

New member
Joined
May 5, 2014
Messages
1
Reaction score
0
Points
0
Boa tarde.


Eu tenho uma pergunta relacionada com o código abaixo:

Dim CD As Date


Sub RunTime ()


CD = Now + TimeValue ("00:00:01")


Application.OnTime CD, "Contador"


End Sub


Sub Contador ()


Contagem Dim Gama


Definir count = [A1]


count.Value count.Value + = 1.1574074074074E-05


Call Runtime


End Sub


Sub DisableTimer ()


On Error Resume Next


Application.OnTime EarliestTime: = contagem regressiva, procedimento: = "Reset", Schedule: = False


End Sub


Sub DisableCount ()


On Error Resume Next


Application.OnTime EarliestTime: = CD, Procedimento: = "Contador", Schedule: = False


End Sub

Eu queria ficar toda a coluna com este código e que eu podia fazer era apenas para atribuir uma célula A1.


Poderia ajudar-me a atribuir este código para todas as células na coluna?


Estou à espera.


Atenciosamente.
 
Last edited by a moderator:
Top