Results 1 to 1 of 1

Thread: Countdown Timer

  1. #1

    Question Countdown Timer



    Register for a FREE account, and/
    or Log in to avoid these ads!

    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 Bob Phillips; 2014-05-06 at 09:03 AM.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •