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.
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: